Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Манипуляция иконками раб. стола   Найти похожие ветки 

 
АлексКриппер ©   (2003-03-31 14:18) [0]

Здравствуйте, мастера. Почему при попытке определить координаты объекта на рабочем столе Винда выводит мессагу, что Explorer вызвала ошибку в comctl32.dll? И потом обычно вылазит, как в безопасном режиме - страница со ссылкой "Восстановтить рабочий стол Active Desktop"?
Часть кода:

uses commctrl;

function GetDesktopListViewHandle: THandle; // дескриптор
//рабочего стола для манипуляций
// c иконками
var s: string;
begin
Result := FindWindow("ProgMan", nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
SetLength(S, 40);
GetClassName(Result, PChar(S), 39);
if PChar(S) <> "SysListView32" then Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, g: integer; p: TPoint;
begin
g:= ListView_GetItemCount(GetDesktopListViewHandle); // идёт нормально
ListView_GetItemPosition(GetDesktopListViewHandle,
i, p); // а здесь выводит ошибку, ф. возвращает False
end;

и ещё в некоторых функциях начинающихся с ListView_ выводит ошибку. Я пытался просто послать сообщение LVM_GETITEMPOSITION на этот дескриптор, через SendMessage, результат тот же. В чём дело? Или у меня Винда (МЕ) глючит? На диске бад блок?
с уважением Александр.


 
MBo ©   (2003-03-31 14:35) [1]

Нужно внедряться в чужое адресное пространство.
Описание есть в Рихтере.
Пример Almaz в кладовке.


 
Morfein ©   (2003-03-31 20:59) [2]

никуда не надо внедряться... нужно память под переменные правильно выделять!

function GetItemPosition(Handle: hWnd; Index: Integer; var ppt: TPoint): boolean;
var
PointBuf : ^TPoint;
begin
PointBuf:=VirtualAlloc(nil, Sizeof(TPoint), $8000000 or MEM_COMMIT, PAGE_READWRITE);
Result:=Boolean(SendMessage(Handle, LVM_GETITEMPOSITION, Index, dword(PointBuf)));
if Result then
begin
ppt.x:=PointBuf^.x;
ppt.y:=PointBuf^.y;
end;
VirtualFree(PointBuf, 0, MEM_RELEASE);
end;





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

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
4-83814
ISergey
2003-03-28 17:14
2003.05.26
Вызов диалога открытия файла


1-83470
Johnmen
2003-05-15 09:57
2003.05.26
Каталог для инсталляции по умолчанию


6-83635
Nova*Gameus
2003-03-24 21:19
2003.05.26
UDPServer в консольном приложении


14-83733
vopros
2003-05-07 10:19
2003.05.26
Как в dgridEh фокус (подсвеченая строка) менять его цвет?


14-83742
k2
2003-05-07 12:51
2003.05.26
Лечение наркомании