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

Вниз

Иконка приложения   Найти похожие ветки 

 
YURiQUE ©   (2003-08-02 12:00) [0]

Подскажите плиз, как достать иконку окна (чужого) имея его хэндл.


 
Guerrillero ©   (2003-08-03 01:48) [1]

окна или приложения ?
если второе, то что за хэндл приложения?
если первое,то WM_GETICON


 
jonni ©   (2003-08-03 08:05) [2]

TaskList[i].MainWindow:HWND;<-handle okna
ico:HICON;<-pointer na iconku



ico:= 0;
SendMessageTimeout(TaskList[i].MainWindow, WM_GETICON, ICON_SMALL, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(TaskList[i].MainWindow, GCL_HICONSM);
if (ico = 0) then SendMessageTimeout(TaskList[i].MainWindow, WM_GETICON, ICON_BIG, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(TaskList[i].MainWindow, GCL_HICON);
if (ico = 0) then SendMessageTimeout(TaskList[i].MainWindow, WM_QUERYDRAGICON, 0, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
( ico = 0) TaskList[i].MainWindow:HWND;<-handle okna
ico:HICON;<-pointer na iconku



ico:= 0;
SendMessageTimeout(TaskList[i].MainWindow, WM_GETICON, ICON_SMALL, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(TaskList[i].MainWindow, GCL_HICONSM);
if (ico = 0) then SendMessageTimeout(TaskList[i].MainWindow, WM_GETICON, ICON_BIG, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico := GetClassLong(TaskList[i].MainWindow, GCL_HICON);
if (ico = 0) then SendMessageTimeout(TaskList[i].MainWindow, WM_QUERYDRAGICON, 0, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico));
if (ico = 0) then ico:=LoadIcon(0,IDI_APPLICATION);


 
Dakis ©   (2003-08-03 09:46) [3]

ico:HICON;<-pointer na iconku
Не pointer а hanlde - это разные вещи...



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-27453
Злодей
2003-09-27 18:38
2003.10.09
Прочитать файл по локалке


14-27741
iusupp
2003-09-15 21:26
2003.10.09
Никто раньше не начинал... впервые изучать Дельфи...? ;-)


14-27634
Vik_mix
2003-09-23 11:03
2003.10.09
I(max) in COM-port


1-27454
MIKL
2003-09-27 18:07
2003.10.09
Компоненты не подключаються!


3-27328
RIMM
2003-09-22 05:54
2003.10.09
ADOQuery - Invalid column name