bonjour
je voudrais copier le texte d'une listbox (application externe)
avec sendmessage dont je connais le handle que je met dans edit1.text
avec le handle d'un memo j'arrive a avoir le texte mais sur une listbox rien
voici mon code que j'ai télécharger surement sur le site
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.Button3Click(Sender: TObject);
   var
  NpWnd, NpEdit: HWnd;
  Buffer: String;
  BufLen: Integer;
  valeur:string;
begin
  Memo1.Clear;
    valeur:=edit1.Text ;
    NpEdit := strtoint(valeur);
    if NpEdit <> 0 then
    begin
      BufLen := SendMessage(NpEdit, WM_GETTEXTLENGTH, 0, 0);
      SetLength(Buffer, BufLen + 1);
      SendMessage(NpEdit, WM_GETTEXT, BufLen + 1, LParam(PChar(Buffer)));
      Memo1.Lines.Text := Buffer;
    end;
end;