7 replies to this topic

[enecumene]

Pues eso, este truco les será útil en un momento determinado, por ejemplo, en las actualizaciones de sus sistemas de la cual al terminar requiera reiniciar Windows para que haga efectos, aquí el code muy sencillo usando la API ExitWindowsEx de la Unidad Windows:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_REBOOT,0);
end;

Espero la disfruten

Saludos.

[egostar]

Hey

Porque no avisas que habia que guardar los documentos con que estaba trabajando

Salud OS

[Fenareth]

Jajajajajajajajajajajajajaja !!!!!!

Saludox !

[escafandra]

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:

php

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

Si os apetece una forma brutal de apagar Windows mirar esto (¿Acierto o error?). Pero Ojo, guardar todo el trabajo antes.... (6)

Saludos.

[razadi]

jajaja, que onda?, deberas eh, primero debemos salvar lo que se tenga trabajando, porque si no...

saludos.

[rgstuamigo]

En todo caso si se desea apagar , reiniciar o suspender lo mejor es hacerlo de esta manera y no se necesita tener privilegios específicos :

delphi

uses ComObj;
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Shell: OleVariant;
begin
  Shell := ComObj.CreateOleObject('shell.application');
  Shell.ShutDownWindows;
end;

Saludos...

[enecumene]

Excelente código amigo rgstuamigo

[baiun]

muchas gracias por el aporte