防止 Windows 关闭

Question

为了检测并防止关闭计算机，我使用了非常简单的程序。它只有一种形式和一个私有过程，如下所示：

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

以及我在 Delphi 5 和 Delphi 2010 上编译的实现。

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

它们都检测关闭。但是当我在Delphi 2010中编译时；防止关闭后我的程序关闭。 （电脑没有关闭）

我如何从两者中得到相同的结果？

Answer 1

编辑：更改为拦截 WM_ENDSESSION 而不是 WM_QUERYENDSESSION。

由于您无法直接更改 TApplication 的行为，因此您可以安装 TApplication 消息挂钩来中和 WM_ENDSESSION 消息。

安装这样的钩子非常简单，您只需在主窗体中添加类似于以下的方法并在 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;

Answer 2

我通常运行“shutdown -a”命令。您可以从代码中执行相同的操作来中断 Windows 关闭。

问候

Answer 3

这看起来像是 Delphi 中的一个错误。我建议您将其发布到 Quality Central。

Answer 4

编辑：这是一种行不通的方法。谢谢

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.

Answer 5

您是否在同一操作系统上进行测试？ Vista 中有一些应用程序关闭更改。阅读以下内容：Windows Vista 中的应用程序关闭更改

如果您在同一操作系统上进行测试，则 Delphi 2010 可能会以不同的方式处理 WM_ENDSESSION 消息。在Delphi 7中，WM_ENDSESSION消息在Application.WndProc中处理。

Answer 6

在所有版本中，您不应该使用 FormCloseQuery 事件吗？

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

哎呀 - 只需阅读“这不起作用”的评论:( win 7 是否有所不同？

在我的所有应用程序中，如果 Windows 试图关闭，则会调用此...

Answer 7

ShutdownGuard 是用 Delphi 构建的，它是开源的，您可以下载它并根据您的需要进行调整