Sobre o teclado
Bom Dia!
Preciso de saber uma função que detecta qualquer tecla que foi precionada, mesmo que a aplicação esteja minimizada ou que sejam digitados caracteres na area de trabalho por exemplo.
Obrigado pela atenção,
Paulo.
Preciso de saber uma função que detecta qualquer tecla que foi precionada, mesmo que a aplicação esteja minimizada ou que sejam digitados caracteres na area de trabalho por exemplo.
Obrigado pela atenção,
Paulo.
Anonymous
Curtidas 0
Respostas
Dor_poa
21/03/2003
olha.. eu tenho uma função que se o cara pressionar as teclas QUE EU DEFINIR em qualquer programa ele executa algo que eu queira.
Agora, vc. podera ter uma base de como fazer ou como adaptar isto ao seu problema..
function tbKeyIsDown(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
procedure TPrincipal.PegaTeclaTimer(Sender: TObject);
begin
If tbKeyIsDown(VK_CONTROL) Then // Tecla CTR
If tbKeyIsDown(VK_MENU) then // Tecla Alt
If tbKeyIsDown(81) then // tecla Q
CarregaSoftDeCamera;
// --------------------------------------------------
// | Ctr + Alt + Q |
// | Executa a caprura automatica |
// --------------------------------------------------
end;
Mas obs.: O timer esta com um interval de 80 Milsec.
Agora, vc. podera ter uma base de como fazer ou como adaptar isto ao seu problema..
function tbKeyIsDown(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
procedure TPrincipal.PegaTeclaTimer(Sender: TObject);
begin
If tbKeyIsDown(VK_CONTROL) Then // Tecla CTR
If tbKeyIsDown(VK_MENU) then // Tecla Alt
If tbKeyIsDown(81) then // tecla Q
CarregaSoftDeCamera;
// --------------------------------------------------
// | Ctr + Alt + Q |
// | Executa a caprura automatica |
// --------------------------------------------------
end;
Mas obs.: O timer esta com um interval de 80 Milsec.
GOSTEI 0
Anonymous
21/03/2003
Gostaria de saber se não existe alguma forma de pegar as informações no buffer do teclado, ou algo assim.
GOSTEI 0