借问一下，如何获得NT系统的当前CPU占有率？？？
请教各位大侠，如何获得NT系统的当前CPU占有率？？？ 问题点数：20、回复次数：6Top
1 楼torble（阿裕）回复于 2002-05-20 11:40:21 得分 4
这里： http://www.torry.net/samples_hard.htm
里面有一个 AdCPUUsage v.1.02 控件，包含源代码，它演示了怎样得到 NT 下的 CPU 占用率Top
2 楼torble（阿裕）回复于 2002-05-20 11:41:32 得分 4
这里： http://www.torry.net/samples_hard.htm
里面有一个 AdCPUUsage v.1.02 控件，包含源代码，它演示了怎样得到 NT 下的 CPU 占用率Top
3 楼dext（德克斯特）回复于 2002-05-20 11:45:29 得分 4
GZTop
4 楼zw741027（张伟）回复于 2002-05-20 11:46:06 得分 0
难道没有API可以直接进行调用查询吗？Top
5 楼FlyingQQ（FlyingQQ）回复于 2002-05-20 11:51:12 得分 4
procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStatus;
begin
ms.dwLength := sizeof(ms);
GLobalMemoryStatus(ms);
listbox1.Items.add( '已用资源百分比：'+ IntToStr(ms.dwMemoryLoad)) ;
listbox1.Items.add( '总物理内存：' +IntToStr(ms.dwTotalPhys div 1024)+'KB') ;
listbox1.Items.add( '可用物理内存：'+IntToStr(ms.dwAvailPhys)) ;
listbox1.Items.add( '总可用页数：' +IntToStr(ms.dwTotalPageFile)) ;
listbox1.Items.add( '可用页数：' +IntToStr(ms.dwAvailPageFile)) ;
listbox1.Items.add( '总虚拟内存：' +IntToStr(ms.dwTotalVirtual)) ;
listbox1.Items.add( '可用虚拟内存：'+IntToStr(ms.dwAvailVirtual)) ;
end;Top
6 楼FlyingQQ（FlyingQQ）回复于 2002-05-20 11:53:19 得分 4
可惜是分太少啦！
哎！
兄弟，在加点分吧！Top
7 楼zw741027（张伟）回复于 2002-05-20 12:04:38 得分 0
又发了一个，100分，如果不够再来Top
