Trik Delphi - Mengatur Volume Suara.

Untuk mengatur Volume Suara, anda bisa menggunakan fungsi WaveOutSetVolume . nilai 0xFFFF melambangkan volume maksimum, deangkan 0x0000 adalah mute (tanpa suara)

Contohnya dalam kode :

uses mmsystem;

procedure TFrmPlayer.TBVolumeChange(Sender: TObject);
Begin
If Cmute.Checked = True then
Cmute.Checked := False;

// untuk mengeset volume menjadi sesuai volume yang diubah user
Case TBVolume.Position of
1: waveOutSetVolume(0,$00000000);
2: waveOutSetVolume(0,$10001000);
3: waveOutSetVolume(0,$20002000);
4: waveOutSetVolume(0,$30003000);
5: waveOutSetVolume(0,$40004000);
6: waveOutSetVolume(0,$50005000);
7: waveOutSetVolume(0,$60006000);
8: waveOutSetVolume(0,$70007000);
9: waveOutSetVolume(0,$80008000);
10:waveOutSetVolume(0,$90009000);
11:waveOutSetVolume(0,$A000A000);
12:waveOutSetVolume(0,$B000B000);
13:waveOutSetVolume(0,$C000C000);
14:waveOutSetVolume(0,$D000D000);
15:waveOutSetVolume(0,$E000E000);
16:waveOutSetVolume(0,$F000F000);
17:waveOutSetVolume(0,$FF00FF00);
18:waveOutSetVolume(0,$FFF0FFF0);
19:waveOutSetVolume(0,$FFFFFFFF);
20:waveOutSetVolume(0,$FFFFFFFF);
end;
end;

Note
TBVolume di sini adalah sebuah komponen track bar .
sedangkan cmute adalah komponen checkbox.