comando para reinicializar computador

Question

Eu usava o seguinte comando para reinicializar o computador.ExitWindowsEx(EWX_REBOOT, 0);Funciona bem em m�quina win95 e win98.S� que na minha empresa tenho m�quinas com winxp tamb�m e este comando n�...

Paullsoftware · Answer

eu uso essa fun��o que encontrei aqui mesmo no f�rum e funciona comigo normalmente...

function SairdoWindows(RebootParam: Longword): Boolean; 
var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = �SeShutdownPrivilege�;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(), 
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, 
TTokenHd); 
if tpResult then 
begin 
tpResult := LookupPrivilegeValue(nil, 
SE_SHUTDOWN_NAME, 
TTokenPvg.Privileges[0].Luid); 
TTokenPvg.PrivilegeCount := 1; 
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; 
cbtpPrevious := SizeOf(rTTokenPvg); 
pcbtpPreviousRequired := 0; 
if tpResult then 
Windows.AdjustTokenPrivileges(TTokenHd, 
False, 
TTokenPvg, 
cbtpPrevious, 
rTTokenPvg, 
pcbtpPreviousRequired); 
end; 
end; 
Result := ExitWindowsEx(RebootParam, 0); 
end;

exemplo do uso:

 SairdoWindows(EWX_FORCE+EWX_SHUTDOWN);

espero ter ajudado! :wink: