VPF::Работа с Lisbox чужого процесса - Форум программистов

Alexeis

Дата 6.12.2007, 14:02 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  Wnd: HWND;
  I, Amount: Integer;
  buf: array [0..255] of Char;

  PID, ProcessHandle, Dummy: DWORD;
  PCh: PChar;
  PItem: ^LV_ITEM;
  Item: LV_ITEM;
begin
   Wnd := FindWindow('DV2ControlHost',nil);
   Wnd := FindWindowEx(WND,0,'DesktopSFTBarHost',nil);
   Wnd := FindWindowEx(WND,0,'SysListView32',nil);

   GetWindowThreadProcessID(Wnd, @PID);
   ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);

   PCh := VirtualAllocEx(
     ProcessHandle, nil, 255, MEM_COMMIT, PAGE_EXECUTE_READWRITE
   );
   PItem := VirtualAllocEx(
     ProcessHandle, nil, SizeOf(LV_ITEM), MEM_COMMIT, PAGE_EXECUTE_READWRITE
   );

   Amount := ListView_GetItemCount(Wnd);
   for I := 0 to Amount do begin

    Item.mask := LVIF_TEXT;
    Item.iItem := I;
    Item.iSubItem := 0;
    Item.pszText := PCh;
    Item.cchTextMax := SizeOf(buf);

    WriteProcessMemory(ProcessHandle, PItem, @Item, sizeOf(Item), Dummy);
    if ListView_GetItem(Wnd, PItem^) then begin

      ReadProcessMemory(ProcessHandle, PCh, @buf, 255, Dummy);
      memo2.Lines.Add(buf); // Test

    end;
  end;

  VirtualFreeEx(ProcessHandle, PCh, 0, MEM_RELEASE);
  VirtualFreeEx(ProcessHandle, PItem, 0, MEM_RELEASE);

  CloseHandle(ProcessHandle);
end;

Автор: volvo877 Источник: Vingrad

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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