1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| procedure DisableCtrlAltDel;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',
True) then
Reg.WriteInteger('DisableTaskMgr', 1);
finally
Reg.CloseKey;
Reg.Free;
end;
end;
procedure EnableCtrlAltDel;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',
True) then
Reg.WriteInteger('DisableTaskMgr', 0);
finally
Reg.CloseKey;
Reg.Free;
end;
end; |
Partager