Copiar/pegar desde el Clipboard a otra Aplicación

[broly7]

Hola buenos dias.
Quizás soy un poco novato en esto, pero se me ha planteado un problema.
La idea es pegar el texto que haya en un TEdit de mi aplicación a otra aplicación con una casilla de texto que no tiene nada que ver.

Me explico, mi aplicación ejecuta otra nueva aplicación, y nada mas ejecutar esta nueva, el foco está en una casilla de texto que es donde automáticamente quiero copiar el contenido de mi TEdit. Y nose si se haria copiándolo desde el portapapeles o nose muy bien, muchas gracias.

[[Caral]]

Hola
Por tiempo limitado.
Sirve para practicar.
Saludos
PD: Se ha colocado en el foro muchas veces, es cuestion de buscar.

[broly7]

Empezado por Caral

Hola
Por tiempo limitado.
Sirve para practicar.
Saludos
PD: Se ha colocado en el foro muchas veces, es cuestion de buscar.

Gracias por molestarte, pero no me ha solucionado el problema. Ya que el texto que quiero enviar no es a otro programa hecho en Delphi.
He probado este mismo ejemplo y no funciona.
El otro programa se inicia con el foco en una casilla de texto, pero aun así no funciona =/

[ecfisa]

Hola broly.

Si no te entiendo mal y tomando para el ejemplo un TEdit, esto tiene que funcionarte dentro y fuera de tu aplicación:

Para copiar el texto del Edit al portapapeles:

Código Delphi [-]
...
uses ClipBrd;
...
procedure TForm1.Copiar1Click(Sender: TObject);
begin
  ClipBoard.SetTextBuf(PChar(Edit1.Text));
end;

Utilizando botón derecho del mouse->pegar o Ctrl+V, podrás pegar el texto del TEdit en el navegador, explorador, Block de notas, WordPad, etc.

Lógicamente, la otra aplicación debe permitir la posibilidad de recibir el texto desde el portapapeles.

Un saludo.

[broly7]

Empezado por ecfisa

Hola broly.

Si no te entiendo mal y tomando para el ejemplo un TEdit, esto tiene que funcionarte dentro y fuera de tu aplicación:

Para copiar el texto del Edit al portapapeles:
Código Delphi [-]... uses ClipBrd; ... procedure TForm1.Copiar1Click(Sender: TObject); begin ClipBoard.SetTextBuf(PChar(Edit1.Text)); end;

Utilizando botón derecho del mouse->pegar o Ctrl+V, podrás pegar el texto del TEdit en el navegador, explorador, Block de notas, WordPad, etc.

Lógicamente, la otra aplicación debe permitir la posibilidad de recibir el texto desde el portapapeles.

Un saludo.

Lo permite, gracias. La idea sería automatizarlo, osea simplemente sin usar el CTRL+V, que pegre FromClipboard en ese recuadro ^^
1 Saludo.