Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

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

 
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
оконная проц-а первой получает все сообщения,.. там и лови....


 
anod ©   (2002-08-09 18:02) [9]

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

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


 
anod ©   (2002-08-09 19:36) [10]

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

WM_TASKBARCREATED := RegisterWindowMessage("TaskbarCreated");

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


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


 
Ученик ©   (2002-08-09 19:41) [11]

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;


 
anod ©   (2002-08-09 20:31) [12]

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



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.01 c
3-85400
michael_b
2002-09-05 15:06
2002.09.26
Слышал, что Borland начиная с delphi 7 не поддерживает SQL-links


1-85465
AZ
2002-09-16 11:00
2002.09.26
Глюк или что-то в настройках?


3-85368
Daniil
2002-09-05 09:56
2002.09.26
Значения полей в виде набора самих полей


4-85780
Hogo
2002-05-31 12:40
2002.09.26
Есть ли такая функция


3-85322
ev1972
2002-09-06 15:54
2002.09.26
Ошибка при редактировании полей типа TIME в Interbase Express