честноговоря я неочень понимаю в делфи ,а точнее вообще нечего
еще не учил ,только азы паскаля на когдато законченом 11-класе )
но что я понял это типо нужно будет делать так ?:
Код:
begin
if FromClient and (pck=HStr('38 2F 00 6E 00 65 00 78 00 74 00 00 00 00 00')) then begin //next
begin
Procedure WinampCommand(Command:Integer);
//поиск окна Winamp’a
WinampHWND := findwindow('Winamp v1.x',nil);
//если поиск успешен,то посылаем сообщение
if (WinampHWND <> 0) then
SendMessage(WinampHWND, 440048, Command, 0);
end;
if FromClient and (pck=HStr('38 2F 00 70 00 72 00 65 00 72 00 0D 00 0A 00 00 00 00 00')) then begin //prev
begin
Procedure WinampCommand(Command:Integer);
//поиск окна Winamp’a
WinampHWND := findwindow('Winamp v1.x',nil);
//если поиск успешен,то посылаем сообщение
if (WinampHWND <> 0) then
SendMessage(WinampHWND, 440044, Command, 0);
end;
if FromClient and (pck=HStr('38 2F 00 70 00 6C 00 61 00 79 00 00 00 00 00')) then begin //play
begin
Procedure WinampCommand(Command:Integer);
//поиск окна Winamp’a
WinampHWND := findwindow('Winamp v1.x',nil);
//если поиск успешен,то посылаем сообщение
if (WinampHWND <> 0) then
SendMessage(WinampHWND, 440045, Command, 0);
end;
if FromClient and (pck=HStr('38 2F 00 70 00 61 00 75 00 73 00 65 00 00 00 00 00')) then begin //pause
begin
Procedure WinampCommand(Command:Integer);
//поиск окна Winamp’a
WinampHWND := findwindow('Winamp v1.x',nil);
//если поиск успешен,то посылаем сообщение
if (WinampHWND <> 0) then
SendMessage(WinampHWND, 440046, Command, 0);
end;
end.
Ну или же в ХТМЛ форме )
типо в чат /winamp и там сделать кнопочно ?
только я вот моих знаний недостаточно и неполучается у меня немного чтоб работало хотябы то что я сделал сейчас