解决此问题，定送1000分(0分)

我要取另一软件的listbox的一行值，这个软件的listbox中的每行都没有显示全，我想像金山词霸鼠标取词一样把这一行值取出来，怎么做？我对listbox的消息常量不太熟悉，已经一年多没弄delphi了,我提供Listview的Handle，最后把取出的值点保存后放入文本文件中。誰做成功定送1000分。急呀!!!

*************************************************<br>【激情大片疯狂电影让你爽】激情大片，完全免费！<br>http://www.007vod.com/viewmovie.asp?intcom<br>*************************************************<br>

我倒是有一个抓取外部listview的例子，带源码的，你需要的话，就留个EMAIL下来吧

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; handle:THandle;<br>&nbsp; i,j:integer;<br>&nbsp; buf:array [0..100] of char;<br>begin<br>&nbsp; handle:=FindWindow(nil,'Form1');<br>&nbsp; handle:=GetWindow(handle,GW_CHILD);<br>&nbsp; while handle&lt;&gt;0 do<br>&nbsp; begin<br>&nbsp; &nbsp; j:=SendMessage(handle,LB_GETCOUNT,0,0);<br>&nbsp; &nbsp; for i:=0 to j-1 do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; SendMessage(handle,LB_GETTEXT,i,integer(@buf[0]));<br>&nbsp; &nbsp; &nbsp; Memo1.Lines.Add(buf);<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; handle:=GetWindow(handle,GW_HWNDNEXT);<br>&nbsp; end;<br>end;