Ver Mensaje Individual
  #7  
Antiguo 13-09-2005
Avatar de DarkDrakon
DarkDrakon DarkDrakon is offline
Miembro
 
Registrado: abr 2005
Ubicación: Tacna - Peru
Posts: 46
Reputación: 0
DarkDrakon Va por buen camino
Talking Algo ke te puede Servir

Bueno a mi me Funciono esto en Win98:

Código:
var
  dummy : integer;

{Desactivar el  Ctrl-Alt-Del:}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0);
Como Volver a Activarlo:

Código:
 
var
  dummy : integer;

{Volver a Activarlo}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);
Esto me Funciono para WinXP y 2000

Añade Registry en el uses de tu form

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 = Truethen
	 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;
__________________
Dark Drakon::


"Ego sum Draco dormiens ... Aut insanit Draco, aut Versus facit..."

Responder Con Cita