こんにちは。yoneです。^_^

☆説明
デフォルトのMessageDlg関数は音が鳴らないので、音を追加してみました。

サンプルコード
//=====================================================
function BeepMessageDlg(const Msg: string; AType: TMsgDlgType;
     AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;
begin
     case AType of
     mtWarning: MessageBeep(MB_ICONEXCLAMATION);
     mtError: MessageBeep(MB_ICONHAND);
     mtInformation: MessageBeep(MB_ICONASTERISK);
     mtConfirmation: MessageBeep(MB_ICONQUESTION);
     end;
     result:= MessageDlg(Msg,AType,AButtons,HelpCtx);
end;

ではでは(^ｰ^)/~~。･。･ﾟ★yone with Delphi 2.0j(DeskTop)
OS:WIN95/ ﾌﾞﾗｳｻﾞIE4.0/EmNifty 機種:NEC-PC9821-V7/ RAM:24MB/ HD:2GB/

Original document by yone            氏 ID:(CYG03724)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。