SisTrey

← →
Ку Ку (2006-04-02 18:13) [0]

Я только начал изучать WinApi. Решил попробовать поместить иконку своего приложения в sistrey. Написал так же как написанно в книге
вот исходный код

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnDeactivate:=FormDeactivate;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
FHandle :=AllocateHWnd(WndProc) ;
HIconl:=CopyIcon(Application.Icon.Handle);
with noIconData do begin
cbSize:=Sizeof(TNotifyIconData);
uID:=0;
UFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
SzTip:="SlideShow";
HIcon:=HIconl;
uCallBackMessage:=Ico_Massage;
end;
Shell_NotifyIcon(NIM_ADD,@noIconData);
Form1.Hide;
end;

При потере фокуса програмой, окошко должно пропадать, и в sistrey должна появляться её иконка. Проблема в том, что иконка появляеться, но тут же проподает через несколько секунд и форма тоже, а програма при этом продолжает работать её видно в диспетчере задач правдо только в процеччах. Вопрос: почему пропадает иконка и что я делаю не так ?

← →
Ку Ку (2006-04-02 18:21) [1]

Извиняюсь икнока проподает при наведении указателя мыши на sistrey.

← →
Ку Ку (2006-04-02 18:30) [2]

Всё сам разобрался.

> Ку Ку (02.04.06 18:30) [2]
> Всё сам разобрался.

Не верю.

--
Regards, LVT.

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