如何遍历外部程序的SysTreeView32?(33)

如何遍历外部程序的SysTreeView32?并且选中其中某项,发送TVM_SELECTITEM可以选中一项,但是这个消息要用到一个HITEM参数,我现在的方法只能用遍历的方法找出对应的项然后得到这个参数,然后选中,谁告诉个方法遍历啊???">如何遍历外部程序的SysTreeView32?

请看看TVM_GETNEXTITEM和TVM_GETITEM消息，消息参数里带的指针必须在窗口所属进程空间地址内有效。

procedure TForm1.Button1Click(Sender: TObject);var Count : Integer; H : Integer; I : Integer; Len : Integer; str : string;begin H := StrToInt(Edit1.Text);//listbox的句柄 Count := SendMessage(H,LB_GETCOUNT,0,0); for I := 0 to Count-1 do begin Len := SendMessage(H,LB_GETTEXTLEN,I,0); SetLength(str,Len); SendMessage(H,LB_GETTEXT,I,Integer(PChar(str))); ListBox1.Items.Add(str); end;end; 这个是读LISTBOX的，道理差不多，把所有内容读到自己的控件里，想怎么遍历都可以，