Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.14;
Скачать: CL | DM;

Вниз

проблемы с выключением машины под NT4   Найти похожие ветки 

 
SaX   (2005-06-14 14:29) [0]

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

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 только перезагружается....
в чем может быть загвоздка?....


 
PVOzerski ©   (2005-06-14 15:02) [1]

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


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

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


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


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


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



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

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

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1115420411
АНТИСпаммер
2005-05-07 03:00
2005.08.14
Как написать плагин для ie на Delphi ?


4-1114106616
Девушка
2005-04-21 22:03
2005.08.14
Ethernet в виртуальный Com-порт


1-1122023678
DimaBr
2005-07-22 13:14
2005.08.14
Handle окна компонента


4-1119589264
Dot
2005-06-24 09:01
2005.08.14
Sound Off


1-1122455645
Begin
2005-07-27 13:14
2005.08.14
TPanel и Canvas. Можно ли рисовать по TPanel ?