Copier (ok) mais coller ?

iop !

Petit soucis avec un collage provenant du presse-papier, voila mon bout de code :

je pose un edit et 2 boutons, sur le bouton 1 (ajouter ClipBrd dans les uses) :
 ClipBoard.AsText := edit1.text;

puis sur le 2eme, je voudrais qu'il prenne la "prochaine application ouverte" (comme si je fais un alt-tab ou un application.minimise) et qu'il "colle" (puis entrer tant qu'on y est.)

J'avais bidouillé un keyb_event avec alt+tab puis ctrl + V puis enter mais c'est crade et c'est pas fiable DU TOUT (d'ailleurs rien ne s'est collé car tout est executé trop rapidement).

Donc existe t-il la possibilité - une fois mon application réduite ou alt-tabbée - de faire comme un "ClipBoard.Paste;" ou un "Api_Windows_que_je_ne_connais_pas.WMESSAGEPASTE;" peut importe l'endroit où je me trouve (sur un navigateur dans un champs de recherche, sous MSN en train de chatter, etc) ?

Salut,

Et un glisser/coller ne te conviendrait-il pas?
L'application source envoie le msg msgInDrag à la fenêtre qui se trouve sous le curseur et... hop! 
Mais encore faut-il que l'application destinataire soit sensible à ce message...

Non, enf ait, dans l'appli, il y a 2 boutons et 1 edit.
Le 1er mets simplement le texte de l'edit en clipboard et le second doit coller ce contenu dans l'appli suivante (alt-tab ou minimize).
Le glisser n'est pas possible :(

Salut,

envoie un WM_PASTE

 
@+
Cirec

---

j'ai oublié ...

tu pouvais le faire directement à la place de passer par l'unité ClipBrd

            Edit1.SelectAll;
            Edit1.CopyToClipboard;
            Application.ProcessMessages;




 
@+
Cirec

---

Cirec: envoie un WM_PASTE
Mais encore ? ^^

ben tu récupères le Handle de la fenêtre courante
puis:

  SendMessage(HandleFenetreCourante, WM_PASTE, 0, 0);
c'est tout

 
@+
Cirec

---

okok, donc je fais un "application.minimize;" puis "recup le handle de la fenetre courante" puis "sendmsg wpaste", je tente ça dès que j'ai le temps :]
 (je bosse un minimum quand meme)

Test non concluant :

procedure TForm1.Button2Click(Sender: TObject);
var
 fHandle:HWND;
begin
  application.ProcessMessages;
  application.minimize; // pour que la prochaine appli active soit le bon handle
  sleep(1000); // même sans, meme en passant par un timer pour faire un pause.
  fHandle:=GetFocus; // le handle en question
  SendMessage(LeHandle, WM_PASTE, 0, 0); // je lui envoie un "coller"
end;


so why ça marche pas donc !?

Il  ne faut pas seulement récuperer le Handle de la fen^tre mais aussi celui de l'Edit ou du control qui doit recevoir le teste:

ce code fonctionne avec NotePad juste derièrre l'application

procedure TForm1.Button2Click(Sender: TObject);
Var LeHandle: THandle;
begin
  Edit1.SelectAll;
  Edit1.CopyToClipboard;
  Application.Minimize;
  Application.ProcessMessages;
  LeHandle := GetForeGroundWindow;
  LeHandle := FindWindowEx(LeHandle, 0, 'Edit', Nil);
  Sleep(50);
  SendMessage(LeHandle, WM_PASTE, 0, 0);
end;


 
@+
Cirec

---