Netzwerkauslastung / Traffic

[Dirkmswt]

Und promt einen Fehler gefunden sobald der Rechner ein kleines Treiberproblem hat und die Lösung!

Ich hatte als mein Rechner ein paar Tage durchgelaufen war einen Fehler der Marke ErangeError,hat vielleicht noch keiner von euch gemerkt weils noch nicht gepostet wurde?
Das Problem war das die Software dann andauernd eine Messagebox mit eben diesem Fehler gebracht hat.
Poste den Quellcode nochmals von mir überarbeitet.

Delphi-Quellcode:

var MibRow: TMibIfRow; 
IntfTable: PMibIfTable; 
Size: DWORD; 
I: Integer; 
wert:integer;
begin
try
Size := 0;
if GetIfTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit; 
  IntfTable := AllocMem(Size); 
  try 
    if GetIfTable(IntfTable, Size, True) = NO_ERROR then 
    begin 
      for I := 0 to IntfTable^.dwNumEntries - 1 do 
      begin
     {$R-}MibRow := IntfTable.Table[I];{$R+}
        if MibRow.dwType <> MIB_IF_TYPE_ETHERNET then Continue; // oder MIB_IF_TYPE_PPP 
       if i = 1 then begin  // Welche Verbindung 
       wert := MibRow.dwInOctets - old;
label1.caption := floattostr(round(Wert /1024 *100)/100) + ' KB/s';
old := MibRow.dwInOctets ;

end;
  end;
  end;
  except
  on erangeerror do
  begin
  timer1.Enabled:=false;
  showmessage('Ein Treiberproblem ist aufgetreten!Starten Sie den Computer neu.');
  end;
    end;

    finally 
    FreeMem(IntfTable); 
  end;

[edit=Admin]Code in Delphi-Tags gesetzt. Mfg, Daniel[/edit]