禁止用户切换任务 (2000年8月20日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 48 行

禁止用户切换任务 (2000年8月20日) 

本站更新  分类:   作者:a  推荐:   阅读次数:600  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

　　假定我们要设计一个Windows95的口令程序，该程序运行时需要覆盖整个桌面，并且不允许用户用
Alt+Esc、Ctrl+Esc等系统组合键来切换到其他程序。为达到此目的，可按以下步骤： 

将Form的FormStyle属性设为fsStayOnTop 

将Form的WindowState属性设为wsMaximized 

在Form的OnCreate事件处理过程中为Windows发送一个屏幕保护程序正在运行的消息 

当程序结束时清除屏幕保护程序运行标志。 

示例代码：

procedure TForm1.FormCreate(Sender: TObject);

var

temp: Integer;

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);

end;

procedure Form1.OnClose(Sender: TObject; var Action: TCloseAction);

var

temp: Integer;

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);

end;  
 


--------------------------------------------------------------------------------