function Windos_Close:Boolean;
var
        hProc, hToken   : THandle;
        mLUID           : Int64;
        mPriv, mNewPriv: TTokenPrivileges;
begin
        Result := False;

        hProc := GetCurrentProcess();
        OpenProcessToken(hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken);
        LookupPrivilegeValue('', 'SeShutdownPrivilege', mLUID);
        mPriv.PrivilegeCount := 1;
        mPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        mPriv.Privileges[0].Luid := mLUID;
        AdjustTokenPrivileges(hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv,
           mNewPriv.PrivilegeCount);
        ExitWindowsEx(EWX_SHUTDOWN, 0);

        Result := True;
end;