Jump to content

Turbine o seu Perfil

Confira a atualização e participe do clube!
Clique e saiba mais

Junte-se ao Clube de Membros VIP

Tenha destaque e diversos benefícios!
Confira Aqui

Acesse nosso Discord

Conheça nossos canais interativos
Confira Aqui
Notícia
  • Adquira já o seu VIP!
Sign in to follow this  
.:fuu:.

Keybd_Events [ Iniciante ]

Recommended Posts

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 :D

 

 

Pra faze isso se usa a API keybd_event do Windows.

 

1° Declare nas Uses ( acho que jah vem de "fabrica" declarado .-. ):

 

Windows

 

2° Exemplo -> Pressiona F2:

 

Declare em um button...

 

keybd_event(VK_F2, 0, 0, 0);

 

Exemplo:

 

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:

 

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:

 

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 '-'

 

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 .-.

Nao posto o link de um site com todos as VK's porque se nao o Edoo me da warn .-.

 

Bjundas ;*

Share this post


Link to post
Share on other sites

pra soltar os botões vc pode tambem alterar o 3 parametro simplesmente para 2

 

exemplo : keybd_event(VK_CONTROL,0,2,0);

 

eu sinceramente acho mais facil, fikdik ^^

Share this post


Link to post
Share on other sites

Excelente esse tutorial, servirá muito para comba com ele nos perfect worlds private

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...