Minggu, 09 Oktober 2016

Delphi - Kode untuk memainkan sound/musik

Berikut adalah kode untuk memainkan sound/musik (berekstensi *.wav) menggunakan delphi :
pertama-tama tambahkan mmSystem pada bagian uses

kemudain tambahkan kode berikut pada event OnClick pada button1 :
procedure TForm1.Button1Click(Sender:TObject)
begin
     sndPlaySound('C:\Direktory lengkap\Nama File',SND_NODEFAULT or SND_ASYNC or SND_LOOP);
end;

Search