Buscar

Status de conexão da rede local

Código

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdIPWatch;

type
  TForm1 = class(TForm)
    IdIPWatch1: TIdIPWatch;
    procedure FormCreate(Sender: TObject);
    procedure IdIPWatch1StatusChanged(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdIPWatch1.HistoryEnabled := FALSE;
  IdIPWatch1.Active := TRUE;
end;

procedure TForm1.IdIPWatch1StatusChanged(Sender: TObject);
begin
  if IdIPWatch1.ForceCheck then
    ShowMessage('Rede Conectada! ')
  else
    ShowMessage('Rede Caiu. Sistema será finalizado! ');
end;

end.
 

Publicidade

Vote na dica




Quantidade de votos: 2 votos
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 06/10/09
Por: Carlos Roberto Stunitz
Visualizada: 8263 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009