怎么读那个combobox里的所有字符串？(100分)

用什么API得到已经捕获其句柄的对象的所有字符串<br>比如<br>&nbsp;GetCursorPos(Pos);<br>&nbsp; Handle := WindowFromPoint(Pos);<br><br>&nbsp; GetClassName(Handle, Buf, 1024);<br>&nbsp; if buf='Tcombobox' then<br>&nbsp; 如何把得到句柄的这个combobox的所有的items.text值赋给<br>memo.lines.add？？<br>小弟狂菜无比，但想写一个程序去读另一个程序中的combobox中的所有items<br>，第一次上DFW，还请多关照，：）

发送一些 cb_ 开头的消息不就搞定了？这类消息可完全操作其它程序的combobox，查一下msdn

高呀，不会，关注中，帮你UP一下

刚好是我那个软件中的一个小功能：<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=1747631<br><br>两个Message的简单应用，直接把代码拷贝给你吧：<br>function GetComboBoxItems(AHandle: THandle): string;<br>var<br>&nbsp; Count, I: Integer;<br>&nbsp; S: string;<br>begin<br>&nbsp; Count := SendMessage(AHandle, CB_GETCOUNT, 0, 0);<br>&nbsp; if Count &gt; 0 then<br>&nbsp; begin<br>&nbsp; &nbsp; Result := Format('[ComboBox] ItemCount: %d', [Count]);<br>&nbsp; &nbsp; for I := 0 to Count - 1 do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; SetLength(S, MAX_PATH);<br>&nbsp; &nbsp; &nbsp; SetLength(S, SendMessage(AHandle, CB_GETLBTEXT, I, Integer(Pointer(S))));<br>&nbsp; &nbsp; &nbsp; Result := Result + #13#10 + S;<br>&nbsp; &nbsp; end;<br>&nbsp; end<br>&nbsp; else<br>&nbsp; &nbsp; Result := '';<br>end;

3X。

那还不结帖