Тема: Winamp controller
Показать сообщение отдельно
Старый 07.08.2009, 19:01   #3
Новичок
 
Аватар для Ashtaret
 
Регистрация: 01.01.2009
Сообщений: 4
Сказал Спасибо: 2
Имеет 2 спасибок в 1 сообщении
Ashtaret пока неопределено
По умолчанию

Цитата:
да.
реализовать их через плагин в пх.
можно бы было полностью все завязать на плагине, но там сломаны readx функции, но есть возможность сделать это добавив свои функции в скриптовый движек.
пример плагина добавляющего свою функцию в пх.
http://l2phx.pp.ru/wsvn/filedetails....ugin_demo2.dpr
одна из статей на тему управления винампом
http://delphiblog.ru/2007/winamp-programming/
честноговоря я неочень понимаю в делфи ,а точнее вообще нечего еще не учил ,только азы паскаля на когдато законченом 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 и там сделать кнопочно ?
только я вот моих знаний недостаточно и неполучается у меня немного чтоб работало хотябы то что я сделал сейчас
Ashtaret вне форума   Ответить с цитированием