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

[ZJM84862915]

用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 拷贝你的程序目录中。