Posting kali ini saya tujukan khusus untuk Mbak Farida, dan umumnya untuk temen-temen yang ingin mencoba. Untuk memutar sound ketika sebuah event kita jalankan, untuk mencoba silahkan buat form seperti dibawah ini. Download File untuk mencoba, exstrak di drive D, kemudian jalankan.Download di sini
Kemudian klik 2x pada button play, isikan kode berikut, catatan file sound berextensi wav ya, untuk mp3 belum bisa. File sound saya simpan di D:\mas-adi\lazarus\Sound\1212.wav .
Fungsi SN_Loop paling belakang mempunyai fungsi untuk memutar ulang saound yang kita putar, untuk memutar sekali saja, silahkan hilangkan fungsi SN_loop yang ada pada baris perintah di bawah
procedure TForm1.Button1Click(Sender: TObject); begin sndPlaySound(‘D:\mas-adi\lazarus\Sound\1212.wav ‘, SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); end;
Mas Adi 
February 25, 2015 at 2:30 pm
Suaranya berulang-ulang ya mas kalau sekali tekan lalu satu suara tanpa ber ulang2 gimana codenya? Ohya kalau load file html di lazarus gimana ya mas ? biasa di delpi pake webbrowser kala dilajarus saya cari ga ketemu.
LikeLike
February 28, 2015 at 7:26 am
Buat mas Muslim..
Untuk memutar sound hanya sekali saja, hilangkan kode Loop nya, itu perintah untuk mengulang putar sound.
sndPlaySoundW(‘D:\mas-adi\lazarus\Sound\1212.wav’,
SND_NODEFAULT Or SND_ASYNC);
Semoga bermanfaat
LikeLike