两个程序中,ListBox中数据的传递.

Question

两个EXE程序A,B.程序A,B分别有一个LISTBOX,程序B怎样得到程序A的LISTBOX中的内容到自己的LISTBOX,怎么解决啊

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  hp, hc: THandle;
  lbStr: array[0..255] of Char;
  i, iCount: Integer;
begin
  hp := FindWindow('TfrmHints', 'frmHints');  //另一程序之窗体
  hc := FindWindowEx(hp, 0, PChar('TListBox'), '');
  iCount := SendMessage(hc, LB_GETCOUNT, 0, 0);
  for i := 0 to iCount - 1 do
  begin
    SendMessage(hc, LB_GETTEXT, i, Integer(Pointer(@lbStr)));
    Memo1.Lines.Add(StrPas(lbStr));
  end;
end;

Answer 2

感谢weizi2000(秋风啊)如果程序A中的ListBox改成 ListView有相应的消息吗