Přehrávání systémových zvuků

A na závěr tu máme opět snad o něco užitečnější tip, než byl ten předchozí. Ukážeme si, jak se dají přehrávat rozličné systémové zvuky, které všichni dobře známe. I zde využijeme knihovny MMSystem a celý kód vypadá velmi jednoduše:
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('SystemStart', 0, SND_APPLICATION or SND_NODEFAULT or SND_ASYNC or SND_NOWAIT);
end;