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;

[Luckie]

Und wo ist da der Unterschied? Ich sehe keinen nennens werten. Und wenn sich Norton aufhängt, dann probier doch einfach EWX_FORCE.

[Lefko]

Das war ja meine Frage
Da ich mich damit überhaupt kein Stück auskenne, wollte ich wissen, ob einer von beiden vielleicht besser ist; sicherer, einfacher, simpler oder irgendwie sowas.

OK, ich probier mal EWX_FORCE!

Danke Luckie

MfG Lefko

[Lefko]

Öhm, ich habe mal rausgefunden, dass der Zweite Code nicht funktioniert!

Ich hab EWX_FORCE or EWX_SHUTDOWN genommen, aber es passiert einfach gar nix...