Discussion :

[tintin62]

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;

[ShaiLeTroll]

C'est normal, une ListBox c'est des items : LB_GETTEXT et LB_GETTEXTLEN

[tintin62]

bonjour
ok merci vais modifier

[tintin62]

bonjour
viens de trouver une procedure qui marche nikel
merci encore a ShaiLeTroll qui ma orienter sur cette solution

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
20
21
22
23
24
25
26
 
procedure GetListBoxItems(Handle: HWND; Target: TListBox);
var
  I: Integer;
  ItemCount: Integer;
  TextBuffer: string;
  TextLength: Integer;
begin
  ItemCount := SendMessage(Handle, LB_GETCOUNT, 0, 0);
  if ItemCount <> LB_ERR then
  begin
    Target.Items.BeginUpdate;
    try
      Target.Clear;
      for I := 0 to ItemCount - 1 do
      begin
        TextLength := SendMessage(Handle, LB_GETTEXTLEN, I, 0);
        SetLength(TextBuffer, TextLength);
        SendMessage(Handle, LB_GETTEXT, I, LPARAM(PChar(TextBuffer)));
        Target.Items.Add(TextBuffer);
      end;
    finally
      Target.Items.EndUpdate;
    end;
  end;
end;