Delphi 获取其它软件的TListBox句柄，怎么取得ListBox中的数据

本文整理自网络，侵删。

 
//感谢冰力不足 提供
function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;
var
vItemCount: Integer;
I: Integer;
S: string;
begin
Result := False;
if not Assigned(mStrings) then Exit;
mStrings.BeginUpdate;
try
mStrings.Clear;
vItemCount := SendMessage(mHandle, LB_GETCOUNT, 0, 0);
for I := 0 to vItemCount - 1 do
begin
SetLength(S, SendMessage(mHandle, LB_GETTEXTLEN, I, 0));
SendMessage(mHandle, LB_GETTEXT, I, Integer(@S[1]));
mStrings.Add(S);
end;
SetLength(S, 0);
finally
mStrings.EndUpdate;
end;
Result := True;
end;
 

相关阅读 >>

Delphi mediaplayer 左声道右声道

Delphi apihook

Delphi 两个exe之间共享数据

Delphi隐藏进程

Delphi system 中的数学函数

Delphi webbrowser选中文本操作 设置webbrowser的内容

Delphi 获取本机公网ip

Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

Delphi异常重启自身

Delphi date 返回当前的日期

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取其它软件的TListBox句柄，怎么取得ListBox中的数据