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 获取硬盘序列号(ide,sata,scsi)

Delphi playsound()函数应用

Delphi : tstringlist的find，indexof和sort

Delphi实现百度地图经纬度与地址互转

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi xe2 - 实现主窗口在任务栏上不显示

Delphi 获取公网ip地址

Delphi tadoquery的用法

Delphi输入字符与tlistbox项目匹配

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

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