Главная страница
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.017 c
14-85684
AlexeyBl
2002-09-02 09:23
2002.09.26
Откуда можно скачать Delphi 7 ?


1-85593
GRAVE DIGGER
2002-09-14 18:14
2002.09.26
Как создать ЯРЛЫК


3-85405
Sub
2002-09-06 09:06
2002.09.26
Отчеты


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


1-85457
BillyJeans
2002-09-16 10:44
2002.09.26
как блокировать повторный запуск?