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