' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Minimizza_sulla_TrayBar

'Minimizes application to tray



TYPE TNOTIFYICONDATA

                cbSize AS DWORD

                hWnd AS LONG

                uID AS LONG

                uFlags AS LONG

                uCallbackMessage AS LONG

                hIcon AS LONG

                szTip AS STRING*64

END TYPE



DECLARE SUB Shell_NotifyIcon LIB "SHELL32" ALIAS "Shell_NotifyIconA" _

                 (dwMessage AS LONG, NIDATA AS TNOTIFYICONDATA)



CONST FALSE = 0

CONST TRUE = 1



CONST NIM_ADD = 0

CONST NIM_MODIFY = 1

CONST NIM_DELETE = 2



CONST NIM_MESSAGE = 1

CONST NIM_ICON = 2

CONST NIM_TIP = 4



CONST WM_USER = &H400

CONST WM_TRAYICON = WM_USER + 400



CONST WM_COMMAND = &H111

CONST WM_SYSCOMMAND = &H112



CONST WM_LBUTTONDOWN = &H201

CONST WM_LBUTTONDBLCLK = &H203

CONST WM_RBUTTONDOWN = &H204

CONST WM_RBUTTONDBLCLK = &H206



CONST SC_MINIMIZE = 61472

CONST SC_CLOSE = 61536



DIM Form AS QForm

DIM Button AS QButton

DIM NI AS TNotifyIconData

DIM AlreadyTrayed AS INTEGER

    AlreadyTrayed = FALSE



SUB FormClose

                IF AlreadyTrayed THEN

                               Shell_NotifyIcon(NIM_DELETE, NI)   '--Remove our tray icon

                END IF

                Application.Terminate

END SUB



SUB ButtonClick

                IF NOT AlreadyTrayed THEN

                               NI.cbSize = SIZEOF(NI)

                               NI.hWnd = Form.Handle

                               NI.uID = Application.hInstance

                               NI.uFlags = NIM_ICON OR NIM_MESSAGE OR NIM_TIP

                               NI.hIcon = Application.Icon

                               NI.uCallBackMessage = WM_TRAYICON

                               NI.szTip = "Rapid-Q Tray Example"+CHR$(0)

                               Shell_NotifyIcon(NIM_ADD, NI)

                               AlreadyTrayed = TRUE

                END IF

                Form.Visible = FALSE

END SUB



SUB FormWndProc (Handle AS INTEGER, uMsg AS DWORD, _

wParam AS LONG, lParam AS LONG)

                IF uMsg = WM_SYSCOMMAND THEN

                               IF wParam = SC_MINIMIZE THEN

                                               '-- Minimize to system tray

                                               ButtonClick

                               END IF

                ELSEIF uMsg = WM_TRAYICON THEN

                               IF (lParam AND &HFFFF) = WM_LBUTTONDBLCLK THEN  

'-- Respond on double click

                                               Form.Caption = "I'm back!"

                                               Form.Visible = TRUE                     

                                               '-- Bring back our form

                                               Form.WindowState = 0

                               END IF

                END IF

END SUB



Button.Parent = Form

Button.Caption = "Tray me"

Button.OnClick = ButtonClick



Form.Caption = "Tray Example"

Form.Center

Form.OnClose = FormClose

Form.WndProc = FormWndProc

Form.ShowModal



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb