Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

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


 
Fay ©   (2004-04-05 09:28) [9]

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


 
_sulent ©   (2004-04-05 09:46) [10]

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


 
KSergey ©   (2004-04-05 09:48) [11]

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

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


 
Fay ©   (2004-04-05 09:51) [12]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.03 c
14-1080915958
Delphi5.01
2004-04-02 18:25
2004.04.25
Рецепт плавленого ...


14-1081146561
Rouse_
2004-04-05 10:29
2004.04.25
Глюк со звуковухой


14-1080636815
able
2004-03-30 12:53
2004.04.25
DelphiWorld 5.0


3-1078920672
Alexander_K
2004-03-10 15:11
2004.04.25
Вопрос про мидас


1-1081630447
Klopan
2004-04-11 00:54
2004.04.25
сохранение/загрузка ListView в/из файл.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский