como apagar un ordenador
 

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

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:


Espero que te sirva.

Saludos

con que windows trabajas?
Saludos

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:)

Por eso pregunte lo del S.O.

Mirad este hilo para plataformas NT

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

Saludos

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.

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.