Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

Привилегии   Найти похожие ветки 

← →
Guest386x ©   (2006-01-14 20:05) [0]

Подскажите, как установить уровень привилегий SE_SHUTDOWN
(для WinXP, не хочет выключаться)

---

← →
sicilla ©   (2006-01-14 20:11) [1]

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
    SE_SHUTDOWN_NAME = "SeShutdownPrivilege";
begin
    if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
         tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd);
         if tpResult then
            begin
                 tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid);
                 TTokenPvg.PrivilegeCount := 1;
                 TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
                 cbtpPrevious := SizeOf(rTTokenPvg);
                 pcbtpPreviousRequired := 0;
                 if tpResult then
                    Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg, cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
            end;
    end;
    Result := ExitWindowsEx(RebootParam, 0);
end;

procedure TForm1.autopowerTimer(Sender: TObject);
begin
    MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;


---

← →
Guest386x ©   (2006-01-14 20:14) [2]

Огромное спасибо!!

---

← →
sicilla ©   (2006-01-14 20:17) [3]

Вы это написали до того, как попробовали или после? :)))

---

← →
Guest386x ©   (2006-01-14 20:20) [4]

В процессе выключения компа... :))

---

← →
Guest386x ©   (2006-01-14 20:20) [5]

В процессе выключения компа... :))

---

← →
Guest386x ©   (2006-01-14 20:21) [6]

Это был глюк... ;)

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c