Delphi-PRAXiS - Delphi Welcher Code zum Shutdown ist besser?

Hallo Freunde :hi: ,

ich hab zwei verschiedene Codes zum Shutdown von Windows, weiss aber nicht, ob einer davon besser ist, als der andere, weil ich mich mit diesem Thema nicht auskenne!

Es sind ein paar Unterschiede im Code, vielleicht könnt ihr mir sagen, welcher besser ist (wenn überhaupt) UND vielleicht, welche Flags ich am besten verwenden sollte?

Der PC soll herunterfahren, deswegen EWX_SHUTDOWN; aber er sollte auf jeden Fall herunterfahren! Ich habe in letzter Zeit das Problem, dass Norton AntiVirus den Shutdown blockiert, in dem es sich aufhängt :evil: sollte ich da EWX_FORCEIFHUNG verwenden? (oder bei nicht-NT-systemen EWX_FORCE?!)

MfG Lefko.

Delphi-Quellcode:

			function Tform1.ExitWin(flag : word): Boolean;

var Version : TOSVersionInfo;

    hToken  : THandle;

    TP      : TTokenPrivileges;

    h       : DWord;

begin

result := false;

Version.dwOSVersionInfoSize := SizeOf(Version);

GetVersionEx(Version);

if Version.dwPlatformId = VER_PLATFORM_WIN32_NT

  then // Windows NT/2000/XP etc.

   begin

    //Rechte holen

                     {Achtung bei Delphi 2 muß @hToken stehen ...}

    OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken);

    LookupPrivilegeValue(nil, 'SeShutdownPrivilege', TP.Privileges[0].Luid);

    TP.PrivilegeCount := 1;

    TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

    h := 0;

    AdjustTokenPrivileges(hToken, false, TP, 0, PTokenPrivileges(nil)^, h);

    CloseHandle(hToken);

    result := ExitWindowsEx(flag, 0);

   end

  else // Windows 9x/ME etc.

   begin

    result := ExitWindowsEx(flag, 0);

   end;

end;

und Nummer 2:

Delphi-Quellcode:

			function TForm1.Windows_Shutdown;

(*----------------Unterfunktionen Shutdown_NT und Shutdown_9x-----------------*)

   function Shutdown_NT: boolean;

   var MyLUID : Int64;

       Priv : _Token_Privileges;

       ProcessHandle, TokenHandle, BufferLen : Cardinal;

       OldPriv : PTokenPrivileges;

   begin

   Result := False;

   ProcessHandle := GetCurrentProcess;

   if OpenProcessToken(ProcessHandle, (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY), TokenHandle)

     then

      begin

       if LookupPrivilegeValue('', 'SeShutdownPrivilege', MyLUID)

         then

          begin

           Priv.PrivilegeCount := 1;

           Priv.Privileges[0].Luid := MyLUID;

           Priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

           OldPriv := AllocMem(65536);

           if AdjustTokenPrivileges(TokenHandle, False, Priv, 65536, OldPriv, BufferLen)

             then result := ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0);

          end;

      end;

   end; {Shutdown_NT}

   function Shutdown_9x: boolean;

   begin

   result := ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0);

   end;

(*----------------------------Beginn von Shutdown_Windows---------------------*)

var Version : TOSVersionInfo;

begin

GetVersionEx(Version);

if (Version.dwPlatformID = VER_PLATFORM_WIN32s) or

   (Version.dwPlatformID = VER_PLATFORM_WIN32_WINDOWS)

  then

   result := Shutdown_9x

  else

   result := Shutdown_NT;

end;