Скачать: CL | DM;

Проблема с LVM_GETITEM.   Найти похожие ветки 

← →
Renard ©   (2002-08-21 21:46) [0]

Для получения списка из ListView я использую следующий код:


ListBox1.Clear;
hMap := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,1024,"MyFile");
pMap := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
pItem := pMap;
with pItem^ do
begin
mask := LVIF_STATE or LVIF_TEXT;
pItem^.iSubItem := 0;
stateMask := LVIS_SELECTED;
pszText := Ptr(Integer(pMap) + Sizeof(TLVItem));
cchTextMax := 255;
iImage := 0;
lParam := 0;
end;
hWnd := FindWindow(nil, "My Computer");
hWnd := FindWindowEx(hWnd, 0, "SHELLDLL_DefView", nil);
hWnd := FindWindowEx(hWnd, 0, "SysListView32", nil);
Cnt := SendMessage(hWnd, LVM_GETITEMCOUNT, 0, 0);
for K := 0 to Cnt - 1 do
begin
pItem^.iItem := K;
n:=SendMessage(hWnd, LVM_GETITEM, k, Integer(pItem));
ListBox1.Items.Add(pItem^.pszText);
end;
UnmapViewOfFile(pMap);
CloseHandle(hMap);


В win95 он работает отлично, а вот в win2k выдает ошибку типа: Memory can not be read".
Подскажите пожалуйста в чем моя ошибка и как ее исправить.
Заранее багодарен.

---

← →
Suntechnic ©   (2002-08-22 08:06) [1]

Вообще-то странно, что этот код по Win95 работает. По идеи он и там не должен работать... проблема в том, что данные находятся в контексте другого процесса. И адрес той структуры, которую ты передаешь последним параметром SendMessage(hWnd, LVM_GETITEM... неимеет никакого смысла в контексте того процесса. Это общепринятая ошибка и решается она путём внедрения в адресное пространство другого процесса. Хорошо об этом у Рихтера написано и даже, если мне не изменяет память с аналогичным примером.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c