| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблемы с выключением машины под NT4 [D7, NT4, Win2k]

SaX ©   (2005-06-14 14:29:00) 

собственно используется уже неоднократно цитируемый код:

procedure TFOrm1.WinShut;
var
 t: _Token_Privileges;
 ht: cardinal;
 rl: cardinal;
begin
     if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ht) then begin
       LookupPrivilegeValue(nil, 'SeShutdownPrivilege', t.Privileges[0].Luid);
       t.PrivilegeCount:=1;
       t.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       AdjustTokenPrivileges(ht, false, t, 0, nil, rl);
     end;
     ExitWindowsEx(EWX_FORCE or EWX_POWEROFF, 0);
end;

машина под управлением 2000 выключается, как и положено, а под управлением NT4 только перезагружается....
в чем может быть загвоздка?....

---

Игорь Шевченко   (2005-06-14 16:16:00) [1]

> а можно немного поподробнее


В msdn все написано вообще-то.

---

SaX   (2005-06-14 15:27:00) [2]

спасибо, а можно немного поподробнее?.........

---

PVOzerski   (2005-06-14 15:02:00) [3]

Надо менять hal.dll на нестандартную.

---

Наверх