掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アプリケーションの終了をするには (ID:36782)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
アプリケーションが終了する場合トレイアイコンの 左クリックでメニューの表示 右クリックでポップアップメニューを表示して終了ボタンをクリックしたときだけ 終了するようにし、システム（ウィンドウのｘ）ボタンはメニューを隠すだけで、 終了しないようにするために以下のようにしています。 ExitFlag: Boolean; ExitFlag := false; // 終了確認 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean) begin if ExitFlag = false then Hide; CanClose := ExitFlag; end; procedure TFormMain.MenuItemExitClick(Sender: TObject) begin // 編機データクラス破棄 ExitFlag := true; Close; end; ここでですが、上記の処理の仕様のままでＰＣをシャットダウンする場合に 現状では終了できません。 ＰＣのシャットダウン時はアプリケーションを自動的に終了したいのですが どうすればよいでしょうか？ 理由は、ネットワーク経由で ShutDown コマンドを使ってＰＣの電源を 落としたいのです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.