Shutdown med winAPI

unit ShutDownU;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

{$ifdef Ver90} { Delphi 2.0x }
  {$define Delphi32LessThan3}
{$endif}
{$ifdef Ver93} { C++ Builder 1.0x }
  {$define Delphi32LessThan3}
{$endif}

{$ifdef Delphi32LessThan3}
procedure Win32Check(Value: Boolean);
begin
  if not Value then
    raise Exception.Create(SysErrorMessage(GetLastError))
end;
{$endif}

procedure TForm1.btnRestartClick(Sender: TObject);
var
  HToken: THandle;
  TP, OldTP: TTokenPrivileges;
  ReturnLen: Integer;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    //Get a token for this process
    Win32Check(OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      {$ifdef Delphi32LessThan3}@{$endif}HToken));
    //Get the LUID for the shutdown privilege
    Win32Check(LookupPrivilegeValue(nil,
      'SeShutdownPrivilege', TP.Privileges[0].Luid));
    TP.PrivilegeCount := 1; //One privilege to set
    TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    //Acquire shutdown privilege for this process
    Win32Check(AdjustTokenPrivileges(HToken,
      False, TP, SizeOf(OldTP), OldTP, ReturnLen));
  end;
  //Shut down the system and force all applications to close
  if not ExitWindowsEx(EWX_SHUTDOWN {or EWX_FORCE}, 0) then
    raise Exception.Create('Cannot shut Windows');
  Close;
end;

end.

[Error] Shutdown.pas(60): There is no overloaded version of 'AdjustTokenPrivileges' that can be called with these arguments
??? Bruger Delphi 6 Enterprise

Hmm, det kunne Compilere i D5 ent., men jeg kan se i hjælpen at den forventer PTOKEN_PRIVILEGES, så prøv at lave om til den type

var
  HToken: THandle;
  //TP, OldTP: TTokenPrivileges; <--------------
  TP, OldTP: PTokenPrivileges; <- !!!!!!!!

Nope samme fejl, roder lidt videre med det ....

Jeg kan fortælle at koden er taget fra en DelphiMagazine artikel og jeg har compileret det i D5 til en Console app der virkede.

Jeg fandt en der virkede i D6 på http://borrisholt.com