Desativar Derterminada Tecla

[Guest ronaci]

boa noite amigos mas estou procurando um comando para habilitar e desabilitar uma determinada tecla e que ela fique desabilitada em qualquer prg !!por favor se possivel detalhes , possuo conhecimentos basicos de delphi !! desde já obrigado !

[fercosmig]

 procedure TurnOffKey(Key: integer);
Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[Key] = 1) then
begin
KeyState[Key] := 0;
end;
SetKeyboardState(KeyState);
end;

opa! acho que o 1 ali no if é o codigo ascii da tecla (if (KeyState[Key] = 1) then)

qqer coisa posta aí!

abraços