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;