StyleGame

Online Tutorials

Va rog sa faceti cunoscut forumu. Cum puteti ajuta? De preferat la status pe yahoo messenger massuri etc. Va urez bafta in a ne ajuta cu respect echipa stylegame

    Pascal - Numele melodiei din Winamp

    Distribuiţi
    avatar
    CYobY
    Administrator
    Administrator

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

    Pascal - Numele melodiei din Winamp

    Mesaj Scris de CYobY la data de 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;


    _________________
    RESPECT

      Acum este: Mar Oct 16, 2018 4:34 pm