已经获取其它软件的TListBox句柄，怎么取得ListBox中的数据？(200分)

已经获取其它软件的TListBox句柄，怎么取得ListBox中的数据？
用Sendmessage么？参数是什么？

内存中肯定有，只是一时也不知道咋取它的首地址，然后可以读出来了

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;

谢谢冰力不足兄啦：-）