Баллонная подсказка при использовании Shell_NotifyIcon

[Fantom]

Как сделать не обычную, а балонную, т.е. вместе с заголовком, информационной картинкой и кнопочкой закрытия подсказку иконки в системном трее, если используется процедура Shell_NotifyIcon?

[Crazyman]

type

 DUMMYUNIONNAME = record
  case Integer of
    0:(uTimeout: UINT);
    1:(uVersion: UINT);
  end;

_NOTIFYICONDATAA_V2 = record
   cbSize: DWORD;
   Wnd: HWND;
   uID: UINT;
   uFlags: UINT;
   uCallbackMessage: UINT;
   hIcon: HICON;
   // Расширение структуры для Shell32.dll версии пять
   szTip: array [0..MAXCHAR] of AnsiChar;
   dwState: DWORD;
   dwStateMask: DWORD;
   szInfo: array [0..MAXBYTE] of AnsiChar;
   UNIONNAME: DUMMYUNIONNAME;
   //uTimeout: UINT;
   szInfoTitle:  array [0..63] of AnsiChar;
   dwInfoFlags: DWORD;
   // Расширение структуры для Shell32.dll версии шесть
   //guidItem: DWORD;
 end;

const // stiles
 NIIF_NONE      = $00000000;
  NIIF_INFO      = $00000001;
  NIIF_WARNING   = $00000002;
  NIIF_ERROR     = $00000003;
  NIF_INFO       = $00000010;
 NOTIFYICONDATA_V2_SIZE = $1E8;

{
Handle-Handle
uID-id иконки 
 const Title, Hint: String; - не требует обьяснений
Style-стиль
TimeOut-Время показывание окна}
function ShowBalloonHint(const Handle, uID: DWORD; const Title, Hint: String; const Style, TimeOut: Byte): Boolean;
var
 BalonNID: _NOTIFYICONDATAA_V2;
begin
 ZeroMemory(@BalonNID, NOTIFYICONDATA_V2_SIZE);
 BalonNID.cbSize := NOTIFYICONDATA_V2_SIZE;
 BalonNID.Wnd := Handle;
 BalonNID.uID := uID;
 StrPCopy(BalonNID.szInfo, Hint);
 StrPCopy(BalonNID.szInfoTitle, Title);
 BalonNID.UNIONNAME.uTimeout := TimeOut * 1000;
 BalonNID.dwInfoFlags := Style;
 BalonNID.uFlags :=  NIF_INFO;
 Result:= Shell_NotifyIcon(NIM_MODIFY, @BalonNID);
end;

// sample
 ShowBalloonHint(hwnd,1,'Внимание !!!','Test',NIIF_INFO,5)