以编程方式阻止 Windows 关闭

我想阻止视窗XP只要我的Delphi应用程序正在运行，我尝试了以下操作：

procedure TForm1.FormCreate(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
  SystemParametersInfo(SPI_SETPOWEROFFACTIVE, 0, nil, 0);
  SystemParametersInfo(SPI_SETLOWPOWERACTIVE, 0, nil, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
  SystemParametersInfo(SPI_SETPOWEROFFACTIVE, 1, nil, 0);
  SystemParametersInfo(SPI_SETLOWPOWERACTIVE, 1, nil, 0);
end;

但这似乎不起作用。还有其他建议吗？
TIA
Steven

这是您问题的答案：

检测并防止 Windows 关闭 http://delphi.about.com/cs/adptips2000/a/bltip0500_4.htm http://delphi.about.com/cs/adptips2000/a/bltip0500_4.htm