Всплывающие сообщения

[niockasd]

Подскажите, нужно вывести уведомления средствами windows (в моем случае 10) вывожу так:

procedure TForm1.SysTrayIconMsgHandler(var Msg: TMessage);
begin
  case Msg.lParam of
    WM_MOUSEMOVE:;
    WM_LBUTTONDOWN:;
    WM_LBUTTONUP:;
    WM_LBUTTONDBLCLK:;
    WM_RBUTTONDOWN:;
    WM_RBUTTONUP:;
    WM_RBUTTONDBLCLK:;

    NIN_BALLOONSHOW:

      exit;
    NIN_BALLOONHIDE:
   
      exit;
    NIN_BALLOONTIMEOUT:
      exit;
    NIN_BALLOONUSERCLICK:
      exit;
  end;
end;

  
procedure TForm1.AddSysTrayIcon;
begin
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := AllocateHWnd(SysTrayIconMsgHandler);
  {SysTrayIconMsgHandler is then callback message' handler}
  IconData.uID := 0;
  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
  IconData.uCallbackMessage := TRAY_CALLBACK;   
  IconData.hIcon := Application.Icon.Handle;    
  IconData.szTip := 'Уведомление Golf-Strem';
  if not Shell_NotifyIcon(NIM_ADD, @IconData) then
  exit;
end;

{ShowBalloonTips procedure carry out the new feature: Balloon Tips}
procedure ShowBalloonTips(ModEvent, TipInfo, TipTitle: string);  //modevent - info \ error \warning
begin

  form1.IconData.cbSize := SizeOf(form1.IconData);
  form1.IconData.uFlags := NIF_INFO;
  strPLCopy(form1.IconData.szInfo, TipInfo, SizeOf(form1.IconData.szInfo) - 1);
  form1.IconData.DUMMYUNIONNAME.uTimeout := 3000;
  strPLCopy(form1.IconData.szInfoTitle, TipTitle, SizeOf(form1.IconData.szInfoTitle) - 1);

  if ModEvent='info' then form1.IconData.dwInfoFlags := NIIF_INFO;     
  if ModEvent='error' then form1.IconData.dwInfoFlags := NIIF_ERROR;     //NIIF_ERROR;  //NIIF_WARNING;
  if ModEvent='warning' then form1.IconData.dwInfoFlags := NIIF_WARNING;     //NIIF_ERROR;  //NIIF_WARNING;

  Shell_NotifyIcon(NIM_MODIFY, @form1.IconData);

  form1.IconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;

end;

{here's the deletion procedure}
procedure TForm1.DeleteSysTrayIcon;
begin
  DeallocateHWnd(IconData.Wnd);
end;

Уведомления работают нормально, но... При открытии формы создается иконка в трее, ладно, но при закрытии программы иконка остается висеть до того как на нее не наведешь мышь. Это косяк ОС? В чем проблема..

[niockasd]

программа завершается не аварийно (нажатием на Х справо вверху) при запуске из папки (не из delphi ) проблема так же остается

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
         //отправка запроса на предоставление списка дисков



 while nouclose=true do
begin
application.ProcessMessages;
PanelEvent.Visible:=true;
statusbar1.Panels[0].Text:='Ожидание завершения последней операции...';
end;
PanelEvent.Visible:=false;

   CanClose:=true;
   serversocket1.Active:=false;


end;

[niockasd]

сам с собой в тебе говорю..)
все ровно, забыл

  Shell_NotifyIcon(NIM_DELETE, @IconData);

procedure TForm1.DeleteSysTrayIcon;
begin
  DeallocateHWnd(IconData.Wnd);
Shell_NotifyIcon(NIM_DELETE, @IconData);
end;

вот, если кто то тоже затупит...

[min@y™]

Достаточно было глянуть в исходник одного их овер9000 компонентов TxxxTrayIcon.