「プログラムエラー」ダイアログを表示してアプリを強制終了する

実行すると下記のような画面が表示されてアプリケーションを強制終了します。



■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。追加している所は青色です。

■「プログラムエラー」ダイアログを表示してアプリを強制終了する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

FatalAppExit(0,'これはサンプルですよ。（＾＾' + #13#10
　　　　　　　　+ 'このプログラムは何か悪い事をしたので強制終了します' );

end;




Win32APIのページへ



ホーム PV ランキング