VPF::Как получить ListView_GetItem на x64 ! - Форум программистов

psgpsg

Дата 16.8.2006, 16:50 (ссылка)

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

Загрузка ...

Новичок

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

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

W2003 SE x64 SP1

Пытаюсь выполнить ListView_GetItem в другом процессе, например, в Проводнике

Есть код :
....

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,
  Commctrl,
  uProcessMemMgr;
....
Const
E_GENERAL_ERROR = -10001;
E_NO = -2;
E_OK = 0;
MaxTextSize = 1024;

type
  PTLVItem = PLVItem;

function getItemListView (wHandle: HWND; indxItem : integer; var res : integer) : string;
Var
  item:    TLVItem;
  count:    Integer;
  MMLV: TProcessMemMgr;
  PrLVText: PChar;
  PrLVItem : PTLVItem;

Begin

  res := E_ILLEGAL_PARAMETER;
  result := '';

  if (wHandle = 0) then
    exit;
  count := ListView_GetItemCount(wHandle); 
  if ((indxItem < 0) Or (indxItem >= count)) then
    exit;

  res := E_OK;

  MMLV := CreateProcessMemMgrForWnd(wHandle);
  try
    PrLVItem := MMLV.AllocMem(SizeOf(TLVItem));
    PrLVText := MMLV.AllocMem(MaxTextSize);

    // i want the data from item#0
    item.iSubItem := 0;
    item.mask := LVIF_TEXT;
    item.cchTextMax := MaxTextSize;
    item.pszText := PrLVText;
    item.iItem := indxItem;

      MMLV.Write(item, PrLVItem, SizeOf(TLVItem));
      if (Not (ListView_GetItem(wHandle, PrLVItem^))) then
        res := E_GENERAL_ERROR
      else
        result := MMLV.ReadStr(PrLVText);

  finally
    MMLV.Free;
  end;
End;


procedure TForm1.Button1Click(Sender: TObject);
Var
  res : integer;
  s : string;
  wHandle:    HWND;

Begin

  wHandle := .....; // здесь задан Handle ListView
  s := getItemListView (wHandle, 0, res);
  if (res = E_OK) then
    ShowMessage('s = ' + getItemListView (wHandle, 0, res));


end;

.....
Ф-ция
ListView_GetItem(wHandle, PrLVItem^) - возвращает False

PS
Если использовать ListView_GetItem( для определения Item в самом приложении - то все ОК.

Этот код нормально работает на 32-разрядной Винде, а вот на 64 - нет.
Предполагаю, что проблема в uProcessMemMgr.... (исходник взят http://come.to/delphi-bits)

М.б. кто-то сможет помочь ?

Yanis

Дата 16.8.2006, 17:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Не глядел глубоко, но может дело в константе MemMgrMemSize?

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

*щёлк*

psgpsg

Дата 16.8.2006, 18:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите, пллз, а на что надо изменить значение этой константы (16*1024)?

Я попробовал (от фонаря..) изменить на 16*1024 *1024 - не помогло..

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