Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 13-09-2005
Avatar de DarkDrakon
DarkDrakon DarkDrakon is offline
Miembro
 
Registrado: abr 2005
Ubicación: Tacna - Peru
Posts: 46
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:56:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi