如何关闭Windows？

Question

如何在 Delphi 应用程序（7，试图将其移植到 2010）中强制系统（XP 或 7）关闭？

Answer 1

查看 About.com 上的 Zarco Gajic 提示，“关闭/重新启动 Windows 2000/XP/NT。”

Answer 2

您可以使用此代码

  ShellExecute(0, nil, 'cmd.exe', '/C shutdown /s', nil, SW_HIDE);

不要忘记将 ShellApi 添加到 USES 中。

此代码在命令行中使用参数 /s 运行命令 shutdown。