Club Delphi  
    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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-04-2005
unko! unko! is offline
Miembro
 
Registrado: ene 2005
Posts: 123
Poder: 20
unko! Va por buen camino
prohibe Control + alt + del

ola, estaba navegando por ahi y encontre un codigo para no admitir el tecleo de CONTROL + ALT + DEL y lo intente, si funciona pero el problema es ke no solo funciona en la aplicacion, sino ke hasta fuera de ella, incluso en el inicio de windows aunke no se haya ejecutado la aplicacion... hay alguna forma de revertirlo o quitarlo??

aka les dejo el codigo, pasara al clickear el boton:
Código:
unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, registry, StdCtrls;
 
 type
   TForm1 = class(TForm)
 	Button1: TButton;
 	procedure Button1Click(Sender: TObject);
   private
 	{ Private declarations }
   public
 	{ Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 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;
 
 end.
PD: es el codigo para ke el CONTROL + ALT + DEL no funcione
__________________
HazTa La VikToRia... SIEMPRE!
Responder Con Cita
  #2  
Antiguo 03-04-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Sencillo,

Donde esta negrita por false
Cita:
Empezado por unko!
Código Delphi [-]
begin
//Desabilitamos el Ctrl-Alt-Del
//Disable Ctrl-Alt-Del
DisableTaskMgr (True);//Aqui pon False en vez de True
end;
 
end.
No lo he probado, espero que te sirva.

Hasta luego.
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!

Última edición por vtdeleon fecha: 03-04-2005 a las 02:15:23. Razón: Aclarar!!
Responder Con Cita
Respuesta



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 01:38:39.


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