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 webbrowser getelementbyid().innerhtml与getelementbyid().value的区别

Delphi trystrtoint字符转换成整数

Delphi listbox 使用

winapi 字符及字符串函数(12): lstrlen - 串长度

如何判断硬盘是fat32还是ntfs

Delphi 提升权限查找进程关闭进程单元

qdac项目

Delphi topendialog设置多个过滤条件

Delphi如何在一个窗体中嵌入另一个窗体

Delphi sqlite 自动编号的实现

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

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