只要我的Delphi应用程序正在运行,我想防止Windows XP关机,因此我尝试了以下操作:
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
史蒂文
最佳答案
这是您问题的答案:
检测并防止Windows关闭
http://delphi.about.com/cs/adptips2000/a/bltip0500_4.htm