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

[thkerkmann]

Hi,

ich glaube Dein

Delphi-Quellcode:

Pointer(true)

ist ganz böse.

Hier sollte ein Pointer auf eine boolean Variable stehen, da es einen Return-Wert geben soll.

Also entweder (nach der VB Vorlage) solltest Du dort NIL reinschreiben - was dann bedeutet Du möchtest keinen Return-Wert, oder du legst eine Wordbool Variable an und gibst deren Adresse hier rein.

Dann sollte es funktionieren.

Gruss

[Zacherl]

Okey, danke ich werds mal versuchen ... wollte irgendwie eine Variable vermeiden, dann teste ich mal mit nil.

[Zacherl]

Geht immer noch nicht ... habe das Pointer(true) mit nil ersetzt.

[Dax]

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';

var b: Boolean;

begin
  b := True;
  RtlAdjustPrivilege(SE_SHUTDOWN_PRIVILEGE, true, true, @b);
  NtShutdownSystem(SH_SHUTDOWN);
end.

So?

[Zacherl]

Geht immer noch nicht ... ich verstehe das nicht ... der VB Code funktioniert wunderbar. Dort ist allerdings auch der CurrentThread Parameter 0 oder false, was bei mir immer zu einer AV führt.

[Christian Seehase]

Moin Florian,

woher weisst Du, dass die Aufrufkonvention stdcall ist, und nicht cdecl?

[Zacherl]

Ich hab die Header aus den Jedi Übersetzungen der Nativen APIs kopiert ... die sollten ja eigentlich richtig sein.

[Christian Seehase]

Moin Florian,

war nur eine Idee, da eine AV recht ungewöhnlich ist, ausser die Aufrufkonvention stimmt nicht.

Die Deklaration scheint mir aber dennoch nicht zu stimmen.
Der API-Typ BOOL muss als longbool deklariert werden, nicht als boolean.

[brechi]

kernel32 und ntdll exports ind immer stdcall

die VB Version wird aber mit
... True, False, nil
aufgerufen, vielleicht liegts daran.

Edit: ups nicht ganz gelesen mein Fehler :/

Edit2: der letzte Parameter ist nur der Rückgabeparameter. Prüf halt mit NT_SUCCESS (== 0) ob die Funtkion erfolgreich war