在delphi中禁止用户切换任务 (2001年1月8日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 44 行

在Delphi中禁止用户切换任务 (2001年1月8日) 

网友更新  分类:系统   作者: nbwzw(推荐)  推荐:nbwzw   阅读次数:439  
(http://www.codesky.net)  

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

　　将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; 
 
 


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