Runterfahren in weniger als einer Sekunde - Geht nicht

[Zacherl]

Hallo,

ich habe ein kleines Programm geschrieben, was den PC in Sekundenbruchteilen runterfahren sollte. Leider funktioniert dies nicht korrekt. Hab ich die APIs falsch implementiert, oder ist mein Aufruf falsch?

Delphi-Quellcode:

program SEShutodwn;

uses
  Windows;

const
  SE_SHUTDOWN_PRIVILEGE = 19;
  SH_SHUTDOWN = 0;
  SH_RESTART = 1;
  SH_POWEROFF = 2;

function  NtShutdownSystem(
    Action : DWORD
  ): DWORD; stdcall; external 'ntdll';

function  RtlAdjustPrivilege(
    Privilege : ULONG;
    Enable : BOOLEAN;
    CurrentThread : BOOLEAN;
    Enabled : PBOOLEAN
  ): DWORD; stdcall; external 'ntdll';

begin
  RtlAdjustPrivilege(SE_SHUTDOWN_PRIVILEGE, true, true, Pointer(true));
  NtShutdownSystem(SH_SHUTDOWN);
end.

der funktionierende VB Code lautet wie folgt:

Code:

Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)

Public Const SE_SHUTDOWN_PRIVILEGE& = 19
Public Const SHUTDOWN& = 0
Public Const RESTART& = 1
Public Const POWEROFF& = 2


Sub Main()
    RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
    NtShutdownSystem SHUTDOWN
End Sub

Wie es scheint ist dort der 3. Parameter von RtlAdjustPrivilege false und der letzte auch. Setze ich den 3. aber auf false gibt es eine AV. Und der letzte ist denke ich irrelevant.

Florian