怎样实现强制关机(50分)

unit MainFrm;

interface

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

type
  TForm1 = class(TForm)
    btnShutDown: TButton;
    procedure btnShutDownClick(Sender: TObject);
  private
    { Private declarations }
    procedure AdjustToken;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdjustToken;
var
  hdlProcessHandle : Cardinal;
  hdlTokenHandle : Cardinal;
  tmpLuid : Int64;
 // tkpPrivilegeCount : Int64;
  tkp : TOKEN_PRIVILEGES;
  tkpNewButIgnored : TOKEN_PRIVILEGES;
  lBufferNeeded : Cardinal;
  Privilege : array[0..0] of _LUID_AND_ATTRIBUTES;
begin
   hdlProcessHandle := GetCurrentProcess;
   OpenProcessToken(hdlProcessHandle,(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),
                    hdlTokenHandle);
   // Get the LUID for shutdown privilege.
   LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);
   Privilege[0].Luid := tmpLuid;
   Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
   tkp.PrivilegeCount := 1;   // One privilege to set
   tkp.Privileges[0] := Privilege[0];
   // Enable the shutdown privilege in the access token of this
   // process.
   AdjustTokenPrivileges(hdlTokenHandle,False,tkp,Sizeof(tkpNewButIgnored),
                         tkpNewButIgnored,lBufferNeeded);
end;

procedure TForm1.btnShutDownClick(Sender: TObject);
begin
  AdjustToken;
  ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_POWEROFF), $FFFF);
end;

end.