Вниз
Скачать: CL | DM;

получить координаты иконок на рабочем столе!   Найти похожие ветки 

← →
SergeyDon   (2004-12-02 08:56) [0]

...
uses
ShellApi, Windows, CommCtrl, Classes;

var
 hIcos:THandle;
 icoCount,I:integer;
 XY:TPoint;
...
function GetDesktopListViewHandle: THandle;
var
S: string;
begin
SetLength(S, 40);
Result := FindWindow("ProgMan", nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
GetClassName(Result, PChar(S), 39);
if PChar(S) <> "SysListView32" then
  Result := 0;
end;
...
begin
hIcos:=GetDesktopListViewHandle;
icoCount:=ListView_GetItemCount(hIcos);
...
for i:=0 to icoCount-1 do
begin
 ListView_GetItemPosition(hIcos,i,XY); //тут ошибка память неможет быть write!!!
...
end;

все перепробывал нехочет записывать текущие координаты иконок рабочего стола.
изменение координат все ОК!
ListView_SetItemPosition(hIcos,i,Random(1024) ,Random(768));


← →
Leonid Troyanovsky   (2004-12-02 09:43) [1]


> SergeyDon   (02.12.04 08:56)  

> все перепробывал нехочет записывать текущие координаты иконок
> рабочего стола.


http://groups.google.com/groups?selm=39C0ACE7.AFB74ED%40eco-pro.ru

 там от library rpbufalloc отвалился кусок:

exports
 Inject name "Inject",
 Reject name "Reject";

begin
 dllproc := @Dllmain;
 DllMain(DLL_PROCESS_ATTACH);
end.


--
С уважением, LVT.


← →
VMcL ©   (2004-12-02 10:44) [2]

>>Leonid Troyanovsky  (02.12.04 09:43) [1]

Для такой задачи можно обойтись и без внедрения DLL:
http://igp.org.ua/vmcl/?id=view_article&aid=1


← →
ответ был тут   (2004-12-02 10:55) [3]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1013434997&n=15

to: VMcL ©
Спасибо за ссылочку! Всем советую прочесть!!!


← →
Leonid Troyanovsky   (2004-12-02 11:48) [4]


> VMcL ©   (02.12.04 10:44) [2]

> Для такой задачи можно обойтись и без внедрения DLL:


Там, где есть VirtualAllocEx - можно.
Если посмотреть все обсуждение можно увидеть и этот вариант:

http://groups.google.com/groups?selm=39BE285D.8DDE04E%40eco-pro.ru

--
С уважением, LVT.



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

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



Память: 0.46 MB
Время: 0.023 c
1-1105385578
Anonimus
2005-01-10 22:32
2005.01.23
Вопрос по TListView


4-1101884061
Dionnis
2004-12-01 09:54
2005.01.23
Определение разделительного знака целой и дробной части числа


14-1103697842
syte_ser78
2004-12-22 09:44
2005.01.23
Обращение к Харьковчанам.


1-1105425401
Коба
2005-01-11 09:36
2005.01.23
Запрет копирования в буфер из tRichEdit


3-1103207104
}|{yk
2004-12-16 17:25
2005.01.23
Как так пройтись по набору выделенных записей,




   Наверх