Fórum capsLock desativar #167453
02/07/2003
0
ola
como veririfico se a tecla capsLock esta ativada ao entrar no meu sistema e como desabilita-la via programação caso esteja ao entrar?
valeu
como veririfico se a tecla capsLock esta ativada ao entrar no meu sistema e como desabilita-la via programação caso esteja ao entrar?
valeu
Fer
Curtir tópico
+ 0
Responder
Posts
02/07/2003
Oberdan
Inclua na seção uses: Windows
{ Esta função liga/desliga Caps Lock, conforme o parãmetro State }
procedure tbSetCapsLock(State: boolean);
begin
if (State and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or
((not State) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then
begin
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;
{ Exemplos de uso: }
tbSetCapsLock(true); { Liga Caps Lock }
tbSetCapsLock(false); { Desliga Caps Lock }
[]
Oberdan
{ Esta função liga/desliga Caps Lock, conforme o parãmetro State }
procedure tbSetCapsLock(State: boolean);
begin
if (State and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or
((not State) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then
begin
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;
{ Exemplos de uso: }
tbSetCapsLock(true); { Liga Caps Lock }
tbSetCapsLock(false); { Desliga Caps Lock }
[]
Oberdan
Responder
Gostei + 0
02/07/2003
Fer
:lol: :lol: :lol: :lol:
Valeuuuuuuuu
Valeuuuuuuuu
Responder
Gostei + 0
02/07/2003
Oberdan
Tâmo aqui pra isso!
{}
Oberdan :)
{}
Oberdan :)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)