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




Вниз

icons 


alexey1   (2002-02-13 04:09) [0]

Привет всем!
Как взять иконки всех запущенных в данный момент приложений. Спасибо.



tretmike   (2002-02-15 12:01) [1]

Могу подсказать, как я беру иконку по хендлу окна:
Icon:= 0;
// Сперва попробуем получить иконку окна
if (Icon = 0) then
Icon:= SendMessage(FOwner.WindowHandler.Wnd, WM_GETICON, ICON_SMALL, 0);
// Если не получилось получить маленькую иконку, то возьмем большую
if (Icon = 0) then
Icon:= SendMessage(FOwner.WindowHandler.Wnd, WM_GETICON, ICON_BIG, 0);
// Если не получилось у окна, то возьмем у класса окна
if (Icon = 0) then
Icon:= GetClassLong(FOwner.WindowHandler.Wnd, GCL_HICONSM);
// if (Icon = 0) then
// Trace("Icon. GetClassLong. GCL_HICONSM: HWND: " + IntToStr(FOwner.Wnd) + "; Error = (" + IntToStr(GetLastError) + ") " + SysErrorMessage(GetLastError));
if (Icon = 0) then
Icon:= GetClassLong(FOwner.WindowHandler.Wnd, GCL_HICON);


// Если стиль у окна - Dialog, то у него нет иконки
// В этом случае возьмем стандатрную
if (Icon = 0) then
Icon:= LoadIcon(0, IDI_WINLOGO);

2. По поводу списка приложений. Попробуй пройтись по списку окон верхнего уровня.

С уважением, Михаил.




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




Наверх





Память: 0.72 MB
Время: 0.031 c
1-57769           Ник                   2002-04-04 22:28  2002.04.18  
Нажата ли клавиша-стрелка


4-57915           ctapik-net            2002-02-14 15:58  2002.04.18  
Определениие списка компьютеров в сети.


14-57870          Королев               2002-03-10 12:14  2002.04.18  
Как навсегда получить доступ к роутеру?


1-57722           Елена                 2002-04-08 13:41  2002.04.18  
Перечислимый тип


3-57582           Dimulka-9             2002-03-26 12:32  2002.04.18  
Перенос данных из Access в IB6