Вниз
Скачать: 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.027 c
1-1105532126
Jeka
2005-01-12 15:15
2005.01.23
Программно подсветить строку.


4-1101710405
maxistent
2004-11-29 09:40
2005.01.23
Кард-Ридеры


14-1104495124
Rock2015
2004-12-31 15:12
2005.01.23
Javascript


1-1105604589
LML
2005-01-13 11:23
2005.01.23
Иконки из PNG


1-1105239762
HF-Trade
2005-01-09 06:02
2005.01.23
Как выйти из цикла For и продолжить выполнение программы?




   Наверх