Текущий архив: 2006.05.07;
Скачать: CL | DM;
Вниз
Как получить иконку окна? Найти похожие ветки
← →
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.
← →
Игорь Шевченко © (2006-02-16 10:50) [5]delphi-oracle © (15.02.06 19:54) [3]
Marser © (15.02.06 20:28) [4]
Рулез надо чтить. Потру нафиг.
← →
Marser © (2006-02-16 11:03) [6]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2006.05.07;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.009 c
