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

Вниз

Перезагрузка......   Найти похожие ветки 

 
Anonimus   (2003-04-17 11:15) [0]

Мне нужно перезагрузить комп под win2000.
Я пишу так..: ExitWindowsEx(EWX_SHUTDOWN,1); но не чего не происходит..
Подскажите плиз..!!
Заранее спасибо..!!


 
Songoku ©   (2003-04-17 11:21) [1]

var
hToken:THANDLE;
NewState:TOKEN_PRIVILEGES;
OSVERSIONINFO :TOSVersionInfo;
d:Dword;
begin
d:=0;
OSVersionInfo.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
GetVersionEx (OSVersionInfo);
if (OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT) then begin

OpenProcessToken (GetCurrentProcess (), TOKEN_ADJUST_PRIVILEGES, hToken);
NewState.PrivilegeCount := 1;
LookupPrivilegeValue (nil, "SeShutdownPrivilege",
NewState.Privileges[0].Luid);
NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges ( hToken, FALSE, NewState,
d, nil, d);
CloseHandle (hToken);

end;
ExitWindowsEx(EWX_SHUTDOWN,1);


 
NAlexey ©   (2003-04-17 12:06) [2]

>Songoku
Логично, но без прав админа никак...



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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
1-84121
Sliften
2003-06-10 09:13
2003.06.26
навигация по ENTER


14-84663
SPeller
2003-06-10 10:12
2003.06.26
Как вы думаете, это стОящее занятие или нет?


14-84565
Мыш
2003-06-07 18:24
2003.06.26
Посоветуйте хороший фотоальбом


3-83988
Инна
2003-05-30 10:59
2003.06.26
перекючение страниц в PageControl


14-84720
killer
2003-06-05 15:44
2003.06.26
Иконка в избранном