|
|
|
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
|
|
|
