dê seu feedback
post favorito
Como ligar ou desligar Caps Lock usando Delphi
Como ligar ou desligar Caps Lock usando Delphi
Como ligar ou desligar Caps Lock usando Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if(KeyState[VK_CAPITAL] = 0) then
begin
Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end
else
begin
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;
Execute o aplicativo e clique no botão. Você verá que a cada clique no botão, a "luzinha" do Caps Lock é acesa ou apagada.
FONTE: http://www.arquivodecodigos.net/arquivo/tutoriais/delphi/ligar_desligar_caps_lock.php
2 COMENTÁRIOS
Márcio Lopes
em 7/7/2008 18:56 - Responder
//
// ex. tbSetCapsLock(true);
//
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;
em 7/7/2008 18:56 - Responder
[Comentário do autor]
Gladstone Matos Gomes
em 7/7/2008 20:35 - Responder
Obrigado Marcio!
em 7/7/2008 20:35 - Responder
[Este post ainda não foi associado a uma sequência]
Você está em:
canal Delphi
Publicidade
Estudo comparativo entre banco de dados IBM Informix e Microsoft SQL
0
0
Conheça os planos de créditos DevMedia e visualize esse post agora mesmo!