● 禁止用户切换任务（转载） - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: 禁止用户切换任务（转载）
发信站: BBS 荔园晨风站 (Thu Jan 21 21:11:29 1999), 转信

假定我们要设计一个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 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;

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店