Napster aktuellen Track auslesen

[Meflin]

Das Handle hast du ja dann schonmal, das war eigentlich der schwerste Teil.

Mit WM_GETTEXT solltest du jetzt eigentlich den Text auslesen können, in etwa so:

Delphi-Quellcode:

function GetWinText(aHandle: HWND): string;
var
  iBuffLen : Integer;
  pBuffer : PChar;
begin
  iBuffLen := SendMessage(aHandle, WM_GETTEXTLENGTH, 0, 0);
  if iBuffLen > 0 then begin
    Inc(iBuffLen);
    GetMem(pBuffer, iBuffLen);
    try
      SendMessage(aHandle, WM_GETTEXT, iBuffLen, LPARAM(pBuffer));
      Result := pBuffer;
    finally
      FreeMem(pBuffer);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetWinText(Handle));
end;