Текущий архив: 2003.12.19;
Скачать: CL | DM;
Вниз
перезапуск компа Найти похожие ветки
← →
lena19 (2003-12-08 23:50) [0]всем привет народ подскажите как програмно перезапустить ком
пробовала
ExitWindows(EW_RESTARTWINDOWS, 0 )
но она не перегружает его а тока доходит до смены пользователя
у меня стоит win XP
← →
Александр из Минска © (2003-12-08 23:54) [1]А если так: ExitWindowsEx(EWX_REBOOT, 0); ???
← →
Dimich1978 © (2003-12-09 08:21) [2]Да Вы забыли про привелегии которые надо еще получить, а все что написано это для 98 подойдет, для 2000 и ХР нужны привелегии
procedure ReBoot(i:integer);
var
hToken: THandle;
tkp: TTokenPrivileges;
RetLen: DWORD;
PreviousState: TTokenPrivileges;
Ver: TOsVersionInfo;
begin
try
Ver.dwOSVersionInfoSize := SizeOf(Ver);
GetVersionEx(Ver);
if Ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin // если WinNT
if not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then exit;
if not LookupPrivilegeValue( Nil, "SeShutdownPrivilege",tkp.Privileges[0].Luid) then exit;
PreviousState := tkp;
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not(AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(PreviousState), PreviousState, RetLen)) then exit;
end;
application.Terminate;
if i=2 then ExitWindowsEx(EWX_REBOOT,0); // перезагрузить
if i=1 then ExitWindowsEx(EWX_POWEROFF,0);
except
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2003.12.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
