Уровень Звука в Media Player

[Cvin]

Уважаемые эксперты здравствуйте. Я пишу програмку аудио плеера. Для реализации изменения уровня громкости я нашел вот эти процедуры. Все работает как часы.
Проблема в том, что я не могу понять, откуда и что здесь берется…
Как то обидно использовать это без понятия что есть что...
Сам я почти ламер в делфи, и таких команд у модуля 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;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
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;
end;

[mihali4]

Достаточно просто и самому во всем этом разобраться.
Ставим курсор на любой непонятный термин и жмем F1.
Если в строке поиска в открывшейся формочке пусто - жмем отмену, затем Файл->Открыть и открываем вручную файл WIN32.HLP.
В нем все непонятные вам MCI_SETAUDIO и прочие подробно расписаны.

[Cvin]

спасибо и на этом mihali4