получить текст из заголовка чужого ListView

[BLACK_RAIN]

не буду многословен, сразу код:

  hProcess: THandle;
dwProcessID: DWORD;
dwBytesWriten: DWORD;
CloneFrom : hwnd; //хэндл чужого ListView
pszText: PChar;
svText: ShortString;
pRemoteHeaderItem : PHDItemA;
RemoteHeaderItem : _HD_ITEMA;

begin
dwProcessID := 0;
GetWindowThreadProcessId(CloneFrom, @dwProcessID);
if dwProcessID = 0 then Exit;
hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);
if hProcess = 0 then Exit;
pszText := VirtualAllocEx(hProcess, nil, 254,
MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
premoteheaderitem := VirtualAllocEx(hProcess, nil, SizeOf(phditema),
MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);

                  ZeroMemory(@RemoteHeaderItem, SizeOf(_hd_itema));
                  RemoteHeaderItem.Mask := HDI_TEXT or HDI_WIDTH;
                  RemoteHeaderItem.pszText := pszText;
                  RemoteHeaderItem.cchTextMax := 255;
                  if WriteProcessMemory(hProcess,pRemoteHeaderItem,@RemoteHeaderItem,
                                SizeOf(_hd_itema), dwBytesWriten) then
                  begin
                      header := хэндл заранее известен, ввожу вручную
                    SendMessage(header, HDM_GETITEM, 0, LongInt(@remoteHeaderItem));
                    ZeroMemory(@svText, 255);
                    ReadProcessMemory(hProcess, pszText,
                    @svText[1], 500, dwBytesWriten);
                    t := PChar(@svText[1]);
                    MessageBox(0,PChar(t),'',0);
                  end;
end;

Приходит пустое значение и крашится на MessageBox'e.

[waleri]

Начните с того, что проверяйте системные вызовы на предмет ошибок.
Например, вы уверены, что память была выделена? А вы уверены, что header получен правильно, что указывает на правильное окно и т.н.

[BLACK_RAIN]

Сообщение от waleri

Начните с того, что проверяйте системные вызовы на предмет ошибок.

GetLastError?

Сообщение от waleri

Например, вы уверены, что память была выделена? А вы уверены, что header получен правильно, что указывает на правильное окно и т.н.

уверен. Чужой ListView тоже мой и я знаю все хэндлы окон.
Проблема с крашем решена. Я выделял 254 байта, а получал 255.
но всё-равно приходит пустая строка.

[BLACK_RAIN]

Если память выделена и хэндлы получены правильно, в чем еще может быть дело?

[BLACK_RAIN]

Попробовал через LVM_GETCOLUMN

pRemoteColumn := VirtualAllocEx(hProcess, nil, SizeOf(_lv_column),
MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);

                    ZeroMemory(@RemoteColumn, SizeOf(_lv_column));
                    RemoteColumn.mask := LVCF_TEXT or LVCF_WIDTH;
                    RemoteColumn.pszText := pszText;
                    RemoteColumn.cchTextMax := 254;
                  if WriteProcessMemory(hProcess,pRemoteColumn,@RemoteColumn,
                                SizeOf(_lv_column), dwBytesWriten) then
                  begin
                    SendMessage(CloneFrom, LVM_GETCOLUMN,i, LongInt(@RemoteColumn));
                    ZeroMemory(@svtext,255);
                    ReadProcessMemory(hProcess,RemoteColumn.pszText,@svtext[1],255,dwBytesWriten);
                    t := PChar(@svText[1]);
                    MessageBox(0,PChar(t),'',0);
                  end;

всё-равно, для чужого процесса приходит пустое значение.

[waleri]

Проверяйте системные вызовы на предмет ошибок.

[BLACK_RAIN]

Сообщение от waleri

Проверяйте системные вызовы на предмет ошибок.

Какие вызовы проверить и как? GetLastError не достаточно?

[Krasiosoft]

Сообщение от BLACK_RAIN

Какие вызовы проверить и как? GetLastError не достаточно?

Тут проверить можно:

SendMessage() - при HDM_GETITEM, если удача, должен вернуть true, иначе false: msdn.
ReadProcessMemory() - если удача, должен вернуть true.

В случае, если функция завершается неудачно, то смотрите какую ошибку вернет GetLastError().

Сообщение от BLACK_RAIN

SendMessage(header, HDM_GETITEM, 0, LongInt(@remoteHeaderItem));
ZeroMemory(@svText, 255);
ReadProcessMemory(hProcess, pszText,
@svText[1], 500, dwBytesWriten);
t := PChar(@svText[1]);
MessageBox(0,PChar(t),'',0);

Приходит пустое значение и крашится на MessageBox'e.

Но скорей всего тут проблема в LongInt(@remoteHeaderItem), ведь Вы передаете указатель на структуру, которая в этой программе, а не в той, которой посылается сообщение. Скорей всего тут нужно так:

SendMessage(header, HDM_GETITEM, 0, LongInt(pRemoteHeaderItem));

И почему после SendMessage() Вы считываете 500 байт, а не 255? Ведь указывали в структуре:

RemoteHeaderItem.cchTextMax := 255;

[BLACK_RAIN]

Сообщение от Krasiosoft

Но скорей всего тут проблема в LongInt(@remoteHeaderItem), ведь Вы передаете указатель на структуру, которая в этой программе, а не в той, которой посылается сообщение.

Спасибо!!! Работает, но только со структурой _LV_COLUMNA.

Сообщение от Krasiosoft

И почему после SendMessage() Вы считываете 500 байт, а не 255? Ведь указывали в структуре:

RemoteHeaderItem.cchTextMax := 255;

уже исправил.

p.s. Немного не по теме, но как получить значение поля cx структуры _LV_COLUMNA? Там ширина столбца должна находиться.

[waleri]

Сообщение от BLACK_RAIN

Немного не по теме, но как получить значение поля cx структуры _LV_COLUMNA? Там ширина столбца должна находиться.

Прочитайте pRemoteColumn обратно в свою память и смотрите на cx