Fórum Desativar o Teclado #334841
17/12/2006
0
Estou preparando um software para a homologação do TEF Discado e uma das exigências é que o Teclado fique desabilitado durante a impressão dos cupons fiscal e TEF.
Até agora não consegui descobrir um maneira de fazer isso.
Por favor se alguem souber como faze-lo ou até mesmo tiver um exemplo eu ficarei imenssamente grato.
Atenciosamente,
Tadeu Rodrigues de Oliveira
Números Informática
:roll:
N_informatica
Curtir tópico
+ 0Posts
18/12/2006
Ffabiop
Declare as funções após a seção implementation:
FUNCTION GetKeyboardState(kbarray: array of integer):boolean; stdcall; external ´USER32.DLL´;
FUNCTION SetKeyboardState(kbarray: array of integer):boolean; stdcall; external ´USER32.DLL´;
Function GetKeyState(VirtualKeycode:integer):integer; stdcall; external ´User32.dll´;
function BlockInput(fBlockIt:boolean):boolean; stdcall; external ´User32.dll´;
para bloquear
BlockInput(true)
para desbloquear
BlockInput(false)
Gostei + 0
18/12/2006
N_informatica
Gostei + 0
18/12/2006
N_informatica
Consegui, funcionou sim oq vc me mandou mas ficou faltando bloquear a sequência das teclas CTRL+ALT+DEL
Já tentei varias dicas q encontrei aqui e em outros foruns mas nenhuma funcionou se puder me ajudar quanto a isso fico muito grato.
Desde já muito obrigado.
Tadeu
Gostei + 0
19/12/2006
Ffabiop
Mas precisa bloquear até o ctrl+alt+del? Sei lá, é um comando do SO.
Encontrou algo do tipo:
-declare a variavel:
var
OldValue : LongBool;
-para bloquear coloque o código:
SystemParametersInfo(97, Word(True),@OldValue, 0);
-para desbloquear o código faça:
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
Gostei + 0
19/12/2006
N_informatica
Abraço e Obrigado mais uma vez
Tadeu
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)