Hvordan tvinge vinduer for å stenge down.Call følgende rutine som soWinExit (EWX_POWEROFF eller EWX_FORCE), funksjon WinExit (flagg: heltall): boolean; funksjon SetPrivilege (privilegeName: string; aktiver: boolsk): boolean; Var tpPrev, TP: TTokenPrivileges; token: THandle; dwRetLen: DWORD; begynne resultat: = False; OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES eller TOKEN_QUERY, token); tp.PrivilegeCount: = 1; hvis LookupPrivilegeValue (null, pchar (privilegeName), tp.Privileges [0] .LUID), og start hvis aktiver deretter tp.Privileges [0] .Attributes: = SE_PRIVILEGE_ENABLED annet tp.Privileges [0] .Attributes: = 0; dwRetLen: = 0; Resultatet: = AdjustTokenPrivileges (token, False, tp, sizeof (tpPrev), tpPrev, dwRetLen); slutt; CloseHandle (token); slutt, begynne hvis SetPrivilege ( 'SeShutdownPrivilege', true) deretter begynne ExitWindowsEx (flagg, 0); SetPrivilege ( 'SeShutdownPrivilege', False) end, end,