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]