Tray...

← →
_sulent © (2004-04-05 08:10) [0]

Здравствуйте мастера!
У меня появилась такая задача, нужно сворачивать программу в трей (ну с этим никаких проблем нету), а вот по истечении какого-то времени, ну что-то вроде будильника, на трее появлялся хинт с заданной инфой...
Другими словами надо сделать так, чтобы программа работала автономно и по истечении какого-то времени выкидывал сообщение...

Как это можно сделать, подскажите?

← →
Gero © (2004-04-05 08:33) [1]

TTimer

← →
Fay © (2004-04-05 08:39) [2]

typedef struct _NOTIFYICONDATA {
DWORD cbSize;
HWND hWnd;
UINT uID;
UINT uFlags;
UINT uCallbackMessage;
HICON hIcon;
#if (_WIN32_IE < 0x0500)
TCHAR szTip[64];
#else
TCHAR szTip[128];
#endif
#if (_WIN32_IE >= 0x0500)
DWORD dwState;
DWORD dwStateMask;
TCHAR szInfo[256];
union {
UINT uTimeout;
UINT uVersion;
} DUMMYUNIONNAME;
TCHAR szInfoTitle[64];
DWORD dwInfoFlags;
#endif
#if (_WIN32_IE >= 0x600)
GUID guidItem;
#endif
} NOTIFYICONDATA, *PNOTIFYICONDATA;

Тебя интересуют szInfoTitle и dwInfoFlags

← →
Fay © (2004-04-05 08:46) [3]

Варианты _версии почитай в PSDK, а ваще

type TBuBuBu = packed record cbSize : DWORD; Wnd : HWND; uID : UINT; uFlags : UINT; uCallbackMessage : UINT; hIcon : HICON; szTip : packed array[0..127] of AnsiChar; dwState : DWORD; dwStateMask : DWORD; szInfo : packed array[0..255] of AnsiChar; uTimeout : UINT; szInfoTitle : packed array[0..63] of AnsiChar; dwInfoFlags : DWORD; end; var nd : TBuBuBu; sInfo : string; sInfoTitle : string; begin sInfo := "Мессага"; sInfoTitle := "Заголовок"; nd.cbSize := SizeOf(FayND); nd.Wnd := Handle; nd.uID := 1; nd.uTimeout := 10; nd.uFlags := 16; // NIF_INFO StrCopy(nd.szInfoTitle, PChar(sInfoTitle)); StrCopy(nd.szInfo, PChar(sInfo)); nd.dwInfoFlags := 1; // NIIF_INFO Shell_NotifyIcon(NIM_MODIFY, @nd);

← →
_sulent © (2004-04-05 08:48) [4]

Понятно, спасибо!... но меня не совсем это интересовало... но все равно спасибо, сам догадался :)

← →
Fay © (2004-04-05 08:52) [5]

Скажи, добрый человек, что "не это". Если "на трее появлялся хинт с заданной инфой", то что тогда "это"?

← →
_sulent © (2004-04-05 09:10) [6]

Да дело в том, что я использую собственный компонент, который написал, он как раз все это делает, что было тобой написало выше, мне нужно обработать событие, которое бы показывалось...
Наверное я просто не так выразился...
Но все работает, спасибо за хлопоты :)

← →
Fay © (2004-04-05 09:23) [7]

Очень хочется спросить, как у тебя работает обработчик события, которое показывается... Но не буду уже, ладно 8).
Удачи.

← →
KSergey © (2004-04-05 09:24) [8]

> [2] Fay © (05.04.04 08:39)

> #if (_WIN32_IE < 0x0500)
> TCHAR szTip[64];
> #else
> TCHAR szTip[128];
> #endif

Нифига себе! получается, что от версии эксплорера, где компилится прога, зависит размер поля структуры? А если на целевом версия эксплорера - ниже??

А для этого существует деградация.

да ну без проблем, коли так уж интересует... :)

> [9] Fay © (05.04.04 09:28)
> А для этого существует деградация.

А чуть пространнее? Проверять версию на целевом компьютере?

Совершенно верно. Проверять. А на самом деле можно просто использовать самую здоровую струкатуру.

Tray... Найти похожие ветки