Объём оперативной памяти

[_-Re@l-_]

Как программно в Delphi 7 определить количество доступной оперативной памяти(незанятой)?

[Juffin]

всмысле объем стека?

[xakkkkker]

Вот код. Случайно нашел лабораторную в универе студента 3-го курса. Там нашел....

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 MemorySt:TMemoryStatus;
begin
 Memoryst.dwLength:=Sizeof(MemorySt);
 GlobalMemoryStatus(MemorySt);
 Memo1.Lines.Add('Èñïîëüçîâàííî - ' + IntToStr(MemorySt.dwMemoryLoad)+'%');
 Memo1.Lines.Add('Îáúåì - ' + FloatToStrF(MemorySt.dwTotalPhys/gig,ffFixed,4,1)+' ãèã');
 Memo1.Lines.Add('Ñâîáîäíî - ' + FloatToStrF(MemorySt.dwAvailPhys/gig,ffFixed,4,1)+' ãèã');
end;