dez 5 2008

Ligando e desligando Caps Lock usando Delphi

?View Code 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: Arquivo de Códigos



2 Comentários:

Trackbacks

  1. iphone » Blog Archive » Ligando e desligando Caps Lock usando Delphi escreveu:
    […] Leia mais direto na fonte: http://www.infomaroto.com […]
    dezembro 6th, 2008 às 1:43 am
  2. delphi » Blog Archive » Ligando e desligando Caps Lock usando Delphi escreveu:
    […] Leia mais direto na fonte: http://www.infomaroto.com […]
    dezembro 6th, 2008 às 3:43 am

DEIXE UM COMENTÁRIO

Subscrever

Subscreve o Blog



Publicidade

Comentários Recentes

  • Jefferson Ferreira de brito: eu quero muito
  • thiago valente: Eu quero um para mim
  • Lucas martins balieiro: Eu não fiz o enem mesmo assim eu posso me inscrever no site essa é minha dúvida, só queme...
  • Francisca Marli Oliveira: quero saber quanto tenho no meu fgts
  • Santiago ribeiro de oliveira: Eu tô com carteira registrada eu tenho direito

Links

Leitores Recentes

VALE O CLIQUE!

Site Seguro Ocioso

Divulgue o blog Infomaroto em seu site e tenha seu link ou banner aqui.
Blog Infomaroto