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;

推荐分享