监视当前网络的流量

时间:2010-02-01 13:19:01  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:EY_DYN_DATA;      OpenKey('PerfStatsStatData',false);      ReadBinaryData('Dial-Up AdapterTotalBytesRecvd',usage,sizeof(usage));      ReadBinaryData('Dial-Up AdapterTotalBytesXmit',usage1,sizeofusage1));      Caption...
  正文:procedure TForm1.Timer1Timer(Sender: TObject);
var
usage,usage1:integer;
begin
  with TRegistry.Create do
    begin
      RootKey:=HKEY_DYN_DATA;
      OpenKey('PerfStatsStatData',false);
      ReadBinaryData('Dial-Up AdapterTotalBytesRecvd',usage,sizeof(usage));
      ReadBinaryData('Dial-Up AdapterTotalBytesXmit',usage1,sizeofusage1));
      Caption:=IntToStr(usage)+','+IntToStr(usage1);
      CloseKey;
      Free;
    end;
  end;

"监视当前网络的流量"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12720.html


关键字:

关于《监视当前网络的流量》文章的评论

相关文章

    无相关信息
站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td