Pascal - Numele melodiei din Winamp

[CYobY]

CYobY

CYobY

Administrator

Mesaje : 197
Data de inscriere : 04/10/2009
Varsta : 30
Localizare : VASLUI

• Mesaj n°1

Pascal - Numele melodiei din Winamp

 Scris de CYobY Lun Oct 26, 2009 11:12 pm

Cod:

Var
 MelodieWinamp: string;
 P: PChar;
 Handle: HWND;

begin

MelodieWinamp:='';
getmem(p,255);

{Cauta fereastra winamp}
Handle:=FindWindow('Winamp v1.x',nil);
if Handle<0>0 then
  begin
    MelodieWinamp:=Copy(P,1,-2+Length(P)-(Length(P)-Pos('- Winamp',P)));
    Delete(MelodieWinamp,1,Pos(' ',MelodieWinamp));
    { produs finit :) }
  end;
 end;
....
end;

îmi placenu îmi place