16.48.6.4. Определение объема оперативной памяти ПК
function GetPCMemSize : integer;
var
x : double;
begin
Result := 0; x := 0;
if WMI_INIT('localhost', 'root\cimv2') then
if WMI_QUERY('SELECT * FROM Win32_PhysicalMemory') then
while WMI_FETCH do
x := x + StrToFloat(WMI_GETFIELD('Capacity'));
x := x / (1024*1024); // Перевод в мегабайты
Result := round(x);
end;
begin
Addtolog('Memory size = '+IntToStr(GetPCMemSize)+' mb');
end.
Приведенная в примере функция GetPCMemSize самодостаточна и может быть использована в составе скриптов без доработок.