|
procedure TForm1.Timer1Timer(Sender: TObject);9ZXLinux联盟
var9ZXLinux联盟
usage,usage1:integer;9ZXLinux联盟
begin9ZXLinux联盟
with TRegistry.Create do9ZXLinux联盟
begin9ZXLinux联盟
RootKey:=HKEY_DYN_DATA;9ZXLinux联盟
OpenKey('PerfStats\StatData',false);9ZXLinux联盟
ReadBinaryData('Dial-Up Adapter\TotalBytesRecvd',usage,sizeof(usage));9ZXLinux联盟
ReadBinaryData('Dial-Up Adapter\TotalBytesXmit',usage1,sizeofusage1));9ZXLinux联盟
Caption:=IntToStr(usage)+','+IntToStr(usage1);9ZXLinux联盟
CloseKey;9ZXLinux联盟
Free;9ZXLinux联盟
end;9ZXLinux联盟
end;
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
