http://www.vr-online.ru/?q=content/schetch...-na-delphi-1078
но я не смог найти информацию о времени работы подключения (или может лучше времени когда соединение было запущено)...
rCount:=tmibiftable(_P^).dwNumEntries-1;
for i:=0 to rCount do
with ListView1.Items.Add do
begin
caption:=copy(Trim(TMibIfTable(_p^).table[i].bDescr),1,50); //описание
subitems.Add(GetInterfaceType(TMibIfTable(_P^).table[i].dwtype)); //тип
subitems.add(SpeedToStr(TMibIfTable(_p^).table[i].dwSpeed)); //скорость
subitems.Add(Traff(TMibIfTable(_p^).table[i].dwOutOctets)); //отправлено
subitems.Add(Traff(TMibIfTable(_p^).table[i].dwInOctets)); //принято
subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwOutErrors));
subitems.Add(IntToStr(TMibIfTable(_p^).table[i].dwInErrors));
end;
dispose(_MibIfTable);