[roman]

Código Delphi [-]
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Shell: OleVariant;

begin
  Shell := ComObj.CreateOleObject('shell.application');
  Shell.ShutDownWindows;
end;

Truco visto en el Guille

// Saludos