在 Inno Setup 中查询可用 RAM

Question

我需要获得可用的 RAM 来确定我的软件的某些特性。

我有这个代码来显示我的 PC 的 RAM：

type
  DWORDLONG = Int64;
  TMemoryStatusEx = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: DWORDLONG;
    ullAvailPhys: DWORDLONG;
    ullTotalPageFile: DWORDLONG;
    ullAvailPageFile: DWORDLONG;
    ullTotalVirtual: DWORDLONG;
    ullAvailVirtual: DWORDLONG;
    ullAvailExtendedVirtual: DWORDLONG;
  end;

function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): BOOL;
  external 'GlobalMemoryStatusEx@kernel32.dll stdcall';

function InitializeSetup: Boolean;
var
  MemoryStatus: TMemoryStatusEx;
  RAM: String;
begin
  Result := True;
  MemoryStatus.dwLength := SizeOf(MemoryStatus);
  if GlobalMemoryStatusEx(MemoryStatus) then
  begin
    RAM := Int64ToStr(MemoryStatus.ullTotalPhys/1000000000);
    MsgBox('This PC has '+RAM+' GB of RAM', mbInformation, MB_OK);
  end;
end;

基于Inno Setup - How can I check system specs before/during installation?

Answer 1

读取ullAvailPhys字段：

type
  DWORDLONG = Int64;
  TMemoryStatusEx = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: DWORDLONG;
    ullAvailPhys: DWORDLONG;
    ullTotalPageFile: DWORDLONG;
    ullAvailPageFile: DWORDLONG;
    ullTotalVirtual: DWORDLONG;
    ullAvailVirtual: DWORDLONG;
    ullAvailExtendedVirtual: DWORDLONG;
  end;

function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): BOOL;
  external 'GlobalMemoryStatusEx@kernel32.dll stdcall';

function InitializeSetup: Boolean;
var
  MemoryStatus: TMemoryStatusEx;
  RAM, Available: String;
begin
  Result := True;
  MemoryStatus.dwLength := SizeOf(MemoryStatus);
  { if the GlobalMemoryStatusEx function call succeed, then... }
  if GlobalMemoryStatusEx(MemoryStatus) then
  begin
    RAM := Int64ToStr(MemoryStatus.ullTotalPhys/1000000000);
    Available := Int64ToStr(MemoryStatus.ullAvailPhys/1000000000)
    MsgBox('This PC has '+RAM+' GB of RAM, Available ' + Available, mbInformation, MB_OK);
  end;
end;

Answer 2

如果您已经从 Inno Setup - How can I check system specs before/during installation? 获得了 GlobalMemoryStatusEx 的代码，只需使用 ullAvailPhys 字段。

另一种可能性是使用 WMI query:

var
  Query: string;
  WbemLocator, WbemServices, WbemObjectSet: Variant;
  OperatingSystem: Variant;
begin
  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WbemServices := WbemLocator.ConnectServer('.', 'root\CIMV2');
  Query := 'SELECT FreePhysicalMemory FROM Win32_OperatingSystem';
  WbemObjectSet := WbemServices.ExecQuery(Query);
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin
    OperatingSystem := WbemObjectSet.ItemIndex(0);
    Log(Format('Free physical memory = %d GB', [
      Integer(OperatingSystem.FreePhysicalMemory div (1024*1024))]));
  end;
end;

另请参阅（显示如何使用 WMI 查询检索总物理内存）。

在 Inno Setup 中查询可用 RAM

Query available RAM in Inno Setup

inno-setup

pascalscript