Главная страница
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.016 c
6-27627
nobody
2003-08-11 19:03
2003.10.09
raw socket programming with Delphi, part II


3-27339
Настенька
2003-09-21 13:58
2003.10.09
Словарь !!!


1-27536
Faust
2003-09-29 21:56
2003.10.09
KeyPressed


1-27558
Relaxxx
2003-09-29 15:53
2003.10.09
TStringList


3-27323
lamer1
2003-09-21 16:04
2003.10.09
Service and COM