1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

function GetSessionTraffic: Cardinal;
var
  IfTable: PMIB_IFTABLE;
  dwSize: Cardinal;
  i: Integer;
begin
  result := 0;
  IfTable := nil;
  dwSize := 0;
  ZeroMemory(@IfTable, sizeof(IfTable));
  try
    VVGetIfTable(IfTable, dwSize, TRUE);
    if IfTable <> nil then
    begin
      for i := 0 to IfTable.dwNumEntries - 1 do
      begin
        if IfTable.table[i].dwType <> MIB_IF_TYPE_LOOPBACK then
          result := IfTable.table[i].dwInOctets + IfTable.table[i].dwOutOctets;
      end;
    end;
  finally
    Freemem(IfTable);
  end;
end;

function IsOnlineThread(p: Pointer): Integer;
var
  dwResult: DWORD;
  bWentOnline: Boolean;
  s, s1: string;
  intTotal, intCurrent: Integer;
begin
  result := 0;
  bWentOnline := FALSE;
  InterlockedExchange(bRunning, 1);
  while bRunning <> 0 do
  begin
    if InternetGetConnectedState(@dwResult, 0) then
    begin
      bWentOnline := TRUE;
      SetDlgItemText(hApp, STC_SESSIONTIME,
        pointer(FormatTime(TimeDiffFromNow.QuadPart)));
      SetDlgItemText(hApp, STC_TOTALTIME,
        pointer(FormatTime(RegReadInteger(SETINGSPATH, 'TotalTime') +
        TimeDiffFromNow.QuadPart)));

      intCurrent := GetSessionTraffic();
      intTotal := RegReadInteger(SETINGSPATH, 'TotalTraffic');
      s := Format('%.2f', [intCurrent / 1024 / 1024]);
      SetDlgItemText(hApp, STC_SESSIONTRAFFIC, pointer(s));
      s1 := Format('%.2f', [(intTotal + intCurrent) / 1024 / 1024]);
      SetDlgItemText(hApp, STC_TOTALTRAFFIC, pointer(s1));

      s := '';
      s1 := '';
      sleep(1000);
    end
    else
    begin
      if bWentOnline = TRUE then
      begin
        bWentOnline := FALSE;
        SaveTotals();
        WriteLogFile();
      end;
      GetLocalTime(stStart);
      //GetSystemTime(stStart);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function GetSessionTraffic: Cardinal;
var
  IfTable: PMIB_IFTABLE;
  dwSize: Cardinal;
  i: Integer;
begin
  result := 0;
  IfTable := nil;
  dwSize := 0;
  ZeroMemory(@IfTable, sizeof(IfTable));
  try
    VVGetIfTable(IfTable, dwSize, TRUE);
    if IfTable <> nil then
    begin
      for i := 0 to IfTable.dwNumEntries - 1 do
      begin
        if IfTable.table[i].dwType <> MIB_IF_TYPE_LOOPBACK then
          result := IfTable.table[i].dwInOctets + IfTable.table[i].dwOutOctets;
      end;
    end;
  finally
    Freemem(IfTable);
  end;
end;                    

1:

result := IfTable.table[i].dwInOctets + IfTable.table[i].dwOutOctets;