quinta-feira, 23 de janeiro de 2014

Função desliga maquina via API do Windows


{ A função que utilizaremos no código abaixo é da API do Windows.
Obs.: O usuário que vai executar o programa deve ser um usuário de
rede e ter permissão de Administrador.}

procedure TForm1.Button1Click(Sender: TObject);
var
  lpMachineName: PAnsichar;   // endereço ou nome do computador para ShutDown
  lpMessage: PAnsiChar;       // menssagem para exibição na caixa de diálogo
  dwTimeOut: Cardinal;        // tempo (em segundos) de exibição da caixa de diálogo até o ShutDown
  bForceAppsClosed: Bool;     // flag para força o fechamento das aplicações em execução
  bRebootAfterShutdown: Bool; // flag para indicar se o computador será reiniciado imediatamente após o desligamento
  retorno: LongBool;          // esta variável servirá para identificarmos se a operação foi bem sucedido
begin
  lpMachineName        := 'workstation01';
  lpMessage            := 'Este computador será desligado, salve seus trabalhos.';
  dwTimeOut            := 60;
  bForceAppsClosed     := False;
  bRebootAfterShutdown := False;
  retorno := InitiateSystemShutdown(lpMachineName, lpMessage, dwTimeOut, bForceAppsClosed, bRebootAfterShutdown);
  if not retorno then
    ShowMessage('ShutDown falhou!')
  else
    ShowMessage('ShutDown efetuado com sucesso!');
end;

Nenhum comentário:

Postar um comentário