Wav windows media (Delphi Multimedia)

26 05 2009

Dari tulisan yang lalu (Include WAV in to *.exe Delphi) kali ini saya akan mencoba menulis kembali artikel yang sama, tetapi memiliki perbedaan dari sisi teknik dan kode delphi yang akan kita buat…

Ditulisan yang lalu, file wav embedded dengan file aplikasi delphi hasil kompilasinya (file exe). Sedangkan pada tulisan kali ini file wav tidak di jadikan satu dengan aplikasi delphi, melainkan memanggil file wav bawaan window media, Lihat: C:WINDOWSMedia

Berikut Source Code nya ;

uses
  MMSystem;

var
  s: array[0..79] of char;
begin
 StrCopy(s, 'ding.wav');
 sndPlaySound(s, 0);
end;

Contoh pemakaian:
1 form, 1 button, Tambahkan MMSystem pada uses, Kemudian double klik komponen button dan isi kan Source Code tsb, Ding.wav adalah nama file wav pada folder C:WindowsMedia

Selamat berkarya & Berkreasi…..


Actions

Information

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: