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 gridpanel percent百分比设置

Delphi检查网络连接状态3种方式

Delphi2010 编译变量$region用法

Delphi中如何向某个ip不间断的发送数据

Delphi webbrowser1 querystatuswb

Delphi 如何识别应用程序没有响应

Delphi 使用管道进程间通讯

Delphi 在程序运行时改变控件大小

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi 从流数据获知文件类型

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

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