Windows-Systemsounds abspielen

[CalganX]

shmia hat hier gepostet, wie man Windows-Sounds abspielen kann:

Delphi-Quellcode:

uses mmSystem;

// ...
PlaySound('SoundName', 0, SND_ALIAS);

Anstelle von SoundName muss man einen der folgenden Werte einsetzen:

Code:

Sound Events Table
==================
SystemAsterisk    - Asterisk
Default           - Default Beep
EmptyRecycleBin   - when recycle bin is emptied
SystemExclamation - when windows shows a warning
SystemExit        - when Windows shuts down
Maximize          - when a program is maximized
MenuCommand       - when a menu item is clicked on
MenuPopup         - when a (sub)menu pops up
Minimize          - when a program is minimized to taskbar
MailBeep          - when email is received
Open              - when a program is opened
SystemHand        - when a critical stop occurs
AppGPFault        - when a program causes an error
SystemQuestion    - when a system question occurs
RestoreDown       - when a program is restored to normal size
RestoreUp         - when a program is restored to normal size from taskbar
SystemStart       - when Windows starts up
Close             - when program is closed
Ringout           - when (fax) call is made outbound and the line is ringing
RingIn            - incoming (fax) call

Diese Liste kommt von dieser Seite und BenjaminH hat sie hier gepostet.

[himitsu]

In der Unit Windows befindet sich auch noch einiges dazu :roll:

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)