Форум: "Система";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
ВнизПерезагрузка...... Найти похожие ветки
← →
Anonimus (2003-04-17 10:45) [0]Уважаемые мастера..!!!
Подскажите пожалуйста как выключить или перезагрузить комп под win2000???
Спасибо..!!!
← →
Cobalt (2003-04-17 11:32) [1]ExitWindowsEx+F1
← →
Songoku (2003-04-17 11:35) [2]Я же уже добовлял что такое????
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_REBOOT, 0);
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c