Winamp, Пивное дело!!!!

← →
Pepperok (2003-11-15 11:46) [0]

WINAMP!Подскажите как из моего приложения узнать содержимое и выбранный элемент ListBox`a в окне выбора песни и з PlayLista в Winampe(т.е. после нажатия "J")
Очень хочется не выходя из ConterStrike менять песни!!!
С меня ПИВО!!!!!!!

← →
clickmaker (2003-11-15 12:07) [1]

Function WinampUser(data:Integer; id:Integer):integer;
begin
WinampHWND:=findwindow("Winamp v1.x", nil);
if WinampHWND<>0 then
result:=SendMessage(WinampHWND, WM_USER, data,id)
else result:=-1;
end;

Procedure WinampCommand(Command:Integer);
begin
WinampHWND:=findwindow("Winamp v1.x",nil);
if WinampHWND<>0 then
SendMessage(WinampHWND,messages.WM_command,Command,0);
end;

Procedure StartWinamp;
var
WinampExe:string;
begin
reg:=TRegistry.create;
reg.RootKey:=Windows.HKEY_LOCAL_MACHINE;
reg.OpenKey("Software\CLASSES\Winamp.File\shell\open\command", False);
WinampExe:=reg.ReadString("");
reg.Free;
if WinampExe<>"" then
begin
WinampExe:=copy(WinampExe,2,length(WinampExe)-7);
WinExec(pchar(WinampExe),SW_SHOWNORMAL);
end;
end;

Procedure Play;
begin
WinampCommand(40045);
end;

Procedure Stop;
begin
WinampCommand(40047);
end;

Procedure Pause;
begin
WinampCommand(40046);
end;

Procedure NextTrack;
begin
WinampCommand(40048);
end;

Procedure PrevTrack;
begin
WinampCommand(40044);
end;

Procedure FastForward5Sec;
begin
WinampCommand(40148);
end;

Procedure FastRewind5Sec;
begin
WinampCommand(40144);
end;

Procedure RestartWinamp;
begin
WinampUser(0, 135);
end;

Procedure CloseWinamp;
begin
WinampCommand(40001);
end;

Procedure RepeatMode;
begin
WinampCommand(40022);
end;

Procedure SuffleMode;
begin
WinampCommand(40023);
end;

Winamp, Пивное дело!!!! Найти похожие ветки