quarta-feira, 4 de novembro de 2009

Rebootar o micro

{Esta desenvolvendo um programa de instalação e no final da copia precisa rebootar a máquina, ou o usuário não "logou" corretamente na rede Windows e por isso não é possível acessar sua base da dados...Para reseover elegantemente estes probleminhas, vamos nos valer de mais uma função da API do Windows, a ExitWindowsEx, como exemplos abaixo:}

{Desligar o Windows}
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_SHUTDOWN,0);
end;
{Efetuar novo Logon}
procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsEx(EWX_LOGOFF,0);
end;
{Rebootar}
procedure TForm1.Button3Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT,0);
end;

Nenhum comentário:

Postar um comentário