Mais uma pérola da API do Windows:
Código: Selecionar todos
Local EWX_REBOOT := 2
...
ExitWindowsEx( EWX_REBOOT, 0 )
...
Return nil
DLL FUNCTION ExitWindowsEx( uFlags AS _INT, dwReserved AS _INT ) AS _INT PASCAL LIB "user32.dll"
Moderador: Moderadores

Código: Selecionar todos
Local EWX_REBOOT := 2
...
ExitWindowsEx( EWX_REBOOT, 0 )
...
Return nil
DLL FUNCTION ExitWindowsEx( uFlags AS _INT, dwReserved AS _INT ) AS _INT PASCAL LIB "user32.dll"