Проблема с LVM

← →
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... неимеет никакого смысла в контексте того процесса. Это общепринятая ошибка и решается она путём внедрения в адресное пространство другого процесса. Хорошо об этом у Рихтера написано и даже, если мне не изменяет память с аналогичным примером.

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