怎么知道第三方软件里列表框的内容？

Question

//出丑了，刚才没看清楼主的要求
procedure TForm1.Button1Click(Sender: TObject);
var
   buf:array[0..100] of char;
   a:byte;
begin
   fillmemory(@buf,101,0);
   a:=sendmessage(listbox1.handle,lb_getcount,0,0);
   sendmessage(listbox1.handle,lb_gettext,0,longint(@buf));
   showmessage('共'+inttostr(a)+'行，第0行是'+buf);
end;

Answer 1

FindWindow API函数即可。
运行那个程序用Delphi带的工具Winsight查找那程序数listbox的句柄，然后
findwindow后发消息WM_GetText(lb_gettext??).
即可，我以前做过这样程序。