- - - 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í systémových zvuků
 05.12.2009  

Úvod

Funkce přehraje některé systémové zvuky, viz varianty.

Uses

  • MMSystem

    Prvky

  • Button1

    Kód

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC);
    end;

    Varianty

    SYSTEMSTART
    SYSTEMEXIT
    SYSTEMHAND
    SYSTEMASTERISK
    SYSTEMQUESTION
    SYSTEMEXCLAMATION
    SYSTEMWELCOME
    SYSTEMDEFAULT