[[AgustinOrtu]]

Fijate si podes sacar provecho del siguiente codigo.

El mismo lo he tomado y adaptado un poco de esta web

Esta basado en la funcion ExitWindowsEx

Ejemplo de uso:

Código Delphi [-]
uses
  Win.Power;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowsPoweOff; // apaga la computadora
  WindowsReboot; // reinicia la computadora
  WindowsLogOff; // cierra la sesion actual
end;