Welcher Code zum Shutdown ist besser?

[Lefko]

Hallo Freunde ,

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