Rede - internet, bytes enviados e recebidos e velocidade da conexao

Top  Previous  Next

// Para pegar os bytes transferidos, recebidos e Velocidade da conexão:

 

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

  Registry : TRegistry;

  BufLong : LongInt;

begin

  Registry := TRegistry.Create;

  try

    Registry.RootKey := HKEY_DYN_DATA;

    if Registry.OpenKeyReadOnly('PerfStats\StatData') then begin

      Registry.ReadBinaryData('Adaptador para rede dial-up\TotalBytesRecvd',BufLong,Sizeof(LongInt));

      Label4.Caption := IntToStr(BufLong);

      Registry.ReadBinaryData('Adaptador para rede dial-up\TotalBytesXmit',BufLong,Sizeof(LongInt));

      Label5.Caption := IntToStr(BufLong);

      Registry.ReadBinaryData('Adaptador para rede dial-up\ConnectSpeed',BufLong,Sizeof(LongInt));

      Label6.Caption := IntToStr(BufLong);

    end;

  finally

    Registry.Free;

  end;

end;