delphi - Windows シャットダウンの防止

Question

コンピューターのシャットダウンを検出して防止するために、私は非常に単純なプログラムを使用しています。以下のように、1 つのフォームと 1 つのプライベートプロシージャしかありません。

TForm3 = class(TForm)
private
  procedure WMQueryEndSession(var Msg : TWMQueryEndSession) ;
         message WM_QueryEndSession;
end;

そして実装

procedure TForm3.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
  Msg.Result := 0; //so I don't want to shutdown while my program is running
end;

Delphi 5 と Delphi 2010 でコンパイルしました。どちらもシャットダウンを検出します。しかし、Delphi 2010 でコンパイルすると、シャットダウンを防止した後、プログラムが閉じます。（PCはシャットダウンしません）

両方から同じ結果を得るにはどうすればよいですか?

score 2 · Accepted Answer

編集：WM_QUERYENDSESSIONの代わりにWM_ENDSESSIONをインターセプトするように変更されました。

TApplicationの動作を直接変更することはできないため、代わりにWM_ENDSESSIONメッセージを無効にするTApplicationメッセージフックをインストールできます。

このようなフックのインストールは非常に簡単です。メインフォームに次のようなメソッドを追加し、FormCreateにフックを登録するだけです。

function TForm25.HookEndSession(var Message: TMessage): Boolean;
begin
  result := false;
  if Message.Msg = WM_ENDSESSION then begin
    Message.Result := 0;
    result := true;
  end;
end;

procedure TForm25.FormCreate(Sender: TObject);
begin
  Application.HookMainWindow(HookEndSession);
end;

score 1 · Accepted Answer

通常、「shutdown -a」コマンドを実行します。コードから同じことを行って、Windows のシャットダウンを中断することができます。

よろしく

score 0 · Accepted Answer

同じOSでテストしていますか？Vistaにはいくつかのアプリケーションシャットダウンの変更があります。これを読んでください：WindowsVistaでのアプリケーションシャットダウンの変更

同じOSでテストしている場合、Delphi2010はWM_ENDSESSIONメッセージを別の方法で処理する可能性があります。Delphi 7では、WM_ENDSESSIONメッセージはApplication.WndProcで処理されます。

score 0 · Accepted Answer

編集：これはうまくいかないアプローチです。ありがとう

Procedure TMyForm.FormClose(Sender: TObject;  Var Action: TCloseAction);
Begin
  Action := caNone;  //The form is not allowed to close, so nothing happens.
End;                 // Note: the OP says he tried this, doesn't help. See the comments.

score 0 · Accepted Answer

ShutdownGuardは Delphi で構築されており、オープンソースです。必要に応じてダウンロードして調整できます。

score 0 · Accepted Answer

これは Delphi のバグのようです。これを Quality Central に投稿することをお勧めします。

score 0 · Accepted Answer

すべてのバージョンで、FormCloseQuery イベントを使用しないでください。

procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Canclose := Not StillDoingImportantStuff;
end;

おっと-「これは機能しません」へのコメントを読んでください:( win 7は違いますか?

私のすべてのアプリで、ウィンドウがシャットダウンしようとすると、これが呼び出されます...

delphi - Windows シャットダウンの防止

7 に答える 7

Related

Reference