Текущий архив: 2004.11.14;
Скачать: CL | DM;
Вниз
Не всегда появляется трей-иконка Найти похожие ветки
← →
Leaner © (2004-10-05 19:30) [0]Здравствуйте ! У меня такая проблема:
Программа стартует вместе с Windows из Run регистра.
И трей-иконка не всегда появляется( но создается ).
В чем может быть дело ?function CreateDeleteTrayIcon(Num:integer;AddIco:Boolean):Boolean;
var
Nidata:TNotifyIconData;
begin
SendMessage(Application.MainForm.Handle,WM_USER+1715,Integer(not AddIco),-1);
Nidata.cbSize:=SizeOf(TNotifyIconData);
Nidata.Wnd:=Application.MainForm.Handle;
Nidata.uID:=Num;
if AddIco then
begin
Nidata.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
Nidata.uCallBackMessage:=WM_USER+1715
Nidata.hIcon:=Application.Icon.Handle;
StrPCopy(NiData.szTip,AppName);
Result:=Shell_NotifyIcon(NIM_ADD,@Nidata);
Exit;
end;
Result:=Shell_NotifyIcon(NIM_DELETE,@Nidata);
end;
Функция вызывается в .dpr после
Application.CreateForm(TMainForm, MainForm);
← →
Cobalt © (2004-10-05 22:03) [1]А Result проверяешь?
И Run - какой?
В какой ОС проявляется?
← →
Leaner © (2004-10-05 22:49) [2]>Cobalt
>А Result проверяешь?
Да, дважды: получаю SendMessage и смотрю результат
>И Run - какой?
HKEY_LOCAL_MACHINE
>В какой ОС проявляется?
XP
← →
Cobalt © (2004-10-06 00:45) [3]1)
>>А Result проверяешь?
>Да, дважды: получаю SendMessage и смотрю результат
И...?
2)
>>В какой ОС проявляется?
>XP
А в Win2K/NT?
← →
GuAV © (2004-10-06 01:54) [4]А если
Nidata.hIcon:=LoadImage(hInstance, "MAINICON",
IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR); ?
Страницы: 1 вся ветка
Текущий архив: 2004.11.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
