FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
__________________
HazTa La VikToRia... SIEMPRE! |
#2
|
||||
|
||||
Sencillo,
Donde esta negrita por false Cita:
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!! |
|
|
|