Fórum quot;proibirquot; programa de fechar... #165303

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 
    reg.WriteString(´DisableTaskMgr´, ´1´)
  else if bTF = False then 
    reg.DeleteValue(´DisableTaskMgr´)
  reg.CloseKey; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DisableTaskMgr(True); 
end;