| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Иконка приложения

YURiQUE ©   (2003-08-02 12:00:00) 

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

---

Dakis   (2003-08-03 09:46:00) [1]

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

---

jonni   (2003-08-03 08:05:00) [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);

---

Guerrillero   (2003-08-03 01:48:00) [3]

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

---

Наверх