procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsEx(EWX_REBOOT,0); end;
Espero la disfruten
![;)](http://delphiaccess.com/foros/public/style_emoticons/default/15.gif)
Saludos.
Posted 24 September 2009 - 01:38 PM
procedure TForm1.Button1Click(Sender: TObject); begin ExitWindowsEx(EWX_REBOOT,0); end;
Posted 24 September 2009 - 02:25 PM
Posted 24 September 2009 - 02:29 PM
Posted 24 September 2009 - 03:57 PM
Buen ejemplo. Para que la aplicación pueda cerrar Windows debe ajustarse el privilegio SeShutdownPrivilege. La API ExitWindowsEx tiene algún uso también interesante:
ExitWindowsEx(0,0); // EWX_LOGOFF - Cierra los procesos y la sesión del usuario. ExitWindowsEx(2,0); // EWX_REBOOT - Reboot. Debes tener privilegio SE_SHUTDOWN_NAME ExitWindowsEx(8,0); // EWX_POWEROFF - Apagar. Debes tener privilegio SE_SHUTDOWN_NAME
Posted 25 September 2009 - 07:42 AM
Posted 03 November 2009 - 01:56 PM
uses ComObj; ... ... procedure TForm1.Button1Click(Sender: TObject); var Shell: OleVariant; begin Shell := ComObj.CreateOleObject('shell.application'); Shell.ShutDownWindows; end;
Posted 03 November 2009 - 05:46 PM
Posted 26 October 2012 - 03:47 AM