In der
Unit Windows befindet sich auch noch einiges dazu
Delphi-Quellcode:
Uses Windows;
// ...
MessageBeep(Typ);
Für Typ hat man folgendes zur Auswahl:
Code:
Sound Events Table
==================
MB_ICONASTERISK - Asterisk
0 - Default Beep
MB_ICONEXCLAMATION - when windows shows a warning
MB_ICONHAND - when a critical stop occurs
MB_ICONQUESTION - when a system question occurs
-1 - internal PC speaker (Beep)