Mengatur Volume Delphi

Sahabat Delphi kali ini saya akan membagi trik bagaimana cari mengatur volume delphi, oke langsung saja ,
1. Buka IDE Delphi
2. Kemudian buat form seperti gambar di bawah ini

3. ketik pada uses, MMSystem;
4.  Tambahkan constant di bawah uses

//--- tambah constanta disini untuk mengatur volume
const
// ---- buat loading volume ----
   MCI_SETAUDIO = $0873;
   MCI_DGV_SETAUDIO_VOLUME = $4002;
   MCI_DGV_SETAUDIO_ITEM = $00800000;
   MCI_DGV_SETAUDIO_VALUE = $01000000;
   MCI_DGV_STATUS_VOLUME = $4019; 

5. tambahkan type dan procedure di bawah ini{$R *.dfm}
{$R *.dfm}

// tambahkan " type " untuk atur volume
type
   MCI_DGV_SETAUDIO_PARMS = record // volume
     dwCallback: DWORD;
     dwItem: DWORD;
     dwValue: DWORD;
     dwOver: DWORD;
     lpstrAlgorithm: PChar;
     lpstrQuality: PChar;
   end;

// tambahkan " type " untuk atur volume
type
   MCI_STATUS_PARMS = record // volume
     dwCallback: DWORD;
     dwReturn: DWORD;
     dwItem: DWORD;
     dwTrack: DWORD;
   end;


// prosedur set volume
procedure MPSetVolume(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;

// dapatkan Volume, range 0 - 1000
function MPGetVolume(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;

6. klik 2 kali pada formcreate

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption :='0%';
  TrackBar1.Position:=400;
  MPGetVolume(MediaPlayer1);
end;

7. klik 2 kali trackbar onchange

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption :='0%';
  TrackBar1.Position:=400;
  MPGetVolume(MediaPlayer1);
end;

8. klik2 kali pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
  StatusBar1.SimpleText:=OpenDialog1.FileName;
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=OpenDialog1.FileName;
  MediaPlayer1.Open;
  end;
end;

9. Simpan dengan cara file - save project as
10. Compile dengan cara klik F9
11. Coba
12. sekian dan terima kasih
SALAM DELPHI

Mengatur Volume Delphi 2015-07-31T10:38:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown