como apagar un ordenador

[DarkSide]

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:

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