Delphi技术手册

alexpenf

正需要,谢谢

今月古月

delphi学习中。。。。 正需要

xhgd

感谢楼主的分享，需要

古五月

下载下来看

想晴的天

在哪？

丶浅微

66666666666666

hasf2005

谢谢分享

CHNA

顶！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

iceweek

ganxieganxie

mrliu9898

谢谢楼主

eastglave

到底是什么呢

马大老板

hhhhhhhhhhhhhhhhhhhhhhhhhh

wuwang

xiexie

NPF145

学习学习

adreamers

学习学习 多谢分享。

Violet918

回复看看，谢谢分享

黄卫宇

123

Dafeichong

看看看

1102145138

谢谢分享

国产金刚葫芦娃

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function GetOperatingSystem(): string;
    procedure ShutDownComputer();
    procedure Get_Shutdown_Privilege();
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShutDownComputer();
end;

procedure ShutDownComputer();
begin
  if GetOperatingSystem() = 'Windows NT/2000/XP' then
  begin
    Get_Shutdown_Privilege();
    //调用此函数会出现系统关机提示窗口，并允许用户取消关机动作
    InitiateSystemShutDown(nil, '关机提示：讨厌你所以关了你！', 3, True, False);
    // InitiateSystemShutDown去掉的话就不显示提示窗口
    ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);
  end
  else
  begin
    ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);
  end;
end;

function GetOperatingSystem(): string; //获取操作系统信息
var
  osVerInfo: TOSVersionInfo;

begin
  Result:= '';
  osVerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);

  if GetVersionEx(osVerInfo) then
    case osVerInfo.dwPlatformId of
    VER_PLATFORM_WIN32_NT:
      begin
        Result:= 'Windows NT/2000/XP'
      end;
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        Result := 'Windows 95/98/98SE/Me';
      end;
  end;
end;

procedure Get_Shutdown_Privilege(); //获得用户关机特权，仅对Windows NT/2000/XP
var   
  rl: Cardinal;  
  hToken: Cardinal;  
  tkp: TOKEN_PRIVILEGES;   
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);

  if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
  begin  
    tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
    tkp.PrivilegeCount:= 1;
    AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);  
  end;  
end;

end.