Ver Mensaje Individual
  #8  
Antiguo 10-04-2004
verm83 verm83 is offline
Miembro
 
Registrado: nov 2003
Posts: 28
Reputación: 0
verm83 Va por buen camino
Sí que hay solución, y es la siguiente:
Antes de nada, añade registry en el uses de tu form, y luego, suponiendo que tienes un botón Button1, su evento clic sería este:


Código:
procedure TForm1.Button1Click(Sender: TObject);
 
  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; 
 
begin  
  //Desabilitamos el Ctrl-Alt-Del (Con False vuelve a estar habilitado)
  DisableTaskMgr (True);
end;
El código lo insertas ya donde te venga mejor Esta solución está sacada de la web we Q3, y yo lo usé hace tiempo. Espero que te sirva si aún sigues interesado.
__________________
IncestoCanibal.com
Responder Con Cita