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

Страница 2 из 3

Теперь мы готовы приступить к созданию округлённых подсказок! Для этого воспользуемся следующей функцией:

Code:

uses SysUtils, Windows, ShellAPI;

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

const Timeout: TBalloonTimeout; const BalloonText, BalloonTitle:

string; const BalloonIconType: TBalloonIconType): Boolean;

const

aBalloonIconTypes: array[TBalloonIconType] of

Byte = (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR);

var

NID_50: NotifyIconData_50;

begin

FillChar(NID_50, SizeOf(NotifyIconData_50), 0);

with NID_50 do begin

cbSize := SizeOf(NotifyIconData_50);

Wnd := Window;

uID := IconID;

uFlags := NIF_INFO;

StrPCopy(szInfo, BalloonText);

uTimeout := Timeout * 1000;

StrPCopy(szInfoTitle, BalloonTitle);

dwInfoFlags := aBalloonIconTypes[BalloonIconType];

end; {with}

Result := Shell_NotifyIcon(NIM_MODIFY, @NID_50);

end;

Вызывается она следующим образом:

Code:

DZBalloonTrayIcon(Form1.Handle, 1, 10,

'this is the balloon text', 'title', bitWarning);

Новые статьи