Question

delphi做个屏幕保护

delphi做个屏幕保护 其他就OK 不过我一按任务管理器 退出程序 就完了。。。

有漏洞啊！ 怎么运行了 DEPHI做的屏幕保护 按任务管理组合键 失效呢？？？

Answer 1

我想你应该知道屏幕保护其实,就是将exe改了扩展名为.scr（以WINDOWS XP为例子）
要实现你所说的功能有以下方法可行:
1.当你的屏幕保护程序处于激活状态时候,利用代码禁用任务管理，同时退出程序的时候启用任务管理器。函数代码如下
procedure DisableTaskmgr(Key: Boolean);
Var
Reg:TRegistry;
Begin
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Policies\System, True) then
begin
if Key then
Reg.WriteString(DisableTaskMgr,1)
else
Reg.WriteInteger(DisableTaskMgr,0);
Reg.CloseKey;
end;
except
Reg.Free;
end;
end;
使用方法：
DisableTaskmgr(True);//DisableTaskmgr(False);
此方法适用于Win NT/2K/XP,参数Key为True,屏蔽“任务管理器”；为False,“任务管理器”可用.
2.利用键盘钩子直接屏蔽组合键CTRL+ATL+DEL
代码太长不写了，网上很多.
希望能帮到你...
如果有神马不懂你可以到我博客留言:blog.sina.com.cn/qiushengtian
或者直接加我工作号Q:390765185

追问

大侠QQ加不上也、要名字...

交个朋友啊 O(∩_∩)O~

追答

问题答案是 不知道 就把不知道这几个字打上然后确定就 加上我了