Fórum Emulando Copy ´n Paste #305539
15/12/2005
0
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
Não queria trabalhar com TClipBoard e gostaria de utilizar o próprio RWindows para isso.
Desde já agradeço
Paulocesar1301
Curtir tópico
+ 0
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
Gostei + 0
15/12/2005
Paulocesar1301
Brigadíssimo....
Funcionou blz
Funcionou blz
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)