kingdeezj大虾请进呀， 在线等你(0分)

我问了如下的问题
如何获取上网的连接速度和接收与发送的字节数，就像系统中“拨号上网”那样统计出来
急急急
帮帮我吧
你答为
procedure TForm1.Timer1Timer(Sender: TObject);
var
usage,usage1:integer;
begin
with TRegistry.Create do
begin
RootKey:=HKEY_DYN_DATA;
OpenKey('PerfStats/StatData',false);
ReadBinaryData('Dial-Up Adapter/TotalBytesRecvd',usage,sizeof(usage));
ReadBinaryData('Dial-Up Adapter/TotalBytesXmit',usage1,sizeof(usage1));
Caption:=IntToStr(usage)+','+IntToStr(usage1);
CloseKey;
Free;
end;
end;
我知道在注册表中win9X为(HKEY_DYN_DATA)，win2000为上HKEY_PERFORMANCE_DATA中记录了系统运行时的信息，但不知道怎么看到，曾经对注册表枚举过，但失败了，你能告诉哪有看这个主键的软件吗？还有我现在的系统是2003，无法测试你的那段代码，那段代码准确吗？还有如果获取网速，是不是也在那里找呀
如果你回答了，我愿意在加分给你