Как

← →
anod © (2002-08-08 14:01) [0]

восстанавливать иконку после глюков эксплорера

← →
Antonius © (2002-08-08 15:16) [1]

чью иконку? каких шлюков?

← →
anod © (2002-08-08 21:02) [2]

иконку в трее (извините, забыл написать).

← →
DarkSimpson (2002-08-08 21:22) [3]

Эта, как яво... О...
Эксплорер шлет сообщение WM_TASKBARCREATED после глюков.
Лови ево и восстанавливай икону.

← →
anod © (2002-08-08 21:59) [4]

большой thanks

← →
anod © (2002-08-08 23:34) [5]

Нет теакого сообщения в Windows SDK???
procedure WMTASKBARCREATED(var msg:TMessage); message WM_TASKBARCREATED;

[Error] Unit1.pas(112): Undeclared identifier: "WM_TASKBARCREATED"

← →
DarkSimpson (2002-08-09 00:24) [6]

Блин, забыл...
--
Вообщем я делаю так (я пишу замену эксплореру - свой шелл):

WM_TASKBARCREATED := RegisterWindowMessage("TaskbarCreated");
PostMessage(HWND_BROADCAST, WM_TASKBARCREATED, 0, 0);

И после этого AVP, например, кидает свою иконку обратно.

← →
anod © (2002-08-09 16:19) [7]

Я так понимаю мне надо сделать так
var WM_TASKBARCREATED: TMessage;
WM_TASKBARCREATED := RegisterWindowMessage("TaskbarCreated");
А потом ловить, только как?

← →
Opuhshii © (2002-08-09 16:26) [8]

1. WM_TASKBARCREATED:DWORD не TMessage
оконная проц-а первой получает все сообщения,.. там и лови....

procedure TForm1.WndProc(var msg: TMessage);
begin
case msg.Msg of
WM_TASKBARCREATED: begin
end;
end;
end;

Можкт я неправильно описываю оконную процедуру?

Попробовал в другой программке
var WM_TASKBARCREATED: DWORD; (или Cardinal);

WM_TASKBARCREATED := RegisterWindowMessage("TaskbarCreated");

В оконной процедуре пишу
WM_TASKBARCREATED: begin TaskBarIcon(NIM_ADD, Icon); end;

Ругается:
[Error] CDS.dpr(225): Constant expression expected

procedure DefaultHandler(var Message); override;

procedure TMainForm.DefaultHandler(var Message);
begin
if (TMessage(Message).Msg = WM_TASKBARCREATED) then
TaskBarIcon(NIM_ADD, Icon)
else
inherited DefaultHandler(Message)
end;

Большое спасибо, вроде работает.

Как Найти похожие ветки