, hvordan at tvinge vinduer lukket.,, ring til følgende rutine, som så,,, winexit (ewx_poweroff eller ewx_force);,,,,, funktion winexit (flag: hele tal): boolean,,, funktion setprivilege (privilegename: string, muliggøre: boolean): boolean,,, var tpprev,,, tp: ttokenprivileges;,, symbolsk: thandle;,, dwretlen: dword;,, begynder, resultat: = falske,, openprocesstoken (getcurrentprocess, token_adjust_privileges eller token_query token);,, tp.privilegecount: = 1, hvis lookupprivilegevalue (- 0, pchar (privilegename), tp. privilegier - 0]. luid), begynder, hvis muligt,,, tp. privilegier [0]. attributter: = se_privilege_enabled,,,, tp. privilegier [0]. attributter: = 0, dwretlen: = 0, resultat: = adjusttokenprivileges (tegn, falske, tp, 7 (tpprev), tpprev, dwretlen);,,,,, closehandle (p.m.);,,,,, begynder,, hvis setprivilege ('seshutdownprivilege, sande) så begynde, exitwindowsex (flag, 0), setprivilege ('seshutdownprivilege, falske),,,,,,,