怎么在VFP程序中设置命令，让计算机运行完程序后自动关机

如何在VFP程序中设置命令，让计算机运行完程序后自动关机？
    用VFP8.0编写了运行文件,该运行文件设计了整理与备份数据等一系列预设命令,运行需要较长时间,运行后就关闭电脑,现在需要计算机在运行完程序后就自动关闭电脑,而不需要人为关闭。
    如何在VFP程序的最后设置命令，让计算机运行完程序后自动关机？
    敬向电脑专家请教，不胜感激！
[解决办法]
主程序开头加代码：
On Shutdown Quit

需要关机时，执行以下代码：
Declare Integer ShellExecute In SHELL32.Dll Integer nWinHandle,String cOperation,String cFileName,String cParameters,String cDirectory,Integer nShowWindow
=ShellExecute(0,"Open","Shutdown.exe","/s /f /t 0","",0)
Quit

或

Run /N7 Shutdown.exe /s /f /t 0
Quit

或
oo=Createobject('Wscript.shell')
oo.Run("Shutdown.exe /s /f /t 0",0,0)
Quit
[解决办法]
Shutdown.exe
是 XP 及以上系统自带的，如果担心没有，可以将 Shutdown.exe 拷贝你的程序目录中。