SendMessage WM_GETTEXT memo

Version imprimable

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:

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;

21/02/2023, 14h20
ShaiLeTroll

C'est normal, une ListBox c'est des items : LB_GETTEXT et LB_GETTEXTLEN
21/02/2023, 15h01
tintin62

bonjour
ok merci vais modifier

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

Code:

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;