WinampApi Problem

[titus]

Ok danke an der Version lags net, ich weiß net, ich hab einfach mal rumprobier jetzt gehts, wenn der Quelltext interessiert (maybe?):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinampApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  openPlay : Boolean;
  openPlayList : Boolean;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var WinAmp : TWinampApi;
begin
  WinAmp := TWinampApi.Create('C:\program files\winamp');
  // Make song length & position be returned in mm:ss format
  WinAmp.SongLengthParseTime := True;
  WinAmp.SongPosParseTime := True;

  Memo1.Text := '';
  Memo1.Lines.Add('Playing :'+Winamp.getWhatsPlaying);
  Memo1.Lines.Add('Song state: '+WinAmp.getSongState);
  Memo1.Lines.Add('Song position: '+WinAmp.getSongPosition);
  Memo1.Lines.Add('Song length: '+WinAmp.getSongLength);
  Memo1.Lines.Add('Song sample rate: '+WinAmp.getSongSampleRate);
  Memo1.Lines.Add('Song bitrate: '+WinAmp.getSongBitRate);
  Memo1.Lines.Add('Song channels: '+WinAmp.getSongChannels);
  Memo1.Lines.Add('Song play list position: '+WinAmp.getPlayListPosition +'/'+WinAmp.getPlayListLength);
end;

end.