Bagi anda yang senang bermain-main dengan TMEDIAPLAYER ? ini adalah program sederhana untuk memainkan volume dari TMEDIAPLAYER. Ini adalah Sourcenya.
procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer);
{ Volume: 0 - 1000 }
const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback : DWORD;
dwItem : DWORd;
dwValue : DWORD;
dwOver : DWORD;
lpstrAlgorithm : PChar;
lpstrQuality : PChar;
end;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetMPVolume(MediaPlayer1,500);
end;