Дружит ли Дельфи с Винампом? Опции

[Бананафт]

Как из Delphi-приложения можно управлять Winamp-ом?
Например, при нажатии кнопки запускется и начинает играть.

У меня где-то валяется mp-3 диск с автораном написанном на Delphi.

[trminator]

procedure TUsrForm.PrevBtnClick(Sender: TObject);
var h : hWnd;
begin
   h:=findwindow('Winamp v1.x',nil);
   sendmessage(h,WM_COMMAND,40044,0); //Prev track
end;
procedure TUsrForm.PauseBtnClick(Sender: TObject);
var h : hWnd;
begin
   h:=findwindow('Winamp v1.x',nil);
   sendmessage(h,WM_COMMAND,40046,0); // Pauseunpause
end;

procedure TUsrForm.NextBtnClick(Sender: TObject);
var h : hWnd;
begin
   h:=findwindow('Winamp v1.x',nil);
   sendmessage(h,WM_COMMAND,40048,0); //Next track
end;

Еще таких команд можно найти в инете, где-то на сайте Нуллсофта, вроде... правда, там примеры под С++, но оно неважно...

Запускать можно так:

WinExec(PChar(WinAMPPath+' "'+PathToPls+'"'),1);

,где WinAmpPath - путь к ВинАмпу, PathToPls - путь к плейлисту. Запустится и загрузит этот плейлист.