como apagar un ordenador

User_Baja_2 · #1 22-12-2003

Me gustaria introducir un botón en mi programa que cuando se pulse se cerrará el PC, y se apagara automáticamente. Alguna idea de como hacer sto?

Muchas gracias

DarkSide · #2 22-12-2003

Hola

Para apagar el ordenador solo tienes que llamar a la función ExitWindowsEx() y darle los parametros EWX_SHUTDOWN or EWX_POWEROFF.

Aqui va un ejemplo, de un formulario, con un boton de apagado:

Código:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('¿Estas seguro de apagarme?',mtWarning,[mbYes,mbNo],0) = mrYes
  then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;

Espero que te sirva.

Saludos

Descendents · #3 22-12-2003

con que windows trabajas?
Saludos

romeroja · #4 22-12-2003

Yo no hice esta pregunta pero me interesa este tema, estoy iniciandome en Delphi y aprendo mucho en el foro.
Probe el codigo para apagar la pc pero no funciona, puede ser que mi problema pase por usar NT.
ES diferente por este tema?

Gracias por su ayuda

Descendents · #5 22-12-2003

Por eso pregunte lo del S.O.

Mirad este hilo para plataformas NT

http://www.clubdelphi.com/vertruco.php?id=427

Saludos

User_Baja_2 · #6 26-12-2003

He probado las opciones:

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('¿Estas seguro de apagarme?',mtWarning,[mbYes,mbNo],0) = mrYes
then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;

y en lugar de apagarse lo que ocurre es que cierra la sesión, lo he probado con Win98, WinME y con WinXP y en todos casos me ocurre lo mismo.

DarkSide · #7 27-12-2003

Hola, el ejemplo que puse lo probe en mi computador (win98) y corre perfectamente, el problema puede estar por el uso de sesiones. De todas formas te paso un link donde puedes encontrar mas ejemplos al respecto http://q3.nu/trucomania/ , selecciona la opcion "buscar trucos" al lado izquierdo y busca la palabra "apagar". Suerte.

Saludos.