|
|
|
Přehrání externího zvuku
|
05.12.2009
|
Úvod
Funkce přehraje zvukový soubor (*.wav) ze zadané cesty.
Uses
MMSystem
Prvky
Button1
Kód
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar('C:\zvuk.wav'), 0, SND_FILENAME + SND_ASYNC);
end;
Varianty
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar('C:\WINDOWS\Media\tada.wav'), 0, SND_FILENAME + SND_ASYNC);
end;
|
|
|
