Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
Серг   (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 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.033 c
8-1079855312
BenderLog
2004-03-21 10:48
2004.05.30
Как уменьшить размер графического файла?


3-1083711368
Dark Man
2004-05-05 02:56
2004.05.30
Работа с SQL Server 2000 из под Delphi 5


14-1084426214
Bless
2004-05-13 09:30
2004.05.30
Посоветуйте, плз, видеокарту в пределах 100 у.е.


8-1078816811
Garic
2004-03-09 10:20
2004.05.30
Описание AVI функций


1-1084878778
FireMan_Alexey
2004-05-18 15:12
2004.05.30
Активное приложение





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский