Ver Mensaje Individual
  #1  
Antiguo 02-04-2005
unko! unko! is offline
Miembro
 
Registrado: ene 2005
Posts: 123
Reputación: 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