Funkcia DisableTaskMgr zmení v registroch v HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System záznam DisableTaskMgr na hodnout 1 alebo ho úplne vymaže.

procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);
  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableTaskMgr(True);
end;
Tento článok pridal igo dňa 14.04.2007 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.