Memória

Top  Previous  Next

Teljes memória, és rendelkezésre álló memória

 

procedure TForm1.Button1Click(Sender: TObject);

var

memory: TMemoryStatus;

begin

memory.dwLength := SizeOf(memory);

GlobalMemoryStatus(memory);

ShowMessage('Total Arbeitsspeicher/Total memory: ' +

IntToStr(memory.dwTotalPhys) + ' Bytes');

ShowMessage('Freier Arbeitsspeicher/Available memory: ' +

IntToStr(memory.dwAvailPhys) + ' Bytes');

end;