CTRL+V Automatizado.

[broly7]

¿Es posible pegar texto del portapapeles a mi navegador por ejemplo, estando mi programa minimizado o en 2do plano, sin tener que pulsar CTRL+V o click dcho pegar?
Gracias.

[rastafarey]

Haber si entiendo quieres pegar texto sin hacer nada. Disculpa por la pregunta pero como lo quieres hacer con una varita magica o algo por el estilo.

[[gatosoft]]

Broly7, el tema ya se habia tratado por ahi en otros foros... aqui encontre un ejemplo de ello...
http://www.clubdelphi.com/foros/showthread.php?t=72693

Pero te recomiendo este:

http://www.clubdelphi.com/foros/showthread.php?t=68083

ya que aui presentan una alternativa para simular pulsaciones de taclas en otra aplicación con keybd_even ... y creo que podrias intentar un ctrl-v

suerte... y por cierto, si encuentras la solucion postealo para que quede en la Bd de conocimeinto del club..

bye

[broly7]

Gracias conseguí resolverlo, adaptándolo a mis necesidades. (Si, con una varita mágica Rastafarey ¬¬)

Código Delphi [-]
Function CTRLV:string;
var
wnd: HWND;
begin
wnd := FindWindow (Nil,'Sin título - Bloc de notas');
BringWindowToTop(wnd);
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event($56, 0, 0, 0); // Ctrl+'V'
keybd_event($56, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

Sólo una ayudaita más. Mi programa tarda un poco en cargar (no es el bloc de notas), la idea sería abrirlo y seguidamente hacerle un ctrl+v, ¿Cómo puedo saber cuando estará listo el programa externo para ser manipulado? Seria algo como if findwindow creo nose...gracias.

[[gatosoft]]

Excelente solucion Broly7,

Por otro lado te comento que según las normas del club, deberías abrir un nuevo hilo para una nueva pregunta, y antes que nada, hacer una busqueda en el histórico del foro...

La pregunta que haces, (si la entendí bien) tambien es muy popular por aqui... mira por ejemplo, la respuesta de Roman en este hilo:

http://www.clubdelphi.com/foros/showthread.php?t=59726

que por cierto a su vez remite a este otro hilo:

http://www.clubdelphi.com/foros/show...34&postcount=2


PDTA: Por cierto... no olvides colocar aqui tu solución, si logras resolver tu problema...
Un saludo,