Scalabium Software
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;
begin
  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
  else
    mb:= $0FFFFFFFF; //Standard beep using the computer speaker
  end;
  MessageBeep(mb);
end;

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

Published: May 18, 2000

See also

	ExcelFile Viewer
	DBExport tools
	Excel Web-stream
	Clarion Viewer
	Paradox ActiveX
	Viewer for MS Outlook Messages
	SMMsg suite
	dBase Viewer
	SMExport suite
	Word Web-stream

Contact to webmaster