AVZ 5. Руководство пользователя
×

16.47.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.
 
В примере использовались:  AddToLog, StrToFloat, WMI_FETCH, WMI_GETFIELD, WMI_INIT, WMI_QUERY
 
Приведенная в примере функция GetPCMemSize самодостаточна и может быть использована в составе скриптов без доработок.