Проблема с LVM_GETITEM. [D6, Win2k]
Renard © (2002-08-21 21:46:00)
Для получения списка из 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:00) [1]
Вообще-то странно, что этот код по Win95 работает. По идеи он
и там не должен работать... проблема в том, что данные находятся в
контексте другого процесса. И адрес той структуры, которую ты
передаешь последним параметром
SendMessage(hWnd, LVM_GETITEM...неимеет никакого
смысла в контексте того процесса. Это общепринятая ошибка и
решается она путём внедрения в адресное пространство другого
процесса. Хорошо об этом у Рихтера написано и даже, если мне не
изменяет память с аналогичным примером.
Наверх 
ЧАТ |
Орешник |
|
