VPF::Как получить данные из TVirtualStringTree

fedorov2012

Дата 3.7.2014, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.8.2012

Репутация: нет
Всего: нет

Как прочитать данные первой колонки из TVirtualStringTree, зная его Handle. Для ListView делал так (правда в чужом процессе):

Код


procedure
  GetSnapshotListView(hwndRemoteSysListView: HWND);
var
  i: integer;
begin

 // Получаем количество элементов 
  nItemCount := ListView_GetItemCount(hwndRemoteSysListView);

  // Получаем ID процесса, которому принадлежит найденное окно
  GetWindowThreadProcessId(hwndRemoteSysListView, &dwProcessID);
  if dwProcessID = 0 then ExitProcess(GetLastError);

  // Открываем процесс
  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);
  if GetLastError <> 0 then ExitProcess(GetLastError);

  // Выделяем в нем память под структуру LVITEM
  plviRemoteLVItem := VirtualAllocEx(hProcess, nil, SizeOf(LV_ITEM),
   MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);
  if GetLastError <> 0 then ExitProcess(GetLastError);

  // Заполняем структуру
  ZeroMemory(@lviRemoteLVItem, SizeOf(LV_ITEM));
  lviRemoteLVItem.mask := LVIF_STATE or LVIF_TEXT;
  lviRemoteLVItem.pszText := pszText;
  lviRemoteLVItem.cchTextMax := cchTextMax;

  // Пишем ее в память удаленного процесса
  if not WriteProcessMemory(hProcess, plviRemoteLVItem, @lviRemoteLVItem,
  SizeOf(LV_ITEM), dwBytesWriten) then ExitProcess(GetLastError);

  // Получаем текст со всех элементов
  for I := 0 to nItemCount - 1 do
  begin
  // Отправляем сообщение с указателем на выделенный буфер
  nTextLength := SendMessage(hwndRemoteSysListView, LVM_GETITEMTEXT,
    I, Integer(plviRemoteLVItem));

  // Читаем результат
  ZeroMemory(@svText, cchTextMax);
  ReadProcessMemory(hProcess, lviRemoteLVItem.pszText,
    @svText[1], nTextLength, dwBytesWriten);

    Writeln(PChar(@svText[1]));
  end;

  // Освобождаем ранее выделенную память
  VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);
  VirtualFreeEx(hProcess, plviRemoteLVItem, 0, MEM_RELEASE);

  // Закрываем описатель процесса
  CloseHandle(hProcess);
end;

Это сообщение отредактировал(а) fedorov2012 - 3.7.2014, 15:50

fedorov2012

Дата 5.7.2014, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.8.2012

Репутация: нет
Всего: нет

Беру через WM_COPY (пробовал и через CTRL+C) копирую OtherVirtualStringTree в чужом процессе. Затем внедряю свою dll'ку в адресное пространство этого чужого пространства (через хуки). На старте (DLL_PROCESS_ATTACH) она выполняет создание формы и моего MyVirtualStringTree на ней. Выполняю MyVirtualStringTree.PasteFromClipbo ard отрабатывает корректно (возвращается True), но визуально копирование не происходит. Что не так?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »