Winamp > Aktueller Titel

[endeffects]

ich bin unter http://www.torry.net/quicksearchd.ph...namp&Title=Yes fündig geworden
danke nochmal für die hilfe

Delphi-Quellcode:

var
 P: PChar;
 Handle: HWND; title: string;
begin
getmem(p,255);
Handle:=FindWindow('Winamp v1.x',nil);
if Handle<>0 then
 begin
  GetWindowText(Handle,P,255);
  if pos('- Winamp',P)>0 then
   begin
    title:=Copy(P,1,-2+Length(P)-(Length(P)-Pos('- Winamp',P)));
   end;
 end;
 showmessage(title);