Ver Mensaje Individual
  #2  
Antiguo 07-10-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Tienes la versión actualizada?

Habilitarlo:


Código:
 
var 
   dummy : integer;
 
 {Volver a conectarlo:}
 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);
 
 

Enviado por: Jacobo Brito Salas (sistemas_brito@hotmail.com)
Para Win 2000 y XP:
 
Añade registry en el uses de tu form
 
 
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
  //Disable Ctrl-Alt-Del
  DisableTaskMgr (True);
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita