请教：如何模拟单击选中外部程序中某个listbox中的某一项？ ( 积分: 10 )

已知这个listbox的句柄，这个listbox中有多个文本项目，可是这些文本项本身并没有句柄，如何根据这个总的listbox的句柄来实现选择其中的某一项呢？当然手工是可以用鼠标点击选中某一项，只是如何编程实现呢？

procedure&nbsp;TFrm_Sjcwfp.SpeedButton6Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;i:integer;<br>begin<br>&nbsp;&nbsp;if&nbsp;listbox1.Items.Count&gt;0&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;i:=0&nbsp;to&nbsp;listbox1.Items.Count-1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;listbox1.Items.Strings=trim(Edt_fpno.Text)&nbsp;then&nbsp;exit;<br>&nbsp;&nbsp;&nbsp;&nbsp;listbox1.Items.Add(trim(Edt_fpno.Text));<br>&nbsp;&nbsp;end<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;listbox1.Items.Add(trim(Edt_fpno.Text));<br>&nbsp;&nbsp;Edt_fpno.SelectAll;<br>&nbsp;&nbsp;Edt_fpno.SetFocus;<br>end;

这是一个外部程序的LISTBOX，只能得到它的句柄，确认找到了正确的LISTBOX句柄，可是就是无法实现选择其中的某一项，手工是可以点击选中的，选中后的项为蓝色，可是编程就是无法搞定，有没有朋友愿意再指点一二呢？

模拟鼠标点击

接受答案了.