Создание баллона

← →
Aragon © (2006-02-02 10:25) [0]

Hi! Подскажите, как создавать всплывающий баллон в delphi и с ним работать. Например, появляется при Подключение по локальной сети, используется в msagent. Кажется, надо использовать какой-то интерфейс.
За ранее всем спасибо!

← →
Rouse_ © (2006-02-02 10:55) [1]

Структура:
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 BalloonStyle: array[TFWBalloonHintStyle] of Byte = (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR); var BalonNID: _NOTIFYICONDATAA_V2; begin // Выполняем данную процедуру только если версия Shell32.dll больше четвертой Result := GetShellVersion >= NEED_SHELL_VER; if not Result then Exit; // Для отображения BalloonHint используем немного расширенную структуру ZeroMemory(@BalonNID, NOTIFYICONDATA_V2_SIZE); BalonNID.cbSize := NOTIFYICONDATA_V2_SIZE; // Копируем необходимые св-ва со старой структуры BalonNID.Wnd := FTrayIcon.Wnd; BalonNID.uID := FTrayIcon.uID; // Добавляем свои данные StrPCopy(BalonNID.szInfo, Hint); StrPCopy(BalonNID.szInfoTitle, Title); BalonNID.UNIONNAME.uTimeout := TimeOut * 1000; BalonNID.dwInfoFlags := BalloonStyle[Style]; // Выставляем флаг !!! BalonNID.uFlags := NIF_INFO; // Отображаем балон... Shell_NotifyIcon(NIM_MODIFY, @BalonNID);

← →
Kolan © (2006-02-02 12:39) [2]

И мне пригодится :)

← →
Kolan © (2006-02-02 13:05) [3]

TFWBalloonHintStyle - это где описано?

← →
kaZaNoVa © (2006-02-02 13:07) [4]

там много чего не описано ... наверное мудуль какой-то надо подключить .. тока какой ...

← →
ss2 (2006-02-02 19:41) [5]

http://www.delphikingdom.info/asp/answer.asp?IDAnswer=26401

> TFWBalloonHintStyle - это где описано?

Это вот от сюда кусок взят: http://rouse.front.ru/fwtray.zip

Создание баллона Найти похожие ветки