simular ctrl V

Question

como simular o ctrl Vme ajudem pleaseficarei muito agradecido...

Carnette · Answer

Tirado do 850 dicas e truques em delphi do LloydSfot..

267 - Simular o pressionamento de uma combina��o de teclas
ex: Ctrl+V

Inclua na se��o uses: Windows

{ Mant�m pressionada CTRL }
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);

{ Pressiona V }
keybd_event(VK_V, 0, 0, 0);

{ Libera (solta) CTRL }
keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
Observa��es

Neste exemplo pressionamos Ctrl+F2. N�o se esque�a das teclas que precisam manter pressionadas: Ctrl, Alt, Shift.

Robotizar · Answer

amigo naum existe vk_fme ajudemmmm pleaseeeeeese souberem como enviar um texto pra outra aplica��o aberta tipo to com o bloco de notas aberto e mandar  a string � ol� � pra ele e funcionar tb resolve meu problemadesde j� obrigado...

Carlosrm · Answer

robotizar,(No evento OnKeyDown do formul�rio (e coloque a propriedade KeyPreview do formul�rio = true) procedure TForm1.FormKeyDown(...);begin If (Shift = [ssCtrl]) and (key = 86) then     Showmessage(�Pressionei Ctrl e V juntos.�);     // N�o testei se isso  � cola� uma string. Talvez seja necess�rio usar        //  a manipula��o do Clipboard. D� uma pesquisada no help ...!end;Obs: lembre-se de que h� outras alternativas, tamb�m. carlosrm...

Th�o · Answer

atribua a propriedade KeyPreview do form o valor �True�

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = ord(�V�)) then
ShowMessage(�Control+V foi pressionada�);
end;

Espero ter ajudado!

Robotizar · Answer

vcs num entenderam...eu quero simular o precionamento destas teclass e naum verificar se estaum precioandas...

Th�o · Answer

Desconsidere minha resposta. N�o tinha entendido o que voc� realmente precisava!...

Zoom · Answer

Experimenta esta a�:Esta � a fun��o recortar e n�o a simul��o de ctrl + v ponha um edit e um button e no on click do button o seguinte c�digoprocedure TForm1.Button1Click(Sender: TObject);beginedit1.SelectAll;edit1.cuttoclipboard;end;se quiser copiar o comando � copytoclipboarde se quiser colar algo o comando � pastefromclipboard...

Robotizar · Answer

o problema � q preciso simular o ctr + v fora da minha aplica��o pra mandar pra outra sabe...

Beppe · Answer

Pode tentar mandar uma mensagem WM_PASTE pro handle do outro aplicativo. Tamb�m tem a unit SendKeys no CD do Delphi, pasta Extras, da� d� pra simular teclas.Ataliba...

F�rum simular ctrl V #191307