системно отследить время соединения с интернетом

[beegl]

поискал и нашел пак IP Works! и компонент IpwIPInfo .. и всё получилось

https://sourceforge.net/projects/intertelecomsc/

function DeleteStrEx(s: string; posit, count: integer): string;
begin
  Delete(s, posit, count);
  Result := s;
end;

function DeleteFaskaStrEx(s: string; first, last: integer): string;
begin
  result := DeleteStrEx(s, 1, first);
  result := DeleteStrEx(Result, length(Result) - last + 1, length(Result) -
    (length(Result) - last));
end;

// ************************************** //
//                                            Sumhhmm:     //
// ************************************** //
// sumtime(1.20,1.50) => 3.10             //
// sumtime(1.20,- 0.50) => 0.30           //

function Sumhhmm(a, b: TDateTime): TDateTime;
var
  h1: double;
begin
  h1 := (INT(A) + INT(B)) * 60 + (frac(a) + frac(b)) * 100;
  result := int(h1 / 60) + (h1 - int(h1 / 60) * 60) / 100;
end;



procedure TIntertelecomForm.TimerSissiaInTimer(Sender: TObject);
begin
if GetOnlineStatus = False then
begin
TimeConnectFx.Caption := 'Active: 00:00:00';
TimeConnectEx.DHCPRenew();
end else
if GetOnlineStatus = True then
begin
if (TimeConnectEx.AdapterDHCPEnabled = True) or (TimeConnectEx.AdapterDeviceIndex > 100) and (TimeConnectEx.AdapterGateway <> '') then
begin
TimeConnectEx.AdapterIndex := 0;
TimeConnectFx.Caption := 'Active: ' + TimeToStr(sumhhmm(StrToTime(DeleteFaskaStrEx(TimeConnectEx.AdapterLeaseExpires,11,0)),-now));
end else
if (TimeConnectEx.AdapterDHCPEnabled = False) or (TimeConnectEx.AdapterDeviceIndex < 100) and (TimeConnectEx.AdapterGateway <= '') then
TimeConnectEx.AdapterIndex := 1;
TimeConnectFx.Caption := 'Active: ' + TimeToStr(sumhhmm(StrToTime(DeleteFaskaStrEx(TimeConnectEx.AdapterLeaseExpires,11,0)),-now));
end;
end;
end.

[beegl]

Приветствую, а может быть такое, что отключено отображение Аренды в командной строке?

как на этом скрине (Win 7)

[beegl]

как оформить, чтоб "блымало" (Blink-LED) что-то) - (ссылка)