procedure play_track_with_volume(track_number:integer;volume:integer);
var
h: hwnd;
begin
h:=findwindow(′Winamp v1.x′,nil); // Находим окно
sendmessage(h,WM_USER,1,121); // Устанавливаем номер трека
sendmessage(h,WM_USER,100,122); // Устанавливаем громкость
sendmessage(h,WM_COMMAND,40045,0); // Проигрываем трек
end;
VBS:Handel?
Код: