Delphi 获取内存及CPU信息的函数

Uses MemoryCpuUtils;//首先引用该单元  

//声明下列变量用来存储读取的数值

Var

     iTotalPhysics, iTotalVirtual, iTotalPageFile,

     iCurPhysics, iCurVirtual, iCurPageFile : DWord;  

//CPU数量

Format('系统中共有 %d 个CPU中央存储器',[GetCPUCount]);

//其中i表示获取第几个CPU的使用率

Format('CPU使用率为 #%d - %5.2f%%',[i,GetCPUUsage(i)*]);

//初始化OR读取各内存总量

GetMemoryTotalSize(iTotalPhysics ,iTotalVirtual ,iTotalPageFile);

//物理内存总量

InttoStr(Round(iTotalPhysics//)) + ' MB';

//虚拟内存总量

InttoStr(Round(iTotalVirtual//)) + ' MB';

//页面内存(交换内存)总量

InttoStr(Round(iTotalPageFile//)) + ' MB';

//读取各内存当前可用容量

GetMemoryTotalSize(iCurPhysics,iCurVirtual,iCurPageFile);

//物理内存可用容量

InttoStr(Round(iCurPhysics//)) + ' MB';

//虚拟内存可用容量

InttoStr(Round(iCurVirtual//)) + ' MB';

//页面内存(交换内存)可用容量

InttoStr(Round(iCurPageFile//)) + ' MB';

//获取内存使用率

Format('当前内存使用率为 %5.2f%%',[GetMemoryUsage]);

//直接获取CPU厂商

GetCPUVendor  

那么如何计算当前各内存使用比例呢？

//物理内存使用比

Format('物理内存使用比为 %5.2f%%',[iCurPhysics/iTotalPhysics*]);

//虚拟内存使用比

Format('虚拟内存使用比为 %5.2f%%',[iCurVirtual/iTotalVirtual*]);

//页面内存使用比

Format('页面内存使用比为 %5.2f%%',[iCurPageFile/iTotalPageFile*]);

下载后直接引用即可，如果您还不是会员，可以直接COPY下面的代码。

{==================================================================}

{ Get Memory And Cpu Informations Utils         }

{==================================================================}  

Unit MemoryCpuUtils;  

interface  

Uses

     Windows, SysUtils;  

type

     TVendor = array[..] of Char;  

{内存区}

//获取物理内存、虚拟内存、交换区(页面)内存的总容量，做初始化动作。

procedure GetMemoryTotalSize(Var iPhysicsMemoryTotalSize,

         iVirtualMemoryTotalSize,

         iPageFileMemoryTotalSize : DWORD);  

//获取当前物理内存、虚拟内存、交换区(页面)内存的实时可用容量，做监控显示动作。

procedure GetMemoryCurrentSize(Var iPhysicsMemoryCurrentSize,

         iVirtualMemoryCurrentSize,

         iPageFileMemoryCurrentSize : DWORD);  

//返回内存当前使用率 总的是100%，传回的是0-%间的使用率，可以自己做转换。

function GetMemoryUsage : Double;  

{CPU区}

//刷新CPU数据

procedure CollectCPUData;  

//获取CPU在系统中的总数

function GetCPUCount: Integer;  

//获取CPU使用率

function GetCPUUsage(Index: Integer): Double;  

procedure ReleaseCPUData;  

//获取CPU制造厂商

function GetCPUVendor : TVendor; assembler; register;  

implementation  

{$ifndef ver110}  

     {$ifndef ver90}

     {$ifndef ver100}

     {$define UseInt64}

     {$endif}

     {$endif}  

     {$ifdef UseInt64}

     type TInt64 = Int64;

     {$else}

     type TInt64 = Comp;

     {$endif}  

{$else}  

     type TInt64 = TLargeInteger;  

{$endif}  

type

     PInt64 = ^TInt64;  

type

     TPERF_DATA_BLOCK = record

     Signature : array[.. - ] of WCHAR;

     LittleEndian : DWORD;

     Version : DWORD;

     Revision : DWORD;

     TotalByteLength : DWORD;

     HeaderLength : DWORD;

     NumObjectTypes : DWORD;

     DefaultObject : Longint;

     SystemTime : TSystemTime;

     Reserved: DWORD;

     PerfTime : TInt64;

     PerfFreq : TInt64;

     PerfTime100nSec : TInt64;

     SystemNameLength : DWORD;

     SystemNameOffset : DWORD;

     end;  

     PPERF_DATA_BLOCK = ^TPERF_DATA_BLOCK;  

     TPERF_OBJECT_TYPE = record

     TotalByteLength : DWORD;

     DefinitionLength : DWORD;

     HeaderLength : DWORD;

     ObjectNameTitleIndex : DWORD;

     ObjectNameTitle : LPWSTR;

     ObjectHelpTitleIndex : DWORD;

     ObjectHelpTitle : LPWSTR;

     DetailLevel : DWORD;

     NumCounters : DWORD;

     DefaultCounter : Longint;

     NumInstances : Longint;

     CodePage : DWORD;

     PerfTime : TInt64;

     PerfFreq : TInt64;

     end;  

     PPERF_OBJECT_TYPE = ^TPERF_OBJECT_TYPE;  

     type

     TPERF_COUNTER_DEFINITION = record

         ByteLength : DWORD;

         CounterNameTitleIndex : DWORD;

         CounterNameTitle : LPWSTR;

         CounterHelpTitleIndex : DWORD;

         CounterHelpTitle : LPWSTR;

         DefaultScale : Longint;

         DetailLevel : DWORD;

         CounterType : DWORD;

         CounterSize : DWORD;

         CounterOffset : DWORD;

     end;  

     PPERF_COUNTER_DEFINITION = ^TPERF_COUNTER_DEFINITION;  

     TPERF_COUNTER_BLOCK = record

         ByteLength : DWORD;

     end;  

     PPERF_COUNTER_BLOCK = ^TPERF_COUNTER_BLOCK;  

     TPERF_INSTANCE_DEFINITION = record

         ByteLength : DWORD;

         ParentObjectTitleIndex : DWORD;

         ParentObjectInstance : DWORD;

         UniqueID : Longint;

         NameOffset : DWORD;

         NameLength : DWORD;

     end;  

     PPERF_INSTANCE_DEFINITION = ^TPERF_INSTANCE_DEFINITION;  

     {$ifdef ver130}

     {$L-}         // The L+ causes internal error in Delphi  compiler

     {$O-}         // The O+ causes internal error in Delphi  compiler

     {$Y-}         // The Y+ causes internal error in Delphi  compiler

     {$endif}  

{$ifndef ver110}

     type

     TInt64F = TInt64;

     {$else}

     type

     TInt64F = Extended;

{$endif}  

{$ifdef ver110}

function FInt64(Value: TInt64): TInt64F;

function Int64D(Value: DWORD): TInt64;

{$else}

type

     FInt64 = TInt64F;

     Int64D = TInt64;

{$endif}  

{$ifdef ver110}

function FInt64(Value: TInt64): TInt64F;

Var

     V: TInt64;

begin

     if (Value.HighPart and $) =  then // positive value

     begin

     result:=Value.HighPart;

     result:=result*$*$;

     result:=result+Value.LowPart;

     end

     else

     begin

     V.HighPart:=Value.HighPart xor $FFFFFFFF;

     V.LowPart:=Value.LowPart xor $FFFFFFFF;

     result:= - - FInt64(V);

     end;

end;  

function Int64D(Value: DWORD): TInt64;

begin

     Result.LowPart:=Value;

     Result.HighPart := ; // positive only

end;

{$endif}  

Const

     Processor_IDX_Str = '';

     Processor_IDX = ;

     CPUUsageIDX = ;  

type

     AInt64F = array[..$FFFF] of TInt64F;

     PAInt64F = ^AInt64F;  

Var

     _PerfData : PPERF_DATA_BLOCK;

     _BufferSize: Integer;

     _POT : PPERF_OBJECT_TYPE;

     _PCD: PPerf_Counter_Definition;

     _ProcessorsCount: Integer;

     _Counters: PAInt64F;

     _PrevCounters: PAInt64F;

     _SysTime: TInt64F;

     _PrevSysTime: TInt64F;

     _IsWinNT: Boolean;  

     _W9xCollecting: Boolean;

     _W9xCpuUsage: DWORD;

     _W9xCpuKey: HKEY;  

procedure GetMemoryTotalSize(Var iPhysicsMemoryTotalSize,

         iVirtualMemoryTotalSize,

         iPageFileMemoryTotalSize : DWORD);

{

iPhysicsMemoryTotalSize 物理内存总容量

iVirtualMemoryTotalSize 虚拟内存总容量

iPageFileMemoryTotalSize 交换内存（页面）总容量

}

Var

     msMemory : TMemoryStatus;

begin

     msMemory.dwLength := SizeOf(msMemory);

     GlobalMemoryStatus(msMemory);

     iPhysicsMemoryTotalSize := msMemory.dwTotalPhys;

     iVirtualMemoryTotalSize := msMemory.dwTotalVirtual;

     iPageFileMemoryTotalSize := msMemory.dwTotalPageFile;

end;  

procedure GetMemoryCurrentSize(Var iPhysicsMemoryCurrentSize,

         iVirtualMemoryCurrentSize,

         iPageFileMemoryCurrentSize : DWORD);

{

iPhysicsMemoryCurrentSize 物理内存可用容量

iVirtualMemoryCurrentSize 虚拟内存可用容量

iPageFileMemoryCurrentSize 交换内存（页面）可用容量

}

Var

     msMemory : TMemoryStatus;

begin

     msMemory.dwLength := SizeOf(msMemory);

     GlobalMemoryStatus(msMemory);

     iPhysicsMemoryCurrentSize := msMemory.dwAvailPhys;

     iVirtualMemoryCurrentSize := msMemory.dwAvailVirtual;

     iPageFileMemoryCurrentSize := msMemory.dwAvailPageFile;

end;  

function GetMemoryUsage : Double;

{

返回内存当前使用率 总的是100%，传回的是0-100%间的使用率，可以自己做转换。

}

Var

     msMemory : TMemoryStatus;

begin

     try

     msMemory.dwLength := SizeOf(msMemory);

     GlobalMemoryStatus(msMemory);

     Result := msMemory.dwMemoryLoad;

     except

     Result := ;

     end;

end;  

function GetCPUCount: Integer;

{

获取CPU数量

}

begin

     if _IsWinNT then

     begin

     if _ProcessorsCount <  then

         CollectCPUData;

     Result:=_ProcessorsCount;

     end

     else

     begin

     Result:=;

     end;

end;  

procedure ReleaseCPUData;

Var

     H: HKEY;

     R: DWORD;

     DwDataSize, DwType: DWORD;

begin

     if _IsWinNT then Exit;

     if Not _W9xCollecting then Exit;

     _W9xCollecting := False;

     RegCloseKey(_W9xCpuKey);

     R := RegOpenKeyEx( HKEY_DYN_DATA, 'PerfStats/StopStat', , KEY_ALL_ACCESS, H);

     if R <> ERROR_SUCCESS then Exit;

     dwDataSize := Sizeof(DWORD);

     RegQueryValueEx(H,'KERNEL/CPUUsage', Nil, @DwType, PBYTE(@_W9xCpuUsage), @DwDataSize);

     RegCloseKey(H);

end;  

function GetCPUUsage(Index: Integer): Double;

{

获取CPU当前使用率

}

begin

     if _IsWinNT then

     begin

     if _ProcessorsCount <  then CollectCPUData;

     if (Index >= _ProcessorsCount) Or (Index < ) then

         Raise Exception.Create('CPU index out of bounds');

     if _PrevSysTime = _SysTime then

         Result :=

     else

         Result := -(_Counters[index] - _PrevCounters[index])/(_SysTime-_PrevSysTime);

     end

     else

     begin

     if Index <>  then

         Raise Exception.Create('CPU index out of bounds');

     if Not _W9xCollecting then

         CollectCPUData;

     Result := _W9xCpuUsage/;

     end;

end;  

Var

     VI: TOSVERSIONINFO;  

procedure CollectCPUData;

Var

     BS, i : Integer;

     _PCB_Instance : PPERF_COUNTER_BLOCK;

     _PID_Instance : PPERF_INSTANCE_DEFINITION;

     ST : TFileTime;

     H : HKEY;

     R : DWORD;

     DwDataSize, dwType: DWORD;

begin

     if _IsWinNT then

     begin

     BS:=_BufferSize;

     while RegQueryValueEx( HKEY_PERFORMANCE_DATA, Processor_IDX_Str, nil, nil,

         PByte(_PerfData), @BS ) = ERROR_MORE_DATA do

     begin

         INC(_BufferSize,$);

         BS:=_BufferSize;

         ReallocMem( _PerfData, _BufferSize );

     end;  

     _POT := PPERF_OBJECT_TYPE(DWORD(_PerfData) + _PerfData.HeaderLength);

     for i :=  to _PerfData.NumObjectTypes do

     begin

         if _POT.ObjectNameTitleIndex = Processor_IDX then Break;

         _POT := PPERF_OBJECT_TYPE(DWORD(_POT) + _POT.TotalByteLength);

     end;  

     if _POT.ObjectNameTitleIndex <> Processor_IDX then

         Raise Exception.Create('Unable to locate the "Processor" performance object');  

     if _ProcessorsCount <  then

     begin

         _ProcessorsCount:=_POT.NumInstances;

         GetMem(_Counters,_ProcessorsCount*SizeOf(TInt64));

         GetMem(_PrevCounters,_ProcessorsCount*SizeOf(TInt64));

     end;  

     _PCD := PPERF_Counter_DEFINITION(DWORD(_POT) + _POT.HeaderLength);

     for i :=  to _POT.NumCounters do

     begin

         if _PCD.CounterNameTitleIndex = CPUUsageIDX then Break;

         _PCD := PPERF_COUNTER_DEFINITION(DWORD(_PCD) + _PCD.ByteLength);

     end;  

     if _PCD.CounterNameTitleIndex <> CPUUsageIDX then

         Raise Exception.Create('Unable to locate the "% of CPU usage" performance counter');  

     _PID_Instance := PPERF_INSTANCE_DEFINITION(DWORD(_POT) + _POT.DefinitionLength);

     for i :=  to _ProcessorsCount- do

     begin

         _PCB_Instance := PPERF_COUNTER_BLOCK(DWORD(_PID_Instance) + _PID_Instance.ByteLength);

         _PrevCounters[i]:=_Counters[i];

         _Counters[i]:=FInt64(PInt64(DWORD(_PCB_Instance) + _PCD.CounterOffset)^);

         _PID_Instance := PPERF_INSTANCE_DEFINITION(DWORD(_PCB_Instance) + _PCB_Instance.ByteLength);

     end;  

     _PrevSysTime:=_SysTime;

     SystemTimeToFileTime(_PerfData.SystemTime, ST);

     _SysTime:=FInt64(TInt64(ST));

     end

     else

     begin

     if Not _W9xCollecting then

     begin

         R:=RegOpenKeyEx( HKEY_DYN_DATA, 'PerfStats/StartStat', , KEY_ALL_ACCESS, H );

         if R <> ERROR_SUCCESS then

         Raise Exception.Create('Unable to start performance monitoring');

         dwDataSize:=sizeof(DWORD);

         RegQueryValueEx( H, 'KERNEL/CPUUsage', nil, @dwType, PBYTE(@_W9xCpuUsage), @dwDataSize );

         RegCloseKey(H);

         R:=RegOpenKeyEx( HKEY_DYN_DATA, 'PerfStats/StatData', ,KEY_READ, _W9xCpuKey );

         if R <> ERROR_SUCCESS then

         Raise Exception.Create('Unable to read performance data');

         _W9xCollecting:=True;

     end;  

     dwDataSize:=sizeof(DWORD);

     RegQueryValueEx( _W9xCpuKey, 'KERNEL/CPUUsage', nil,@dwType, PBYTE(@_W9xCpuUsage), @dwDataSize );

     end;

end;  

function GetCPUVendor : TVendor; assembler; register;

asm

     PUSH     EBX                                         {Save affected register}

     PUSH     EDI

     MOV     EDI,EAX                         {@Result (TVendor)}

     MOV     EAX,

     DW     $A20F                                 {CPUID Command}

     MOV     EAX,EBX

     XCHG                 EBX,ECX     {save ECX result}

     MOV                         ECX,

@:

     STOSB

     SHR     EAX,

     LOOP     @

     MOV     EAX,EDX

     MOV                         ECX,

@:

     STOSB

     SHR     EAX,

     LOOP     @

     MOV     EAX,EBX

     MOV                         ECX,

@:

     STOSB

     SHR     EAX,

     LOOP     @

     POP     EDI                                         {Restore registers}

     POP     EBX

end;  

initialization

     _ProcessorsCount:= -;

     _BufferSize:= $;

     _PerfData := AllocMem(_BufferSize);

     VI.dwOSVersionInfoSize := SizeOf(VI);

     if Not GetVersionEx(VI) then

     Raise Exception.Create('Can''t get the Windows version');

     _IsWinNT := VI.dwPlatformId = VER_PLATFORM_WIN32_NT;  

finalization

     ReleaseCPUData;

     FreeMem(_PerfData);  

end.

Delphi 获取内存及CPU信息的函数的更多相关文章

linux获取内存、cpu、负载、网口流量、磁盘信息
内存信息 / meminfo 返回dict #!/usr/bin/env python def memory_stat(): mem = {} f = open("/proc ...
查询系统状态内存大小 cpu信息设备负载情况
1.1 查看内存状态 /proc/meminfo里面存放着内存的信息查看内存命令(包括虚拟内存swap): free -h (低版本系统可能不支持-h) 或者 free -m (以mb单位显示) a ...
获取Exe文件版本信息的函数（使用GetFileVersionInfo得到TFileVersionInfo结构体，包含12项内容）
Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} Comp ...
Delphi获取其他exe程序版本号
delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:S ...
[No0000112]ComputerInfo,C#获取计算机信息（cpu使用率，内存占用率，硬盘，网络信息）
github地址:https://github.com/charygao/SmsComputerMonitor 软件用于实时监控当前系统资源等情况,并调用接口,当资源被超额占用时,发送警报到个人手机: ...
Golang利用第三方包获取本机cpu使用率以及内存使用情况
第三方包下载 $ github.com/shirou/gopsutil 获取内存方面的信息 package main import ( "fmt" "github.com ...
CPU测试--通过proc获取CPU信息
adb shell cat /proc/stat | grep cpu > totalcpu0 此处第一行的数值表示的是CPU总的使用情况,所以我们只要用第一行的数字计算就可以了.下表解析第一行 ...
MD5做为文件名。机器唯一码有电脑的CPU信息和MAC地址，这两个信息需要在linux或unix系统下才能获取吧。
可以采用机器(电脑)唯一码 + 上传IP + 当前时间戳 + GUID ( + 随机数),然后MD5做为文件名.机器唯一码有电脑的CPU信息和MAC地址,这两个信息需要在linux或unix系统下才能 ...
Java如何获取系统cpu、内存、硬盘信息
1 概述前段时间摸索在Java中怎么获取系统信息包括cpu.内存.硬盘信息等,刚开始使用Java自带的包进行获取,但这样获取的内存信息不够准确并且容易出现找不到相应包等错误,所以后面使用sigar插 ...

随机推荐

Shorten Diameter
Shorten Diameter Time limit : 2sec / Stack limit : 256MB / Memory limit : 256MB Score : 600 points P ...
HDU 2176 取(m堆)石子游戏（尼姆博奕）
nim基础博弈 #include<stdio.h> #include<iostream> #include<cstring> #include<queue&g ...
PAT (Advanced Level) 1092. To Buy or Not to Buy (20)
简单题. #include<cstdio> #include<cstring> ; char s1[maxn],s2[maxn]; ]; ]; int main() { sca ...
GtkImageMenuItem
做了个工具条,每次点arrow出来的菜单都没图标,郁闷;查来查去,看源码,看css,最后知道GtkAction缺省就是对应GtkImageMenuItem,再一试,跟toolbar无关,换menu也不 ...
PAT (Advanced Level) 1008. Elevator (20)
简单模拟. 注意a[i]==a[i-1]的情况. #include<iostream> #include<cstring> #include<cmath> #inc ...
FMDB增删查改
创建,插入,更新和删除:使用executeUpdate方法,而查询则用executeQuery 1.实例化FMDatabase //paths: ios下Document路径,Document为ios ...
bootstrap建立响应式网站——tab选项卡
1.bootstrap给我们提供了标签页细细看了一下bootstrap的标签页源码,对tab选项卡有了更深的理解.其实说来也简单,以前自己写js和css时没有意识到整体的划分.就是分为两部分:一部分 ...
酷炫的方块状散点3D
http://threejs.org/examples/webgl_particles_random.html
使用eclipse和maven一步一步配置web项目
http://www.blogjava.net/kevonz/archive/2012/07/08/382542.html
三种Dataase Mapping的系统架构
ORM - O/R M - Object/Relational Mapping: A technique/idea used to map objects and thier individual r ...

Delphi 获取内存及CPU信息的函数

Delphi 获取内存及CPU信息的函数的更多相关文章

随机推荐

热门专题