Delphi ShellExecute调用系统命令关闭计算机

本文整理自网络，侵删。

 
uses shellapi;

 if Application.MessageBox(System.Pchar('关闭计算机?'), '询问', 1 + 32) = id_OK then
  begin
    ShellExecute(Handle,'open','shutdown.exe','-f -s -t 0', nil, SW_HIDE);
  end;

 

相关阅读 >>

Delphi获取其它进程窗口句柄的三种方法

Delphi twebbrowser也能响应回车键

Delphi获取进程pid

Delphi简体中文与繁体中文的转换函数

Delphi 检测服务器地址是否有效

Delphi关于邮箱收信的问题

Delphi 变体数组

Delphi将图片缩放成指定大小

Delphi 获取文件创建时间

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ShellExecute调用系统命令关闭计算机