| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ProcessID и иконка родительской консольной программы

Тыщ ©   (2008-04-24 23:56:00) 

Есть консольная программа.
Нужно при запуске второй консольной программы из нее узнать ProcessID первой консольной программы.
Вторая программа использует то же окно, что и первая.

К чему это все:

При запуске моей консольной программы, я пытаюсь изменить иконку консоли, а при завершении восстановить старую иконку.
Не получается. После завершения на панели задач остается иконка второй программы, а в заголовке окна и в Alt+Tab - иконка CMD.
Такое происходит тогда, когда Handle иконки неверный, то есть иконка CMD - иконка по умолчанию.

var
 OldIconBig,OldIconSmall:HICON;

procedure SaveConsoleIcon;
begin
 If not User32Loaded then Exit;
 OldIconBig:=HICON(PostMessage(GetConsoleWindow,WM_GETICON,ICON_BIG,0));
 OldIconSmall:=HICON(PostMessage(GetConsoleWindow,WM_GETICON,ICON_SMALL,0));
end;

procedure SetConsoleIcon;
begin
 If not User32Loaded then Exit;
 PostMessage(GetConsoleWindow,WM_SETICON,ICON_BIG,
   LoadIcon(GetModuleHandle(nil),MakeIntResource(1)) );
 PostMessage(GetConsoleWindow,WM_SETICON,ICON_SMALL,
   LoadImage(GetModuleHandle(nil),MakeIntResource(1),IMAGE_ICON,16,16,LR_SHARED) );
end;

procedure RestoreConsoleIcon;
begin
 If not User32Loaded then Exit;
 PostMessage(GetConsoleWindow,WM_SETICON,ICON_BIG,OldIconBig);
 PostMessage(GetConsoleWindow,WM_SETICON,ICON_SMALL,OldIconSmall);
end;

Подозреваю, что старую иконку надо получать другим образом, поэтому спрашиваю про ProcessID.

---

Тыщ   (2008-04-25 14:17:00) [1]

DVM ©   (25.04.08 13:59) [6]

Хм, через класс тоже можно много интересного получить. Спасибо, буду знать.

---

DVM   (2008-04-25 13:59:00) [2]

GetClassLongPtr - это GetClassLong (без Ptr)

---

DVM   (2008-04-25 13:58:00) [3]

> Надо было не PostMessage, а SendMessage использовать!

Еще лучше SendMessageTimeout, иначе возможно подвисание при отправке сообщения чужому окну.

---

Тыщ   (2008-04-25 13:54:00) [4]

DVM ©   (25.04.08 13:27) [3]

Что есть GetClassLongPtr, GCLP_HICONSM и GCLP_HICON?
Ладно, и без них работает (закомментировал). Спасибо!

Блин... Какой же я невнимательный дурак!
Надо было не PostMessage, а SendMessage использовать!

Вот так работает:

procedure SaveConsoleIcon;
begin
 If not User32Loaded then Exit;
 OldIconBig:=HICON(SendMessage(GetConsoleWindow,WM_GETICON,ICON_BIG,0));
 OldIconSmall:=HICON(SendMessage(GetConsoleWindow,WM_GETICON,ICON_SMALL,0));
end;

---

DVM   (2008-04-25 13:27:00) [5]

> Если искать окно, то приходим к тому же GetConsoleWindow,
>  и WM_GETICON с ним не работает.

а так:


HICON GetWindowIcon(
   __in HWND hWnd
   )
{
   _ASSERTE(IsWindow(hWnd));

   HICON hIcon = NULL;

   if (SendMessageTimeout(hWnd, WM_GETICON, ICON_SMALL, 0,
                          SMTO_ABORTIFHUNG|SMTO_BLOCK, 1000,
                          (DWORD_PTR *)&hIcon))
   {
       if (hIcon == NULL)
       {
           if (!SendMessageTimeout(hWnd, WM_GETICON, ICON_BIG, 0,
                                   SMTO_ABORTIFHUNG|SMTO_BLOCK, 1000,
                                   (DWORD_PTR *)&hIcon))
               hIcon = NULL;
       }
   }
   else
       hIcon = NULL;

   if (hIcon == NULL)
       hIcon = (HICON)GetClassLongPtr(hWnd, GCLP_HICONSM);

   if (hIcon == NULL)
       hIcon = (HICON)GetClassLongPtr(hWnd, GCLP_HICON);

   if (hIcon == NULL)
       hIcon = LoadIcon(NULL, IDI_APPLICATION);

   return hIcon;
}

Есть и еще варианты, как достать иконку, но сначала попробуй это.


---

Тыщ   (2008-04-25 10:32:00) [6]

Сергей М. ©   (25.04.08 8:43) [1]

Спасибо.
Хм... Перепробовал я варианты с ProcessID - не получается иконку из чужого процесса достать.
Если искать окно, то приходим к тому же GetConsoleWindow, и WM_GETICON с ним не работает.

Есть идея разве что лезть в exe-шник родительского процесса и доставать из него иконку...
Но не факт, что именно первая иконка (или какую достанем) поставлена у консольного окна, так что вариант не ахти.

Есть еще идеи, как достать иконку?
Может, я просто что-то упустил в SaveConsoleIcon? [0]

> С какого перепугу User32 может быть не Loaded, если он статически прописан в таблице импорта ?

У меня - динамически. Прикол такой. Долго рассказывать, не обращайте внимания. :)

---

Сергей М.   (2008-04-25 08:43:00) [7]

http://forum.sources.ru/index.php?showtopic=209024


> If not User32Loaded then Exit


А это что за танцы с бубном ?
С какого перепугу User32 может быть не Loaded, если он статически прописан в таблице импорта ?

---

Наверх