type
//屏蔽系统键
Thidekeys = CLASS(TThread)
private
Tim:integer;
protected
procedure execute;
override;
end;
////////////////////////////////////////////////////////////////////////////////
//屏蔽系统键和任务管理器进程
///////////////////////////////////////////////////////////////////////////////
procedure Thidekeys.execute;
var
rect1:trect;
begin
while MainForm.CloseBz=falsedo
begin
//将鼠标锁定在某一范围
{ rect1.Left:=mainform.Pan_login.Left;
rect1.Top:=mainform.Pan_login.Top;
rect1.Right:=mainform.Pan_login.Left+mainform.Pan_login.Width;
rect1.Bottom:=mainform.Pan_login.Top+mainform.Pan_login.Height;
LockedMouse(rect1,true);
}
rect1.Left:=10;
rect1.Top:=10;
rect1.Right:=screen.Width-20;
rect1.Bottom:=screen.Height-20;
LockedMouse(rect1,true);
//关闭EXPLORER.EXE
HideProcess('EXPLORER.EXE');
HideProcess('explorer.exe');
//屏蔽任务管理器
HideProcess('TASKMGR.EXE');
HideProcess('taskmgr.exe');
MainForm.BringToFront;
sleep(100);
end;
end;
