Add(InlineCode,10833527,70,119)
{
 WorkPoints=#10:GetMemInfo|
 EventPoints=#12:onGetMemInfo|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug, windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|28:     onGetMemInfo:THI_Event;|3:   |50:     procedure GetMemInfo(var dt:TData; idx:WORD);|5: end;|0:|14:implementation|0:|1:{|32:typedef struct _MEMORYSTATUSEX {|21:  DWORD     dwLength;|25:  DWORD     dwMemoryLoad;|25:  DWORDLONG ullTotalPhys;|25:  DWORDLONG ullAvailPhys;|29:  DWORDLONG ullTotalPageFile;|29:  DWORDLONG ullAvailPageFile;|28:  DWORDLONG ullTotalVirtual;|28:  DWORDLONG ullAvailVirtual;|36:  DWORDLONG ullAvailExtendedVirtual;|36:  MEMORYSTATUSEX, *LPMEMORYSTATUSEX;|1:}|0:|29:type TMemoryStatusEx = record|33:     dwLength,dwMemoryLoad:DWORD;|111:     ullTotalPhys,ullAvailPhys,ullTotalPageFile,ullAvailPageFile,ullTotalVirtual,ullAvailExtendedVirtual:int64;|4:end;|0:|35:PMemoryStatusEx = ^TMemoryStatusEx;|0:|117:function GlobalMemoryStatusEx(mem: PMemoryStatusEx):bool;stdcall;external 'Kernel32.dll' name 'GlobalMemoryStatusEx';|0:|33:procedure THiAsmClass.GetMemInfo;|23:var ms:TMemoryStatusEx;|5:begin|44:     ms.dwLength := SizeOf(TMemoryStatusEx);|31:     GlobalMemoryStatusEx(@ms);|47:     _hi_OnEvent(onGetMemInfo,ms.ullTotalPhys);|4:end;|0:|4:end.|
}