Общение с Media Player Classic

← →
Шуршик © (2005-08-13 02:44) [0]

Добрый день.
Уважаемые мастера, не приходилось ли кому-нибудь общаться с программой Media Player Classic? Т.е. приостанавливать проигрывание, изменять громкость и т.д., как это можно делать с Winamp-м.
Каким способом можно управлять этой программой? Если через сообщения, то где можно взять описание?

Заранее спасибо.

← →
Ученик (2005-08-13 10:43) [1]

Стандартный TMediaPalyer не подойдет ? (закладка System в Delphi )

← →
Kazakh (2005-08-13 17:16) [2]

Установить звук для TMediaPlayer
-------------------------------------------------------------

uses
MPlayer, MMSystem;

const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;

type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;

type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
{ Volume: 0 - 1000 }
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
{ Volume: 0 - 1000 }
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

function GetMPVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p));
Result := p.dwReturn;
{ Volume: 0 - 1000 }
end;

// Example, Beispiel:

procedure TForm1.Button1Click(Sender: TObject);
begin
SetMPVolume(MediaPlayer1, 500);
end;

Читайте, пожалуйста, внимательно пост. Там написано Media Player Classic - есть такая программа, входит в состав паков кодеков Ace Mega Codecs Pack и K-Lite Codecs Pack, обладает интерфейсом проигрывателя mplayer2.exe и возможностями BSPlayer.
Впрочем мне уже подсказали ответ на DelphiKingdom:
Управлять можно примерно так:
Wnd:=FindWindow("MediaPlayerClassicW",nil); SendMessage(Wnd,WM_COMMAND,Cmd,0);
Коды брать тут
http://cvs.sourceforge.net/viewcvs.py/guliverkli/guliverkli/src/apps/mplayerc/resource.h?rev=1.47&view=auto
Надо учесть, что плееров может быть открыто несколько.
Можно ещё управлять через LIRC или посылкой WM_APPCOMMAND, но пользователь может перенастроить их как угодно. Ещё в MPC есть встроенный веб-сервер, можно через него управлять имитирую браузер. Всю информацию можно найти в исходниках.

Общение с Media Player Classic Найти похожие ветки