Вопрос # 6 451: …са в следующем: Есть процедура считывания с чужого листа ListView и… (Общие вопросы по программированию)

Здравствуйте!
Суть вопроса в следующем:

Есть процедура считывания с чужого листа ListView или syslistview32 в свой TStringGrid "GetListViewGrid"

Проблема в том, что в версии Delphi7, ячейки моих StringGrid'ов заполняются, а в версии DelphiXE ячейки StringGrid'ов становятся ПУСТЫМИ.

(Предварительно ячейки моих StringGrid'ов заполнены нулями)

Приложение:

{{code|delphi}}
procedure GetListViewGrid(ALVHandle: HWND; AColumnCount, AItemCount: Integer;
ADataGrid: TStringGrid);
const
cchTextMax=255;
var
hProcess: THandle;
dwProcessID: DWORD;
dwWriten: DWORD;
LVItemCount: Integer;
i, j, nTextLength: Integer;
pLVItem: ^LV_ITEM;
LVItem: LV_ITEM;
pszText: PChar;
svText: ShortString;
begin
if ALVHandle=0 then
Exit;
LVItemCount := ListView_GetItemCount(ALVHandle);
if AItemCount>LVItemCount then
Exit;
if AItemCount>0 then
LVItemCount := AItemCount;
dwProcessID := 0;
GetWindowThreadProcessId(ALVHandle, @dwProcessID);
if dwProcessID=0 then
ExitProcess(GetLastError);
//hProcess := 0;
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);
if hProcess=0 then
ExitProcess(GetLastError);
pszText := VirtualAllocEx(hProcess, nil, cchTextMax, MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
pLVItem := VirtualAllocEx(hProcess, nil, SizeOf(LV_ITEM), MEM_COMMIT or MEM_TOP_DOWN,
PAGE_READWRITE);
ADataGrid.RowCount := LVItemCount;
ADataGrid.ColCount := AColumnCount;
ZeroMemory(@LVItem, SizeOf(LV_ITEM));
LVItem.Mask := LVIF_TEXT;
LVItem.pszText := pszText;
LVItem.cchTextMax := cchTextMax;
for i := 0 to LVItemCount do
begin
LVItem.iSubItem := 0;
if not WriteProcessMemory(hProcess, pLVItem, @LVItem, SizeOf(LV_ITEM), dwWriten) then
Exit;
nTextLength := sendMessage(ALVHandle, LVM_GETITEMTEXT, i, Integer(pLVItem));
ZeroMemory(@svText, cchTextMax);
ReadProcessMemory(hProcess, LVItem.pszText, @svText[1], nTextLength, dwWriten);
ADataGrid.Cells[1, i+1] := StrPas(PChar(@svText[1]));
for j := 0 to AColumnCount do
begin
LVItem.iSubItem := j;
if not WriteProcessMemory(hProcess, pLVItem, @LVItem, SizeOf(LV_ITEM), dwWriten) then
Exit;
nTextLength := sendMessage(ALVHandle, LVM_GETITEMTEXT, i, Integer(pLVItem));
ZeroMemory(@svText, cchTextMax);
ReadProcessMemory(hProcess, LVItem.pszText, @svText[1], nTextLength, dwWriten);
ADataGrid.Cells[j, i] := StrPas(PChar(@svText[1]));
end;
end;
VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);
VirtualFreeEx(hProcess, pLVItem, 0, MEM_RELEASE);
CloseHandle(hProcess);
end;
{{code|delphi}}
{{code|delphi}}
...
d := FindWindowEx(H3, 0, 'ListView20WndClass', nil);
GetListViewGrid(d, 2, 0, FindComponent(Format('StringGrid%d', [q])) as TStringGrid);
...
{{code|delphi}}