.©ÝobÝ™

Online Gaming Tutorial


    Pascal - Numele melodiei din Winamp

    Distribuiţi

    andrey

    Mesaje : 27
    Data de inscriere : 29/09/2009

    Pascal - Numele melodiei din Winamp

    Mesaj  andrey la data de Mar Sept 29, 2009 5:47 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;

      Acum este: Dum Aug 19, 2018 2:22 pm