有否函数得到系统资源的使用情况，如需要得到当前系统资源的占用率？

[天空的云彩]

有否函数得到系统资源的使用情况，如需要得到当前系统资源的占用率？

[trainbox]

gz

[qiandeng]

用api
getsysteminfo

[tikkypeng]

var
MemInfo:TMEMORYSTATUS;
begin
GlobalMemoryStatus(MemInfo);
Label6.Caption:='Windows 可用物理内存： '+IntToStr(MemInfo.dwTotalPhys div 1024)+' KB';
end;