![Keybd_Events [ Intermediario ] Sem_ta14](https://i.servimg.com/u/f46/17/26/31/60/sem_ta14.png)
Início
Warn![Keybd_Events [ Intermediario ] Empty](https://2img.net/i/empty.gif)
Tava perambulando pela net e axei esse tuto,mas tava meio confuso,entao dei uma arrumada e postei =D, ele serve pra simula o pressionamento de uma tecla 
Pra faze isso se usa a API keybd_event do Windows.
1° Declare nas Uses ( acho que jah vem de "fabrica" declarado .-. ):
2° Exemplo -> Pressiona F2:
Declare em um button...
Exemplo:
Ai pra testa fassa o seguinte:
- Mude a propriedade KeyPreview do form para true.
- Escreva no evento OnKeyDown do form como abaixo:
E para pressionar mais de 1 tecla:
Exemplo:
Nesse exemplo ao apertar o button2, vai se pressionado o comando Ctrl+F2 =]
Algumas teclas:
Se quiserem mais, procurem por virtual key no google '-'
Essas sao as mais basicas, nao vo posta o teclado intero .-.
Bjundas ;*
Pra faze isso se usa a API keybd_event do Windows.
1° Declare nas Uses ( acho que jah vem de "fabrica" declarado .-. ):
- Código:
Windows
2° Exemplo -> Pressiona F2:
Declare em um button...
- Código:
keybd_event(VK_F2, 0, 0, 0);
- Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_F2, 0, 0, 0);
end;
Ai pra testa fassa o seguinte:
- Mude a propriedade KeyPreview do form para true.
- Escreva no evento OnKeyDown do form como abaixo:
- Código:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F2 then
ShowMessage('F2 pressionada');
end;
E para pressionar mais de 1 tecla:
Exemplo:
- Código:
procedure TForm1.Button2Click(Sender: TObject);
begin
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //Mantém pressionada CTRL
keybd_event(VK_F2, 0, 0, 0); // Pressiona F2
keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //Libera (solta) CTRL
end;
Nesse exemplo ao apertar o button2, vai se pressionado o comando Ctrl+F2 =]
Algumas teclas:
Se quiserem mais, procurem por virtual key no google '-'
- Código:
VK_LBUTTON //Butao Esquerdo do mouse
VK_RBUTTON //Butao Direito Do Mouse
VK_MBUTTON //Scroll Do mouse
VK_BACK //BackSpace
VK_TAB //TAB
VK_RETURN //ENTER
VK_SHIFT // SHIFT
VK_CONTROL //CTRL
VK_MENU //ALT
VK_CAPITAL //CAPS LOCK
VK_ESCAPE //ESC
VK_SPACE //Espaço
VK_PRIOR //PAGE UP
VK_NEXT //PAGE DOWN
VK_END //END
VK_HOME //HOME
VK_LEFT //Flexinha esquerda do teclado '-'
VK_UP //Flexinha pra cima
VK_RIGHT //Flexinha direita do teclado
VK_DOWN //Flexinha pra baxo
VK_SNAPSHOT //Prt Scr ( print )
VK_INSERT //Insert
VK_DELETE //Delete
Essas sao as mais basicas, nao vo posta o teclado intero .-.
Bjundas ;*
![[G]uardião](https://2img.net/h/www.webcheats.com.br/forum/images/rank/guardiao.png "[G]uardião"){kind=icon}
