delphi禁止用户切换任务


本文整理自网络,侵删。

 delphi禁止用户切换任务 

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

相关阅读 >>

Delphi检测android mock位置

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi xe8中的正则表达式提取日语(平假名,片假名,汉字)

Delphi初级教程之Delphi断点调试

Delphi 得到指定文件夹内文件名

Delphi xe filesizebyname 要引用哪些文件

Delphi 建立快捷方式的函数: createshortcut

Delphi xe strpas 遇到的问题

Delphi xe5 android 获取网络状态

Delphi xe 获取 android application version 版本

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...