Windows 10 - System nicht ausschalten, nachdem Windows heruntergefahren wurde

[TUX_der_Pinguin]

Hallo,

mit folgendem Code lasse ich den Computer herunterfahren, jetzt möchte ich aber gerne das die gute alte Meldung "Es ist jetzt sicher den Computer auszuschalten" erscheint und nicht das der automatisch abgeschaltet wird. Dazu habe ich herausgefunden das es eine Option in den Gruppenrichtlinien (Computerkonfiguration\Administrative Vorlagen\System\System nicht ausschalten, nachdem Windows heruntergefahren wurde) gibt (siehe Anhang) und mit dem Flag 'SHUTDOWN_NOREBOOT' veranlasst man den Computer auch genau dieses zu tun. In der Theorie alles wunderbar und auch unter Windows 7 läuft alles so wie man es will, herunterfahren wird angestoßen, ggf. werden Updates installiert und im Anschluss bleibt der Rechner an und zeigt die Meldung. Unter Windows 10 Enterprise LTSB Evaluation Version funktioniert das jedoch nicht. Der Rechner fährt zwar herunter aber schaltet sich ab, entweder wird die Gruppenrichtline ignoriert oder der API Aufruf.

Hat jemand von euch eine Idee bzw. Erfahrung damit?

Delphi-Quellcode:

procedure WindowsShutDown( Computer: PChar; Msg: PChar; Time: Word; Force: Boolean; Reboot: Boolean );
var
  rl : Cardinal;
  hToken: THandle;
  tkp : TOKEN_PRIVILEGES;
  flags : DWORD;

begin
  {$WARN SYMBOL_PLATFORM OFF}

  Win32Check( OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken ) );
  Win32Check( LookupPrivilegeValue( nil, 'SeShutdownPrivilege', tkp.Privileges[ 0 ].Luid ) );

  tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
  tkp.PrivilegeCount := 1;

  Win32Check( AdjustTokenPrivileges( hToken, False, tkp, 0, nil, rl ) );

  if Win32MajorVersion >= 6
  then
    begin
      // Flags
      if Reboot
      then
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_RESTART
      else
        flags := SHUTDOWN_FORCE_SELF or SHUTDOWN_GRACE_OVERRIDE or SHUTDOWN_INSTALL_UPDATES or SHUTDOWN_NOREBOOT;

      // Befehl ausführen
      Win32CheckSuccess( InitiateShutdown( Computer, Msg, Time, flags, 0 ) );
    end
  else
    Win32Check( InitiateSystemShutdown( Computer, Msg, Time, Force, Reboot ) );

  {$WARN SYMBOL_PLATFORM ON}
end;