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