XProfan

 {$cleq}
const appTitle=TrayApp
//messages
const m_base=wm_user+4096
const m_tray_TrackMenu_exitApp=m_base+0
//defaults
const d_hwndSizeX=300
const d_hwndSizeY=450
long hwnd.showMode=1
windowTitle apptitle
windowStyle 2 | 4 | 8 | 16 | 512 | 1024
window maxx,maxy - 0,0
hwnd.showWindow(faux)
moveWindow(hwnd,(maxx/2-d_hwndSizeX/2),(maxy*0.4-d_hwndSizeY/2),d_hwndSizeX,d_hwndSizeY,faux)
long tray.iconH=tray.init()
messages de l'utilisateur wm_close

do {

    sélectionner TrayIcon(msg,1)

        caseof wm_lButtonDown,wm_lButtonDblClk : hwnd.showWindow(vrai-hwnd.showMode)

        caseof WM_RBUTTONDOWN

        sélectionner tray.trackMenu()

            caseof m_tray_TrackMenu_exitApp : pause

        EndSelect

    EndSelect

    sélectionner uMessage

        caseof wm_close : hwnd.showWindow(faux)

    EndSelect

    waitinput

}

tray.close(tray.iconH)
end

tray.init{

    long h=create(hIcon,A)
    trayIcon(add,hWnd,1,h,appTitle)
    return h

}

tray.close(long h){

    int bVal=trayIcon(delete,hWnd,1)
    deleteObject h
    return bVal

}

tray.trackMenu{

    createMenu
    appendMenu m_tray_TrackMenu_exitApp,finissons
    setActiveWindow(hWnd)
    int bVal=trackMenu()
    setMenuitem 0
    return bVal

}

hwnd.showWindow(int mode){

    ifnot hwnd.showMode==mode {

        showWindow(hWnd,mode)

    }

    si mode {

        setForeGroundWindow(hwnd)
        setActiveWindow(hwnd)

    }

    hwnd.showMode=mode
    return vrai

}