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

Иконку приложения   Найти похожие ветки 

← →
Серг   (2004-04-13 00:20) [0]

Помогите разобраться!
Как получить иконку какого-нибудь запущенного приложения, делаю это так:
Image1.Picture.Icon.Handle:=GetClassLong(App_Hadle,GCL_HICON);
В XP не всегда срабатывает, а в Nt при повторном вызове вообще не работает. Что делать?

---

← →
Игорь Шевченко ©   (2004-04-13 00:28) [1]

Например, так:

function HSGetWindowIcon (WindowHandle: HWND): THandle;
begin
 if SendMessageTimeOut(WindowHandle, WM_GETICON, ICON_SMALL, 0,
                              SMTO_NORMAL, 300, Result) = 0 then
   Result := 0;
 if Result = 0 then
   Result := GetClassLong(WindowHandle, GCL_HICONSM);
end;


---

← →
DeadMeat ©   (2004-04-13 17:57) [2]

Кажись надо ещё сделать CopyIcon...

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.058 c