Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips

#78: How can I sound a beep for some action?

Sometimes in development very useful to sound a "context" beep. For example, user entered the incorrect value - you can show the message dialog with information about it but also useful to beep with "error" sound.

Try this - it's very useful for end-user as context help/assistent:

uses Windows;

procedure PlayBeep(ActionType: TMsgDlgType);
var mb: dWord;
  case ActionType of
    mtInformation: mb := MB_ICONASTERISK; //SystemAsterisk
    mtWarning: mb := MB_ICONEXCLAMATION; //SystemExclamation
    mtError: mb := MB_ICONHAND; //SystemHand
    mtConfirmation: mb := MB_ICONQUESTION; //SystemQuestion
    mtCustom: mb := MB_OK; //SystemDefault
    mb:= $0FFFFFFFF; //Standard beep using the computer speaker

PS: don't use it very frequently because users'll be angry:)

Published: May 18, 2000

See also
Metafile Convert
Paradox ActiveX
Clarion to Text converter
DBISAM Password Recovery
ABA Document Convert
Protected Storage Viewer
Viewer for MS Outlook Messages
Fast Document Viewer
Database Information Manager
Word Web-stream

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2017, Scalabium Software. All rights reserved.

SMExport advertising