unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinampApi, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
WinAmp : TWinampApi;
openPlay : Boolean;
openPlayList : Boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var WinAmp : TWinAmpApi;
begin
// 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.