掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
終了時の処理 (ID：18825)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか type TForm1 = class(TForm) procedure WMEndSession(var Msg: TMessage); message WM_ENDSESSION; procedure WMQueryEndSession(var Msg: TMessage); message WM_QUERYENDSESSION; private { Private 宣言 } public { Public 宣言 } end; //Windowsの終了時に動作するイベント procedure TForm1.WMEndSession(var Msg: TMessage); begin if (Msg.WParam = 1) then begin // // OS終了時の処理(ここでSaveToFile等を実行) // end; end; //Windowsの終了を検知 procedure TForm1.WMQueryEndSession(var Msg: TMessage); begin if ( Application.MessageBox('Windows終了？', PChar(Application.Title), MB_ICONEXCLAMATION or MB_YESNO ) = IDYES) then Msg.Result := 1 //許可(WMEndSessionが実行される) else Msg.Result := 0; //非許可 end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.