Question

我有一个应用程序隐藏在红十字会关闭。用户可以通过右键单击托盘图标并选择退出来退出。但它显然会阻止Windows关闭，所以我做了一个程序来响应WM_QUERYENDSESSION来启用关闭，这是相关的代码：

procedure TMainForm.OnWindowsEnd(var Msg: TMessage); // responds to message WM_QUERYENDSESSION;
begin
  AllowClose:=true;
  Close;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=AllowClose;
  if NOt AllowClose then
    Hide;
end;

但奇怪的事情不断发生。当我发出关闭时，这个应用程序很好地关闭。但就是这样。当我发出第二次关机时，系统退出正常。（我在WinXP中对此进行测试）。

可能是什么原因？谢谢

ANSWER 代码应如下所示

procedure TMainForm.OnWindowsEnd(var Msg: TMessage); // responds to message WM_ENDSESSION;
begin
  // Possible checking for flags, see http://msdn.microsoft.com/en-us/library/aa376889%28v=vs.85%29.aspx
  AllowClose:=true;
  Msg.Result:=1;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=AllowClose;
  if NOt AllowClose then
    Hide;
end;

Answer 1

WM_QUERYENDSESSION是一个“查询”，而不是关机命令：Windows询问您是否可以关闭，不要求您关闭。你不应该致电Close！

其次，Windows希望您在处理该消息时返回TRUE，因此它知道您可能正常关机。我假设您没有将结果设置为TRUE，因此Windows会中止第一个关机请求。

不要阻止Windows关闭OnCloseQuery

1 个答案: