- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
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;