借问一下，如何获得NT系统的当前CPU占有率？？？

Question

这里： http://www.torry.net/samples_hard.htm里面有一个 AdCPUUsage v.1.02 控件，包含源代码，它演示了怎样得到 NT 下的 CPU 占用率

Answer 1

这里： http://www.torry.net/samples_hard.htm里面有一个 AdCPUUsage v.1.02 控件，包含源代码，它演示了怎样得到 NT 下的 CPU 占用率

Answer 2

难道没有API可以直接进行调用查询吗？

Answer 3

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;