capsLock desativar

Delphi

02/07/2003

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


Fer

Fer

Curtidas 0

Respostas

Oberdan

Oberdan

02/07/2003

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


GOSTEI 0
Fer

Fer

02/07/2003

:lol: :lol: :lol: :lol:
Valeuuuuuuuu


GOSTEI 0
Oberdan

Oberdan

02/07/2003

Tâmo aqui pra isso!

{}
Oberdan :)


GOSTEI 0
POSTAR