*-- Define from Winnt.h
#DEFINE TOKEN_ADJUST_PRIVILEGES 0x0020
#DEFINE TOKEN_QUERY             0x0008
#DEFINE SE_PRIVILEGE_ENABLED    2
*-- Defines from Winbase.h
#DEFINE VER_PLATFORM_WIN32s             0
#DEFINE VER_PLATFORM_WIN32_WINDOWS      1
#DEFINE VER_PLATFORM_WIN32_NT           2
*-- Defines from WinUser.h
#DEFINE EWX_LOGOFF           0  && Shuts down all processes running
                                && in the security
                                && context of the process that
                                && called the ExitWindowsEx function.
                                && Then it logs the user off.
#DEFINE EWX_SHUTDOWN         1  && Shuts down the system to a point
                                && at which it is safe to turn off the
                                && power. All file buffers have been
                                && flushed to disk, and all
                                && running processes have stopped.
                                && Windows NT/2000: The calling process
                                && must have the SE_SHUTDOWN_NAME
                                && privilege.
#DEFINE EWX_REBOOT           2  && Shuts down the system and then
                                && restarts the system.
                                && Windows NT/2000: The calling process
                                && must have the SE_SHUTDOWN_NAME
                                && privilege.
#DEFINE EWX_POWEROFF         8  && Shuts down the system and turns
                                && off the power. The system must support
                                && the power-off feature.
                                && Windows NT/2000: The calling process
                                && must have the SE_SHUTDOWN_NAME
                                && privilege.
*-- Change EWX_SHUTDOWN to any of the above #define values to
*-- either logoff, shutdown, reboot, or power off.
DO ExitWindowsFox WITH EWX_SHUTDOWN
*----------------------------------
PROCEDURE ExitWindowsFox
*----------------------------------
    PARAMETERS ExitMode
    LOCAL iRc
    iRc = 0
    DECLARE ExitWindowsEx IN Win32Api INTEGER, INTEGER
    *-- Check the OS version, and call the SetPrivilege function if NT/Win2K
    liPlatform = GetPlatform()
    IF liPlatform != VER_PLATFORM_WIN32_NT  && We can do whatever we wish
&& without worrying about security
        iRc = ExitWindowsEx(ExitMode, 0)
        IF ExitMode = EWX_LOGOFF OR ExitMode = EWX_POWEROFF
            *-- Necessary because VFP will not exit using
            *-- either of these parameters under Win9x.
            QUIT
        ENDIF
    ELSE  && We have to set the process security
        iRc = SetProcPrivilege()
        IF iRc <> 0
            iRc = ExitWindowsEx(ExitMode, 0)
        ENDIF
    ENDIF && liPlatform != VER_PLATFORM_WIN32_NT
*----------------------------------
PROCEDURE SetProcPrivilege
    *-- Sets the appropriate process privilege to allow shutdown on NT/Win2K
    *----------------------------------
    *-- Declare function to obtain current Process ID, needed to open the process
    *-- get the process token.
    LOCAL iRc
    iRc = 0
    DECLARE INTEGER GetCurrentProcessId IN kernel32.DLL
    DECLARE INTEGER OpenProcess IN Kernel32.DLL INTEGER, ;
        INTEGER, ;
        INTEGER
    DECLARE INTEGER OpenProcessToken IN AdvApi32.DLL INTEGER, ;
        INTEGER, ;
        INTEGER@
    *-- Declare function to retrieve a LUID for the necessary security
    *-- privilege.
    DECLARE INTEGER LookupPrivilegeValue IN AdvApi32.DLL STRING, ;
        STRING, ;
        INTEGER@ lsLuid
    *-- Declare function to adjust the process token privileges so that
    *-- we can shut down NT/Windows 2000
    DECLARE INTEGER AdjustTokenPrivileges IN AdvApi32.DLL INTEGER, ;
        INTEGER, ;
        STRING@ lsNewState, ;
        INTEGER, ;
        INTEGER, ;
        INTEGER
    liAccessToken = 0        && Placeholder for the access token whose privileges we'll change
    lsLuidBuffer = SPACE(8)  && Placeholder for LUID used to change access privileges
    lsName = SPACE(15)       && Placeholder for computer name
    liBufferLen = 15         && Placeholder for the computer name buffer length
    liLuid = 0
    liProc = 0
    liProc = GetCurrentProcessId()
    hProc = OpenProcess(2035711, 0, liProc)
    iRc = OpenProcessToken(hProc, BITOR(TOKEN_ADJUST_PRIVILEGES, TOKEN_QUERY), @liAccessToken)
    IF iRc <> 0
        IF iRc <> 0
            *-- "SeShutdownPrivilege" is the string value for the SE_SHUTDOWN_NAME value.
            LookupPrivilegeValue("", "SeShutdownPrivilege", @liLuid)
            lsLuidBuffer = LongToStr(liLuid) + CHR(0) + CHR(0) + CHR(0) + CHR(0)
            *-- Declare a string to hold the TOKEN_PRIVILEGES structure
            lsNewState = SPACE(16)
            *-- Fill in the structure
            lsNewState = LongToStr(1) + lsLuidBuffer + LongToStr(SE_PRIVILEGE_ENABLED)
            iRc = AdjustTokenPrivileges(liAccessToken, 0, @lsNewState, LEN(lsNewState), 0, 0)
            RETURN iRc
        ELSE
            RETURN iRc
        ENDIF
    ELSE
        RETURN iRc
    ENDIF
ENDPROC
*----------------------------------
PROCEDURE GetPlatform
    *----------------------------------
    LOCAL liPlatform, iRc
    liPlatform = 0
    iRc = 0
    DECLARE INTEGER GetVersionEx IN Win32Api STRING@
    *-- Declare a string to hold the OSVERSIONINFO structure
    lsOSVersionInfo = LongToStr(148) + SPACE(144)
    iRc = GetVersionEx(@lsOSVersionInfo)
    liPlatform = StrToLong(SUBSTR(lsOSVersionInfo, 17, 4))
    RETURN liPlatform
ENDPROC
*-- The following function converts a long integer to an ASCII
*-- character representation of the passed value in low-high format.
*----------------------------------
FUNCTION LongToStr
    *----------------------------------
    * Passed : 32-bit non-negative numeric value (lnLongval)
    * Returns : ascii character representation of passed value in low-high
    * format (lcRetstr)
    * Example :
    *   m.long = "999999"
    *   m.longstr = long2str(m.long)
    PARAMETERS lnLongval
    PRIVATE i, lcRetstr
    lcRetstr = ""
    FOR i = 24 TO 0 STEP -8
        lcRetstr = CHR(INT(lnLongval/(2^i))) + lcRetstr
        lnLongval = MOD(lnLongval, (2^i))
    NEXT
    RETURN lcRetstr
    *-- The following function converts a string in low-high format to a
    *-- long integer.
    *----------------------------------
FUNCTION StrToLong
    *----------------------------------
    * Passed:  4-byte character string (lcLongstr) in low-high ASCII format
    * Returns:  long integer value
    * Example:
    * m.longstr = "1111"
    * m.longval = str2long(m.longstr)
    PARAMETERS lcLongstr
    PRIVATE i, lnRetval
    lnRetval = 0
    FOR i = 0 TO 24 STEP 8
        lnRetval = lnRetval + (ASC(lcLongstr) * (2^i))
        lcLongstr = RIGHT(lcLongstr, LEN(lcLongstr) - 1)
    NEXT
    RETURN lnRetval