Delphi и VLC Player - программное переключение каналов

[ViNcHeStEr]

Всем привет!
Для запуска VLC Player используется следующий код:

winexec(PChar('"'+strPath+'" -vvv '+'"'+lbURL.Items.Strings[lbURL.ItemIndex]+'"'+' -I http --high-priority  --miface-addr='+strInterface),sw_show);

Если его выполнить ещё раз, то будет выдано сообщение о невозможности запуска второй копии программы VLC Player, но мне это и не нужно.

Вопрос: как сделать программное переключение каналов из Delphi в VLC Player.

Пример: VLC Player запущен, выбираем другой канал (в программе на Delphi), нажимаем "Смотреть" (в программе на Delphi), выполняется код, канал переключается.

[russian-stalker]

Смотрим коды сообщений в Spy++.
Потом SendMessage этих сообщений в окно VLC.

[ViNcHeStEr]

Смотрим коды сообщений в Spy++.

Handle 00160280 - это и есть код сообщения?

Потом SendMessage этих сообщений в окно VLC.

Это вообще непонял, пожалуйста поподробнее.

[russian-stalker]

Это хэндл вашего приложения. У меня нету VLC, но я думаю что вам надо смотреть сообщения WM_COMMAND и WM_APPCOMMAND.

[mutabor]

Еще как вариант: у VLC открытые исходники, измените интерфейс под свои нужды, и пользуйтесь себе в некоммерческих целях.

[ViNcHeStEr]

Вот в этой теме нашёл такой пример.

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('WMPlayerApp',nil);
//sendmessage(h,wm_command,$4979,0);//Стоп
//sendmessage(h,wm_command,$4978,0);//Play/pause
//sendmessage(h,wm_command,$497B,0);//Следующая песня
//sendmessage(h,wm_command,$497A,0);//Предыдущая
//sendmessage(h,wm_command,$497D,0);//Промотать вперед
end;

$4980//Убавить громкость
$497F//Прибавить громкость
$4981//Выключить звук

Непонятно, откуда берётся $4979, $4978, $497A и т.д.
Если можно выложите скриншот.

[Пепел Феникса]

Непонятно, откуда берётся $4979, $4978, $497A и т.д.

Spy++
и прочие подобные проги.

тока это для Windows Media Player

[ViNcHeStEr]

Я смотрел в Spy++, но не могу понять где именно.
А на какой вкладке надо смотреть? General, Styles, Properties, Class, Windows, Process?

[Пепел Феникса]

вы смотрите не св-ва окна, а его сообщения

[russian-stalker]

http://i068.radikal.ru/1001/3d/c834ed6b9e50.jpg
http://s41.radikal.ru/i091/1001/e3/d5534f97305d.jpg
Дальше думаю сами разберетесь.