Содержание материала

В Windows 2000, формат структуры NotifyIconData, которая используется для работы с иконками в Трее (которая, кстати, называется "The Taskbar Notification Area" :) значительно отличается от предыдущий версий Windows. Однако, эти изменения НЕ отражены в юните ShellAPI.pas в Delphi 5.

 

Итак, нам понадобится преобразованный SHELLAPI.H, в котором присутствуют все необходимые объявления:

Code:

uses Windows;

 

type

NotifyIconData_50 = record // определённая в shellapi.h

   cbSize: DWORD;

   Wnd: HWND;

   uID: UINT;

   uFlags: UINT;

   uCallbackMessage: UINT;

   hIcon: HICON;

   szTip: array[0..MAXCHAR] of AnsiChar;

   dwState: DWORD;

   dwStateMask: DWORD;

   szInfo: array[0..MAXBYTE] of AnsiChar;

   uTimeout: UINT; // union with uVersion: UINT;

   szInfoTitle: array[0..63] of AnsiChar;

   dwInfoFlags: DWORD;

end{record};

 

const

NIF_INFO      =        $00000010;

 

NIIF_NONE     =        $00000000;

NIIF_INFO     =        $00000001;

NIIF_WARNING  =       $00000002;

NIIF_ERROR    =        $00000003;

 

А это набор вспомогательных типов:

 

type

TBalloonTimeout = 10..30{seconds};

TBalloonIconType = (bitNone,    // нет иконки

                     bitInfo,    // информационная иконка (синяя)

                     bitWarning, // иконка восклицания (жёлтая)

                     bitError);  // иконка ошибки (краснаа)

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить