Buscar por:

Deslgar um computador de rede remotamente

Código

{ 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;