Delphi: Winamp-Titel auslesen

Um mit Delphi den aktuellen Winamp-Titel auszulesen benötigt man nur eine kleine Funktion. Der Zugriff erfolgt über die WinAPI.

function GetWinampFilename(): String;
var
    hwndWinamp, ProcessHandle: THandle;
    dat2: array[0..500] of Char;
    temp, MPointer: Cardinal;
begin
  //Bitte nicht wundern, die Fensterbezeichnung ist korrekt und funktioniert bei allen Winamp-Versionen:
  hwndWinamp:=FindWindow('Winamp v1.x',nil);
  MPointer:= SendMessage(hwndWinamp,WM_USER,SendMessage(hwndWinamp,WM_USER,0 , 125), 212);
  GetWindowThreadProcessId(hwndWinamp,ProcessHandle);
  hwndWinamp:= OpenProcess(PROCESS_ALL_ACCESS,False,ProcessHandle);
  ReadProcessMemory(hwndWinamp, Pointer(MPointer), @dat2,500,temp);
  CloseHandle(hwndWinamp);
  Result:= String(dat2);
end;