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

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

Как зная хендл чужого приложения нарисавать его иконку [D7, Win2k, WinXP]


xtz ©   (2003-11-20 18:45:00) 

Как зная хендл чужого приложения нарисавать его иконку на кнопке Bitbutton соей проги (желательно с роботующим примером) а то пробывал LoadIcon но никак (ExtractIconEx не предлогать)


xtz   (2003-11-29 00:31:00) [1]

Удалено модератором
Примечание: Offtopic


xtz   (2003-11-29 00:27:00) [2]

Удалено модератором
Примечание: Offtopic


chi   (2003-11-21 14:35:00) [3]

Удалено модератором
Примечание: Offtopic


DVM   (2003-11-20 19:04:00) [4]

function GetIconFromWindow(hWnd:HWND; bBigIcon:boolean):HICON;
var
BigOrSmall,BigOrSmall2:integer;
hIcon:THandle;
begin
hIcon:=0;
if bBigIcon then
begin
BigOrSmall:=ICON_BIG;
BigOrSmall2:=GCL_HICON;
end
else
begin
BigOrSmall:=ICON_SMALL;
BigOrSmall2:=GCL_HICONSM;
end;
SendMessageTimeout(hWnd, WM_GETICON, BigOrSmall, 0, SMTO_ABORTIFHUNG, 1000, HIcon);
if hIcon=0 then hIcon := GetClassLong(hWnd, BigOrSmall2);
if hIcon=0 then SendMessageTimeout(hWnd, WM_GETICON, BigOrSmall, 1,
SMTO_ABORTIFHUNG, 1000, hIcon);
if hIcon=0 then hIcon := GetClassLong(hWnd, BigOrSmall2);
if hIcon=0 then SendMessageTimeout(hWnd, WM_QUERYDRAGICON, BigOrSmall,
0, SMTO_ABORTIFHUNG, 1000, hIcon);
result:=hIcon;
end;


xtz   (2003-11-20 18:58:00) [5]

Иконку окна но без и использывание загрузки её из файла приложения


DVM   (2003-11-20 18:49:00) [6]

Во-первых, у приложений нет хэндлов, но они есть у окон.

Надо получить иконку окна или ассоциированную с файлом?


Наверх

Титульная страница Поиск, карта сайта Написать письмо