123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222 |
- {*
- * winamp.dpr -> Code for winamp.dll for DMDirc
- * DMDirc - Open Source IRC Client
- * Copyright (c) 2006-2017 DMDirc Developers
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- * SOFTWARE.
- *}
-
- // References:
- // http://krizzprograming.blogspot.com/2007/08/controlling-winamp-programmatically.html
- // http://forums.winamp.com/showthread.php?threadid=85389
-
- library winamp;
- uses
- windows, messages, SysUtils, Classes;
-
- function VirtualFreeEx(hProcess:HANDLE; lpAddress:LPVOID; dwSize:DWORD ; dwFreeType : DWORD):WINBOOL; external 'kernel32' name 'VirtualFreeEx';
- function VirtualAllocEx(hProcess:HANDLE; lpAddress:LPVOID; dwSize:SIZE_T ; flAllocationType : DWORD; flProtect : DWORD):POINTER; external 'kernel32' name 'VirtualAllocEx';
-
- type
- extendedFileInfoStruct = packed record
- filename: pchar;
- metadata: pchar;
- ret: pchar;
- retlen: integer;
- end;
-
-
- const
- WM_WINAMP = WM_USER;
-
- function getPlayState(data: PChar):integer; stdcall;
- var
- hand: THandle;
- res: LongInt;
- B: array[0..255] of char;
- begin
- result := 1;
- B := 'Error finding window';
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- B := 'Error getting data';
- result := 0;
- res := SendMessage(hand, WM_WINAMP, 0, 104);
- if res = 1 then B := 'Playing'
- else if res = 3 then B := 'Paused'
- else B := 'Stopped';
- StrCopy(data,B);
- end;
- end;
-
- function getArtistTitle(data: PChar):integer; stdcall;
- var
- hand: THandle;
- B: array[0..255] of char;
- tempHand: THandle;
- memLoc: LongInt;
- temp: LongWord;
- begin
- result := 1;
- B := 'Error finding window';
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- B := 'Error getting data';
- result := 0;
- memLoc := SendMessage(hand, WM_WINAMP, 0, 125); // Get number of current track
- memLoc := SendMessage(hand, WM_WINAMP, memLoc, 212); // And now its name
- GetWindowThreadProcessId(hand, @tempHand);
- hand := OpenProcess(PROCESS_ALL_ACCESS, False, tempHand);
- ReadProcessMemory(hand, Pointer(memLoc), @B, sizeof(B)-1, temp);
- CloseHandle(hand);
- StrCopy(data,B);
- end;
- end;
-
- function getMetaData(metadata: PChar): PChar;
- var
- hand: THandle;
- readhand: THandle;
- B: array[0..255] of char;
- C: array[0..255] of char;
- tempHand: THandle;
- memPtr: Pointer;
- memLoc: LongInt;
- temp: LongWord;
- extinfo: extendedFileInfoStruct;
- begin
- B := '';
- C := '';
- Result := '';
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- memLoc := SendMessage(hand, WM_WINAMP, 0, 125); // Get number of current track
- memLoc := SendMessage(hand, WM_WINAMP, memLoc, 211); // And now its filename
- GetWindowThreadProcessId(hand, @tempHand);
-
- readhand := OpenProcess(PROCESS_ALL_ACCESS, False, tempHand);
- ReadProcessMemory(readhand, Pointer(memLoc), @C, sizeof(C)-1, temp);
-
- extinfo.filename := C;
- extinfo.metadata := metadata;
- extinfo.ret := B;
- extinfo.retlen := sizeof(B)-1;
-
- // This doesn't actually work yet :/
- // memPtr is nil
- memPtr := VirtualAllocEx(tempHand, nil, 2048, MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE);
- if memPtr <> nil then begin
- WriteProcessMemory(readhand, memPtr, (@extinfo), sizeof(extendedFileInfoStruct), temp);
- SendMessage(readhand, WM_WINAMP, LongInt(memPtr), 290);
- end;
-
- StrCopy(Result, B);
-
- if memPtr <> nil then begin
- VirtualFreeEx(readhand, memPtr, 0, MEM_RELEASE);
- end;
- CloseHandle(readhand);
- end;
- end;
-
- function getArtist(data: PChar):integer; stdcall;
- var
- B: PChar;
- begin
- B := getMetaData('artist');
- StrCopy(data,B);
- if (B <> '') then Result := 0 else Result := 1;
- end;
-
- function getTitle(data: PChar):integer; stdcall;
- var
- B: PChar;
- begin
- B := getMetaData('title');
- StrCopy(data,B);
- if (B <> '') then Result := 0 else Result := 1;
- end;
-
- function getAlbum(data: PChar):integer; stdcall;
- var
- B: PChar;
- begin
- B := getMetaData('album');
- StrCopy(data,B);
- if (B <> '') then Result := 0 else Result := 1;
- end;
-
- function getLength(data: PChar):integer; stdcall;
- var
- hand: THandle;
- res: LongInt;
- begin
- result := 1;
- StrCopy(data, 'Error finding window');
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- result := 0;
- res := SendMessage(hand, WM_WINAMP, 1, 105);
- StrCopy(data, PChar(inttostr(res)));
- end;
- end;
-
- function getTime(data: PChar):integer; stdcall;
- var
- hand: THandle;
- res: LongInt;
- begin
- result := 1;
- StrCopy(data, 'Error finding window');
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- result := 0;
- res := SendMessage(hand, WM_WINAMP, 0, 105);
- StrCopy(data, PChar(inttostr(res div 1000)));
- end;
- end;
-
- function getFormat(data: PChar):integer; stdcall;
- var
- B: array[0..255] of char;
- begin
- Result := 0;
- B := 'Unknown';
- StrCopy(data,B);
- end;
-
- function getBitrate(data: PChar):integer; stdcall;
- var
- hand: THandle;
- res: LongInt;
- begin
- result := 1;
- StrCopy(data, 'Error finding window');
- hand := FindWindow('Winamp v1.x', nil);
- if hand <> 0 then begin
- result := 0;
- res := SendMessage(hand, WM_WINAMP, 1, 126);
- StrCopy(data, PChar(inttostr(res)));
- end;
- end;
-
- exports getPlayState, getArtistTitle, getArtist, getTitle, getAlbum, getLength, getTime, getFormat, getBitrate;
-
- begin
- end.
|