Главная страница
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.02 c
14-27730
Gimer
2003-09-19 13:48
2003.10.09
Прокся


3-27315
Игорь Ч
2003-09-17 18:07
2003.10.09
Как при компиляции изменить имя исполняемого файла?


14-27728
Ketmar
2003-09-19 19:32
2003.10.09
как написать прогу


14-27708
Senti
2003-09-21 00:43
2003.10.09
У кого есть новая версия DynamicSkinForm


14-27746
Johnny Smith
2003-09-19 18:03
2003.10.09
Только в Либерии могут торговать дипломатами