LOCAL oAppUserModel As AppUserModel
 
oAppUserModel = CREATEOBJECT("AppUserModel")
? "[" + oAppUserModel.AppID + "]"
 
oAppUserModel.AppID = "VFP.MyApplication.MainForm"
? "[" + oAppUserModel.AppID + "]"
 
* end of main
 
DEFINE CLASS AppUserModel As Custom
* implements access to Application User Model ID (AppUserModelID) 
* that identifies the current process to the taskbar
 
    AppID=""
    ErrorCode=0
 
PROCEDURE Init( cAppID As String )
    IF VAL(OS(3))*10 + VAL(OS(4)) < 61
        WAIT WINDOW "Minimum supported OS: Win7 !" TIMEOUT 10
        RETURN .F.
    ENDIF
 
    THIS.declare
    IF NOT EMPTY(m.cAppID)
        THIS.AppID = m.cAppID
    ENDIF
 
PROCEDURE AppID_ASSIGN(vValue As Variant)
    LOCAL cAppID
    cAppID = TRANSFORM(m.vValue)
 
    * note: converted to Unicode
    THIS.ErrorCode = API_SetAppID(;
        STRCONV(m.cAppID,5) )
 
    IF THIS.ErrorCode = 0
    * you may need to hide and show
    * VFP main window to refresh its jump list
        THIS.AppID = m.cAppID
    ENDIF
 
PROCEDURE AppID_ACCESS() As String
    LOCAL hAppID, cAppID, nBufSize
 
    hAppID=0
    THIS.ErrorCode = API_GetAppID( @hAppID )
 
    IF THIS.ErrorCode = 0
        nBufSize = GlobalSize( m.hAppID )
        cAppID = REPLICATE( CHR(0), nBufSize )
        MemToStr( @cAppID, hAppId, nBufSize )
 
        * note: converted from Unicode
        nBufSize = AT(CHR(0)+CHR(0), m.cAppID)
        IF nBufSize > 0
            cAppID = STRCONV(SUBSTR(m.cAppID, 1,;
                m.nBufSize), 6)
        ENDIF
    ELSE
        cAppID = ""
    ENDIF
 
    IF hAppId <> 0
        = CoTaskMemFree( hAppId )
    ENDIF
RETURN m.cAppID
 
PROCEDURE declare
    DECLARE INTEGER GlobalSize IN kernel32 INTEGER hMem
    DECLARE CoTaskMemFree IN Ole32 INTEGER hMem
 
    DECLARE RtlMoveMemory IN kernel32 As MemToStr;
        STRING @, INTEGER, INTEGER
 
    DECLARE SHORT GetCurrentProcessExplicitAppUserModelID IN Shell32;
    AS API_GetAppID;
        INTEGER @AppID
 
    DECLARE SHORT SetCurrentProcessExplicitAppUserModelID IN Shell32;
    AS API_SetAppID;
        STRING AppID
 
ENDDEFINE