Emulando Copy ´n Paste

Delphi

15/12/2005

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


Paulocesar1301

Paulocesar1301

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

15/12/2005

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;



GOSTEI 0
Paulocesar1301

Paulocesar1301

15/12/2005

Brigadíssimo....
Funcionou blz


GOSTEI 0
POSTAR