prohibe Control + alt + del

[unko!]

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:

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

[vtdeleon]

Sencillo,

Donde esta negrita por false

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.