Numele melodiei ascultate in winamp...

Ajutor
Autentificare ::
Inregistrare ::
Ian 09, 2009, 06:09

Bun venit pe SkullBox!
Bine ai venit, Vizitator. Trebuie să te autentifici sau să îţi creezi un cont. Ai pierdut sau nu ai primit emailul care conţine codul de activare al contului? Autentifică-te cu numele de utilizator, parola şi precizează durata sesiunii.

SkullBox > Development > Delphi & Pascal > Pascal / Delphi Snippets (Moderator: emi) > Numele melodiei ascultate in winamp...

Pagini: [1]

Imprimă

Numele melodiei ascultate in winamp... (Vizualizari 479)

Claw

Deconectat

Mesaje: 21

Numele melodiei ascultate in winamp..., Oct 02, 2007, 16:00

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 then
begin
{cauta textul scris pe fereastra (1. Artist - Melodie - Winamp)}
GetWindowText(Handle,P,255);

{cauta "1." si "- Winamp" pentru a le scoate}
if pos('- Winamp',P)>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;
......

3.variabila MelodieWinamp este numele melodiei Smile