Virtuální paměť

A následují příklady pro tytéž parametry u virtuální paměti.
Nejprve celková velikost virtuální paměti:
procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatus;
begin
GlobalMemoryStatus(mem);
ShowMessage(FormatFloat('#,###" kB"', Mem.dwTotalVirtual / 1024));
end;
A na úplný závěr ještě zbývá volná virtuální paměť:
procedure TForm1.Button1Click(Sender: TObject);
var mem:TMemoryStatus;
begin
GlobalMemoryStatus(mem);
ShowMessage(FormatFloat('#,###" kB"', Mem.dwAvailVirtual / 1024));
end;