请问怎样在DELPHI编写的程序中关闭与打开ctrl+alt+del 也就是让人无法打开任务管理器
谢谢!
谢谢!
解决方案 »
- fastreport 直接打印的问题 版本 V4.33
- 向数据库中插入Int64的值,报“多步操作产生错误。。。”的问题。
- 基本的一个小问题 ,在线等~~~~~~~~~`
- 在Win2000中如何禁止使用Ctrl+Alt+Del??(在线等)
- 有什么方法截取用户按键,如按Power键截取后并不再继续、按windows键截取它并不再显示开始菜单
- 两个数据库之间的数据复制问题?
- 怎样在一个窗体中调用另一个窗体的Edit1的KeyPress事件?
- FTP失败,如何捕捉错误信息?
- 有做过翻译软件的高手吗
- 急!!!关于delphi 3的报表打印!!!20分!!!
- 快!catastrophic failure
- 机器名和计算机名有什么不同???
屏蔽任务管理器的代码:
uses
Registry; procedure EnableTaskManager(YesNo : boolean);
const
sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(sRegPolicies+'\System\',True) then
begin
case YesNo of
False:
begin
WriteInteger('DisableTaskMgr',1);
end;
True:
begin
WriteInteger('DisableTaskMgr',0);
end;
end;
end;
CloseKey;
if OpenKey(sRegPolicies+'\Explorer\',True) then
begin
case YesNo of
False:
begin
WriteInteger('NoChangeStartMenu',1);
WriteInteger('NoClose',1);
WriteInteger('NoLogOff',1);
end;
True:
begin
WriteInteger('NoChangeStartMenu',0);
WriteInteger('NoClose',0);
WriteInteger('NoLogOff',0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;