Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c