Как показать округлённое окошко подсказки в Tray в Windows2000

Code:

uses SysUtils, Windows, ShellAPI;

{добавление иконки}

function DZAddTrayIcon(const Window: HWND; const IconID: Byte; const Icon:

HICON; const Hint: string = ''): Boolean;

var

NID: NotifyIconData;

begin

FillChar(NID, SizeOf(NotifyIconData), 0);

with NID do begin

   cbSize := SizeOf(NotifyIconData);

   Wnd := Window;

   uID := IconID;

   if Hint = '' then begin

     uFlags := NIF_ICON;

   end {if} else begin

     uFlags := NIF_ICON or NIF_TIP;

     StrPCopy(szTip, Hint);

   end {else};

   hIcon := Icon;

end {with};

Result := Shell_NotifyIcon(NIM_ADD, @NID);

end;

{добавляет иконку с call-back сообщением}

function DZAddTrayIconMsg(const Window: HWND; const IconID: Byte;

const Icon: HICON; const Msg: Cardinal; const Hint: string = ''): Boolean;

var

NID: NotifyIconData;

begin

FillChar(NID, SizeOf(NotifyIconData), 0);

with NID do begin

   cbSize := SizeOf(NotifyIconData);

   Wnd := Window;

   uID := IconID;

   if Hint = '' then begin

     uFlags := NIF_ICON or NIF_MESSAGE;

   end {if} else begin

     uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

     StrPCopy(szTip, Hint);

   end {else};

   uCallbackMessage := Msg;

   hIcon := Icon;

end {with};

Result := Shell_NotifyIcon(NIM_ADD, @NID);

end;

{удаляет иконку}

function DZRemoveTrayIcon(const Window: HWND; const IconID: Byte): Boolean;

var

NID: NotifyIconData;

begin

FillChar(NID, SizeOf(NotifyIconData), 0);

with NID do begin

   cbSize := SizeOf(NotifyIconData);

   Wnd := Window;

   uID := IconID;

end {with};

Result := Shell_NotifyIcon(NIM_DELETE, @NID);

end;