delphi 获得当前进程所使用的内存

本文整理自网络，侵删。

 //delphi 获得当前进程所使用的内存

uses PsAPI ...

//current memory size of the current process in bytes
function CurrentMemoryUsage: Cardinal;
var
pmc: TProcessMemoryCounters;
begin
pmc.cb := SizeOf(pmc) ;
if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then
Result := pmc.WorkingSetSize
else
RaiseLastOSError;
end;

To display the memory usage in KB, use: 
ShowMessage(FormatFloat('Memory used: ,.# K', CurrentMemoryUsage / 1024)) ;
 

相关阅读 >>

Delphi 取目录下指定文件到列表

Delphi 枚举类型和integer整型之间的互换

Delphi hexstrtobytes

Delphi xe 获取 android application version 版本

Delphi unigui unistringgrid1 清空

Delphi 实现qq窗体的缩入伸出功能

Delphi基于高斯-拉普拉斯算子的图像边缘检测

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi xe2 - 点点滴滴

Delphi mscomm1自动获取串口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获得当前进程所使用的内存