Emulando Copy ´n Paste

15/12/2005

1

Alguém sabe como posso emular o copy ´n paste no teclado (CTRL+C e CTRL+V) em tempo de execução.
Não queria trabalhar com TClipBoard e gostaria de utilizar o próprio RWindows para isso.

Desde já agradeço


Responder

Posts

15/12/2005

Adriano Santos

Alguém sabe como posso emular o copy ´n paste no teclado (CTRL+C e CTRL+V) em tempo de execução. Não queria trabalhar com TClipBoard e gostaria de utilizar o próprio RWindows para isso. Desde já agradeço



Vê se isso ajuda:

[color=red:d4e8c6f1b9]Copia[/color:d4e8c6f1b9]
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Mantém pressionada CTRL }
  edit1.setfocus;
  edit1.SelectAll;
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
  keybd_event(67 {Tecla C}, 0, 0, 0);
  { Libera (solta) CTRL }
  keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;



[color=red:d4e8c6f1b9]Cola[/color:d4e8c6f1b9]
procedure TForm1.Button2Click(Sender: TObject);
begin
  { Mantém pressionada CTRL }
  edit2.SetFocus;
  keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
  keybd_event(86 {Tecla V}, 0, 0, 0);
  { Libera (solta) CTRL }
  keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;



Responder

15/12/2005

Paulocesar1301

Brigadíssimo....
Funcionou blz


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira