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.

Makna Hidup

Hidup ini sebuah perjalanan, atau jika kau mau mengakui, hidup ini adalah sebuah pengembaraan. Pencarian terhadap apa yang bisa memuaskan diri. Sebuah pencarian semu yang terbentur oleh singkatnya hidup kita.
Jika kau ingin memaki hidup ini, memakilah dengan keras dan lantang.. puaskan dirimu.
Jika kau ingin selalu tersenyum, tersenyumlah dengan manis, dunia akan menyukaimu.
Jika kau ingin menyesali hidup ini, sebaiknya hentikan sekarang.
Lebih bijak jika kau berusaha bersyukur apa yang telah engkau dapat..
Bersyukur : sesuatu yang sering dilupakan manusia di tengah hiruk pikuk tuntutan hidup.
Bersyukurlah kau masih diberi nafas oleh-NYA.
Bersyukurlah jantungmu masih berdenyut detik ini.
Bersyukurlah dirimu diberi tempat tinggal yang tidak bocor di waktu hujan.
Bersyukurlah dirimu diberi pakaian yang layak..
Bersyukurlah dirimu punya uang di dompet atau kalau masih beruntung masih ada saldo di ATM.
Tuhan, maafkan hambamu , yang selalu lupa untuk bersyukur..

Musim Akan Berganti (Di Republik BM)

Tak selamanya mendung itu kelabu..ini lirik lagu lama..Setiap bagian hidup akan ada yang namanya perubahan. Perubahan itu efek langsung dan tidak langsung dari apa yang sudah kita kerjakan..
Semua sudah ada jalannya. Cepat atau lambat anda akan berubah, berubah jadi tua, jadi kaya, atau jadi tambah melarat...hehehhe
Percayalah, hukum karma itu ada. Anda menanam, anda pula yang akan memetik hasilnya (kecuali panennya gagal).
Bila anda diperlakukan tidak pantas oleh seseorang, tersenyumlah...
Harinya akan tiba ...Mari berpikir positif walaupun otak sudah tidak positif lagi. Pikirkan cara sehat untuk melawan tirani. Gorbachev sudah meniupkan glasnost dan prestroika. Pikirkan jalan untuk melawan kekuasaan absolut.
Jika tak ada jalan lagi, Che Guevara menyarankan REVOLUSI. Angkat senjata anda..
Bila semua jalan telah tertutup,bila reformasi sudah tak cukup...