SoloCodigo

Programación General => Delphi => Mensaje iniciado por: mayito en Miércoles 21 de Septiembre de 2005, 21:32

Título: Capturar Ctr+alt+del
Publicado por: mayito en Miércoles 21 de Septiembre de 2005, 21:32
necesito capturar el evento generado por CTR+ALT+DEL, o evitar que alguien pulse esta combinacion de teclas...he probado poniendo un hook y nada, captura todos los eventos al presionar y soltar cualquier tecla, excepto esta combinacion....Esto es en WINDOWS XP.
Título: Re: Capturar Ctr+alt+del
Publicado por: bartolomeo en Miércoles 21 de Septiembre de 2005, 22:02
Código: Text
  1.  
  2.  procedure TForm1.Button1Click(Sender: TObject);
  3.  
  4.    procedure DisableTaskMgr(bTF: Boolean);
  5.    var
  6.    reg: TRegistry;
  7.    begin
  8.    reg := TRegistry.Create;
  9.    reg.RootKey := HKEY_CURRENT_USER;
  10.  
  11.    reg.OpenKey('Software', True);
  12.    reg.OpenKey('Microsoft', True);
  13.    reg.OpenKey('Windows', True);
  14.    reg.OpenKey('CurrentVersion', True);
  15.    reg.OpenKey('Policies', True);
  16.    reg.OpenKey('System', True);
  17.  
  18.    if bTF = Truethen
  19.    begin
  20.      reg.WriteString('DisableTaskMgr', '1');
  21.    end
  22.    else if bTF = False then
  23.    begin
  24.      reg.DeleteValue('DisableTaskMgr');
  25.    end;
  26.    reg.CloseKey;
  27.    end;
  28.  
  29.  begin
  30.    //Desabilitamos el Ctrl-Alt-Del
  31.    //Disable Ctrl-Alt-Del
  32.    DisableTaskMgr (True);
  33.  end;
  34.  

Holaaaaaa, primero que todo bienvenido(a) al foro  :blink: , siempre recibo con agrado a las personas que hacen preguntas buenas como tu  :D

Este codigo no es de mi autoria, una vez lo encontre por hay en internet  :ph34r:  y me parecio util, ahora es el momento, disfrutalo  :comp:

Chaussss
Título: Re: Capturar Ctr+alt+del
Publicado por: bartolomeo en Miércoles 21 de Septiembre de 2005, 23:29
y si lo necesitas para 98 y 2000 es mas facil solo me dices  :kicking: