Minggu, 14 September 2008

MEMAINKAN VOLUME DALAM TMEDIAPLAYER

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;

Tidak ada komentar: