怎样得到计算机的内存使用量 和 系统资源使用率 怎样得到计算机的内存使用量 和 系统资源使用率 请给出完整的代码 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有控件可以,很久没用忘了名字,楼主可以google一下,好像那个控件还是带源码的. procedure TForm1.Button1Click(Sender: TObject);var MemInfo: MEMORYSTATUS;begin // 获取内存信息 GlobalMemoryStatus(MemInfo); Memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad) + '%的内存在使用'); Memo1.Lines.Add('物理内存共有' + IntToStr(MemInfo.dwTotalPhys) + '字节'); Memo1.Lines.Add('未使用的物理内存有' + IntToStr(MemInfo.dwAvailPhys) + '字节'); Memo1.Lines.Add('交换文件的大小为' + IntToStr(MemInfo.dwTotalPageFile) + '字节'); Memo1.Lines.Add('未使用的交换文件大小为' + IntToStr(MemInfo.dwAvailPageFile) + '字节'); Memo1.Lines.Add('虚拟内存空间大小为' + IntToStr(MemInfo.dwTotalVirtual) + '字节'); Memo1.Lines.Add('未使用的虚拟内存大小为' + IntToStr(MemInfo.dwAvailVirtual) + '字节');end; 加密解密语句 求一字符串处理函数 adotable的open dataset或close dataset的问题。请求帮助 关于MENGGIRL撤职查办后续! 500分求适时视频捕捉程序编写方法和DSPACK中文文档。 如何像VC那样获得线程句柄呢? 如何使用LineDDA? 如何实现多个webbrowser使用多个代理? 新手求助 谁有好的UDP控件? 找Delphi.7程序 请问如何实现在dbgrid1中选中某单元后dbgrid2立刻不选中任何单元,急!!!
var MemInfo: MEMORYSTATUS;
begin
// 获取内存信息
GlobalMemoryStatus(MemInfo);
Memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad) + '%的内存在使用');
Memo1.Lines.Add('物理内存共有' + IntToStr(MemInfo.dwTotalPhys) + '字节');
Memo1.Lines.Add('未使用的物理内存有' + IntToStr(MemInfo.dwAvailPhys) + '字节');
Memo1.Lines.Add('交换文件的大小为' + IntToStr(MemInfo.dwTotalPageFile) + '字节');
Memo1.Lines.Add('未使用的交换文件大小为' + IntToStr(MemInfo.dwAvailPageFile) + '字节');
Memo1.Lines.Add('虚拟内存空间大小为' + IntToStr(MemInfo.dwTotalVirtual) + '字节');
Memo1.Lines.Add('未使用的虚拟内存大小为' + IntToStr(MemInfo.dwAvailVirtual) + '字节');
end;