Выключаем и перезагружаем 9х. Builder.

Antiserge 07.05.2004 - 15:53 | Выключаем и перезагружаем 9х: ExitWindowsEx(EWX_SHUTDOWN, 0);ExitWindowsEx(EWX_REBOOT, 0); Как это же сделать с ХР?
tvv 1 - 07.05.2004 - 16:20 | попробуй так procedure ShutdownComputer; var ph:THandle; tp,prevst:TTokenPrivileges; rl:DWORD; begin if Win32Platform=VER_PLATFORM_WIN32_NT then begin OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph); LookupPrivilegeValue(Nil,'SeShutdownPrivilege',tp.Privileges[0].Luid); tp.PrivilegeCount:=1; tp.Privileges[0].Attributes:=2; AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl); end; ExitWindowsEx(EWX_POWEROFF, 0); end;
Antiserge 2 - 09.05.2004 - 11:58 | Как это не удивительно, однако все работает. Спасибо, tvv.

>>