simular ctrl V

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.

amigo naum existe vk_f

me ajudemmmm pleaseeeeee
se 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 problema
desde já obrigado

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

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!

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

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

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ódigo

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.SelectAll;
edit1.cuttoclipboard;

end;


se quiser copiar o comando é copytoclipboard
e se quiser colar algo o comando é pastefromclipboard

o problema é q preciso simular o ctr + v fora da minha aplicação pra mandar pra outra sabe

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