Текущий архив: 2004.05.30;
Скачать: 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 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.695 c
