Fahren Sie Windows herunter

Fahren Sie Windows herunter

Fahren Sie Windows herunter : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie Windows Herunterfahren erzwingen.
Rufen Sie die folgende Routine wie also
WinExit (EWX_POWEROFF oder EWX_FORCE);

Funktion WinExit(flags: integer): boolean;
Funktion SetPrivilege (PrivilegeName: Zeichenfolge; aktivieren: Boolean): boolean;
Var-TpPrev,
TP: TTokenPrivileges;
Token: THandle;
DwRetLen: DWord;
beginnen
Ergebnis: = False;
OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES oder TOKEN_QUERY, Token);
TP. PrivilegeCount: = 1;
Wenn LookupPrivilegeValue (null, pchar(privilegeName), TP. Privilegien [0]. LUID) dann
beginnen
Wenn dann aktivieren

TP. Privilegien [0]. Attribute: = SE_PRIVILEGE_ENABLED
sonst
TP. Privilegien [0]. Attribute: = 0;
DwRetLen: = 0;
Ergebnis: = AdjustTokenPrivileges (token, False, Tp, SizeOf(tpPrev), TpPrev, DwRetLen);
Ende;
CloseHandle(token);
Ende;
beginnen
Wenn SetPrivilege ('SeShutdownPrivilege', True) dann beginnen
ExitWindowsEx (Flags, 0);
SetPrivilege ('SeShutdownPrivilege', False)
Ende;
Ende;