Author: Tomas Rutkauskas 

Is there any way to play system default sounds (like MessageBeep(mb_IconError) or 
mb_IconQuestion or these)? I need a way to play all the default sounds set in the 
system control (e.g. "new mail", "start windows" etc.).

Answer:

If you want to play the sound associated with "Empty Recycle Bin" then call the 
following procedure. Using the Key Name -> PlayRegisteredSound("EmptyRecycleBin") 
and Window's takes care of the rest.

1   
2   procedure PlayRegisteredSound(SoundKeyName: string);
3   begin
4     { call win32 api procedure PlaySound() }
5     PlaySound(PChar(SoundKeyName), 0, SND_APPLICATION or SND_NODEFAULT or
6       SND_ASYNC or SND_NOWAIT);
7   end;



Follow the RegKey by examining the keys beneath HKEY_CURRENT_USER\AppEvents\Schemes. Here you'll find where the wav files are registered and changed by the Sounds applet in the Control Panel.