оперативная память

[Pr1meEX]

Каким образом достать с помощью С++ или Delphi в консольном режиме достать сколько занято/свободно ОП. ОС Windows XP.
Заранее благодарен!

[Greblin]

Delphi

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var Mem: TMemoryStatus;

begin
Mem.dwLength := sizeof(Mem);
GlobalMemoryStatus(Mem);
writeln('Load: ', Mem.dwMemoryLoad / 100 * Mem.dwTotalPhys:1:0);
writeln('Free: ', Mem.dwAvailPhys);
end.

[Pr1meEX]

спасибо! премного благодарен!

хм.... работает... но каждый раз выдает в общем(полный обьем ОП) неправильно на 1-10 мб меньше чем реальный обьем.. в чем может быть проблема?

Вот переделал теперь все норм пашет:

program memory;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;

var Mem: TMemoryStatus;

begin
Mem.dwLength := sizeof(Mem);
GlobalMemoryStatus(Mem);
writeln(Mem.dwTotalPhys-Mem.dwAvailPhys);//занятая оперативка
writeln(Mem.dwAvailPhys);//свободная
writeln(Mem.dwTotalPhys);//Полный объем
end.

у тебя глюк в етой строке:

writeln('Load: ', Mem.dwMemoryLoad / 100 * Mem.dwTotalPhys:1:0);

Все равно спасибо долго бы без тебя мучался!

[Greblin]

Я уж не знаю, почему разработчики так сделали, но в Mem.dwMemoryLoad заносится не объём занятой памяти, а процент от общей. Так что там наверно из-за округления мегабайты терялись