Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c