FiveTech Software tech support forums

Code: Select all  Expand view

#define NIIF_NONE                      0x00000000
#define NIIF_INFO                      0x00000001
#define NIIF_WARNING                   0x00000002
#define NIIF_ERROR                     0x00000003
#define NIIF_USER                      0x00000004
#define NIIF_NOSOUND                   0x00000010
#define NIIF_LARGE_ICON                0x00000020
#define NIIF_RESPECT_QUIET_TIME        0x00000040
#define NIIF_ICON_MASK                 0x0000000F

#define NIM_ADD                        0x00000000
#define NIM_MODIFY                     0x00000001
#define NIM_DELETE                     0x00000002
#define NIM_SETFOCUS                   0x00000003
#define NIM_SETVERSION                 0x00000004

#define WIN_LR_DEFAULTSIZE             0x00000040
#define WIN_IMAGE_ICON                 0x00000001

//----------------------------------------------------------------------------//

function Main()

   local nUuid
   local cText  := "En un lugar de la Mancha de cuyo nombre no quiero acordarme, vivía un hidalgo caballero"
   
   nUuid := win_UuidCreateString()
   win_ShellNotifyIcon( , nUuid, 2, , , .F., , , , )
   win_ShellNotifyIcon( , nUuid, 0, , "My tooltip", .T., hb_AnsiToOem( cText ), 10000, "Title info", NIIF_WARNING + NIIF_RESPECT_QUIET_TIME )

return nil
 

Natter wrote:Thank you, Cristobal! This is what we need. At the same time, I will rebuild my program for Harbour. Is it possible to cause a full message window to appear (as if you click on the right button on the taskbar - Notifications)?