INFO: How to Restart Windows from Within FoxPro (110254)

MORE INFORMATION

By using FOXTOOLS.FLL and the Windows API function ExitWindows(), you can restart Windows. The following code illustrates this concept.

NOTE: While it is possible to restart Windows from within a FoxPro for Windows program by making use of the Windows API function ExitWindows(), FoxPro may not do a complete cleanup and may leave *.TMP files in your SET TEMP= subdirectory.

   *** Begin Code ***
   * WARNING: Make sure all work is saved before running code

   SET LIBRARY TO SYS(2004)+"FOXTOOLS.FLL" ADDITIVE
   do_over=REGFN("ExitWindows","II","I")
   title="Program Message"
   msg="Would you like to restart Windows now?"
   choice=MSGBOX(msg,title,36)
   IF choice=6    && button 'Yes' was chosen
      =CALLFN(do_over,66,0)
   ELSE
      WAIT WINDOW "You have chosen not to restart Windows" TIMEOUT 2
   ENDIF
   *** End Code ***
				

The ExitWindows() function requires two numeric values to be passed in and returns a single integer. The significance of the first integer (66) is that it is the decimal equivalent of 0x42 hexadecimal or EW_RESTARTWINDOWS, which is a low-order word in the C++ language. The second integer is reserved and is always zero. When the ExitWindows() function is called, it sends a message to all active applications that a request has been made to restart Windows. If all applications "agree" to be terminated, the WM_ENDSESSION message will be sent to all applications before Windows is restarted.