Emulando Copy ´n Paste
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
Clique aqui para fazer login e interagir na Comunidade :)