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

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

Иконка в трее [D5, Win95/98, WinME]

Керик ©   (2002-10-04 21:42:00) 

Подскажите на примере: как восстановить иконку программы в трее при крахе проводника Windows.

---

Opuhshii   (2002-10-07 14:27:00) [1]

const
WM_TaskbarCreated:Dword=WM_USER;

type
TMyForm = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WndProc(var Message: TMessage); override;
{ Public declarations }
end;

.....

implementation

procedure TMyForm.WndProc(var Message: TMessage);
begin
if Message.Msg=WM_TaskbarCreated then
Shell_NotifyIcon(NIM_ADD, @nid)
else
Inherited;
end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
WM_TaskbarCreated:=RegisterWindowMessage("TaskbarCreated");
end;

во как... ;)

---

Opuhshii   (2002-10-07 14:20:00) [2]

%)) не попробовал,... извиняюсь,.. ;)

---

Opuhshii   (2002-10-07 14:16:00) [3]

2Керик (04.10.02 21:42)
что ж тут такого,...

const
WM_TaskbarCreated:Dword=WM_USER;

MyForm=class(TForm)
....
procedure OnTaskbarCreated(var message:TMessage);message WM_TaskbarCreated;
end;

implementation

procedure MyForm.OnCreateMyForm(Sender:TObject);
begin
WM_TaskbarCreated:=RegisterWindowMessage("TaskbarCreated");
end;

procedure MyForm.OnTaskbarCreated(var message:TMessage);
begin
Shell_NotifyIcon(NIM_ADD, @nid);
end;


---

Керик   (2002-10-07 13:10:00) [4]

paul_shmakov, а нельзя ли рабочий примерчик?

---

paul_shmakov   (2002-10-07 02:03:00) [5]

нет, все намного проще. нужно обрабатывать сообщение, возвращаемое RegisterWindowMessage("TaskbarCreated"). при его обработке заново добавлять иконку в трей.
это сообщение рассылается во все окна при старте explorer.exe.

---

Rouse_   (2002-10-05 00:20:00) [6]

var nid: TNotifyIconData;

Shell_NotifyIcon (NIM_ADD, @nid);
В таймере.

Идея какая.
nid.wnd := Handle;

Если wnd не меняется то иконка в трей второй раз не добавится, а если произошел крах проводника то она сразу там появляется.

ЗЫ: система при перезапуске проводника посылает какое то сообщение всем программам, а вот какое забыл, где то в архивах форумов это всплывало

Желаю успехов

---

Diamond Cat   (2002-10-05 00:02:00) [7]

я кактоо пытался бороться с этим но ничего умнее чем ставить хук на ABM_ACTIVATE не придумал

---

Наверх