Как получить иконку окна?

← →
delphi-oracle © (2006-02-15 09:06) [0]

Как получить иконку чужой окна на WinAPI??? Как не пробовал, не получается...

← →
begin...end © (2006-02-15 09:21) [1]

WM_GETICON

← →
Игорь Шевченко © (2006-02-15 11:35) [2]

{Выдираем иконку всеми возможными средствами} // Thanks to Игорь Шевченко function GetIconFromWindow(hWnd:HWND):HICON; var Ico:HICON; begin Ico:=0; SendMessageTimeout(hwnd, WM_GETICON, ICON_SMALL, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico)); if (ico = 0) then ico := GetClassLong(hwnd, GCL_HICONSM); if (ico = 0) then SendMessageTimeout(hwnd, WM_GETICON, ICON_BIG, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico)); if (ico = 0) then ico := GetClassLong(hwnd, GCL_HICON); {вот именно эта строка работает за всех, кто бы знал} if (ico = 0) then SendMessageTimeout(hwnd, WM_QUERYDRAGICON, 0, 0, SMTO_ABORTIFHUNG, 1000, LongWord(ico)); if (ico = 0) then ico:=LoadIcon(0,IDI_APPLICATION); Result:=Ico; end;

← →
delphi-oracle © (2006-02-15 19:54) [3]

І яке мені щастячко з твого WM_GEtIcon? Або не знаю, як написати, або глючить? Іконка постійно стає пустою. EMPTY. І. Шевченко дякую. Глянем.

← →
Marser © (2006-02-15 20:28) [4]

> delphi-oracle © (15.02.06 19:54)

Використання жодної мови, окрім російської, є небажаним на цьому форумі, тож раджу вам більше так не робити. Дивіться правила спілкування http://www.delphimaster.ru/forums.shtml#rule
> І яке мені щастячко з твого WM_GEtIcon?

В такому випадку дивляться Delphi Help. WM_GETICON - повідомлення Windows.

Удалено модератором

Как получить иконку окна? Найти похожие ветки