Reboot Em Delphi - Tem Como?

[ferj]

Como faço para reiniciar o computador em Delphi? Alguém sabe?

Por exemplo, aparece uma mensagem do tipo: "Atualizações concluídas. Deseja reiniciar o computador agora?" e se a pessoa escolher sim, o computador seja reiniciado.

[Arlon]

Se liga nesses códigos aki:

procedure TForm1.ButtonClick(Sender:    TObject);
begin
   {Reinicia o windows}
   ExitWindowsEx(EWX_REBOOT,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   {Desliga o windows}
   ExitWindowsEx(EWX_SHUTDOWN,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   {Força todos os programas a desligarem-se}
   ExitWindowsEx(EWX_FORCE,0);
end;

Pra abir uma caixa de diálogo você pode fazer o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
begin
   If APPLICATION.MESSAGEBOX('Atualizações concluídas. Deseja reiniciar o computador agora?',
   'Aviso', MB_ICONQUESTION + MB_YESNO)=ID_YES Then
      ExitWindowsEx(EWX_REBOOT,0);
end;

[ferj]

Valeu, ajudou muito!

[Arlon]

He, he, disponha.