Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   desactivar tecla windows (https://www.clubdelphi.com/foros/showthread.php?t=42645)

anubis 18-04-2007 21:06:15

desactivar tecla windows
 
Y tambien otras teclas si cabe, como alt,alt+tab,ctrl....
He probado a usar este truco pero no me funciona porque me sigue saliendo el inicio si pulso la tecla windows

Código Delphi [-]
procedure Tfentrada.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  reg:TRegistry;

begin
  Reg :=TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    Reg.MoveKey( '\CLSID\{5b4dae26-b807-11d0-9815-00c04fd91972}',
                 '\CLSID\{-5b4dae26-b807-11d0-9815-00c04fd91972}',TRUE);
  finally
    Reg.Free;
  end;


end;
procedure Tfentrada.FormKeyPress(Sender: TObject; var Key: Char);
var
reg:tregistry;
begin
   Reg :=TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    Reg.MoveKey( '\CLSID\{5b4dae26-b807-11d0-9815-00c04fd91972}',
                 '\CLSID\{-5b4dae26-b807-11d0-9815-00c04fd91972}',TRUE);
  finally
    Reg.Free;
  end;
end;
he usado el onkeypress y el onkeydown, por separado pero tampoco funciona.

gracias

seoane 18-04-2007 21:11:56

Para deshabilitar teclas, no hay nada mejor que la unit de roman

http://romansg.net/index.php?pg=hooks

anubis 18-04-2007 21:54:36

gracias, asi si se aprende con todos ustedes, mirando, probando y dando la lata por parte de los novatos.:(

ya he metido el hooks, pero la verdad es que nose como se usa, aunqu elo tiene explicado mas o menos en la pagina de roman, pero nose como usarlo, o donde colocarlo.

gracias

por cierto, el codigo que puse antes si funciona pero desactivando el boton inicio pero usandolo con el raton no con el teclado.

anubis 19-04-2007 22:33:23

Ya averigue como funciona el hook. gracias de nuevo por la ayuda.


La franja horaria es GMT +2. Ahora son las 11:46:32.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi