IApplication.GetMemoryStatus

Копировать пример

Sub UserProc;
Var
    App: IApplication;
    MemStat: IMemoryStatus;
Begin
    App := Application.Instance;
    MemStat := App.GetMemoryStatus;
    Debug.WriteLine("Размер физической памяти: " + (MemStat.TotalPhysicalMemory / 1048576).ToString + " мб");
    Debug.WriteLine("Размер виртуальной памяти: " + (MemStat.TotalVirtualMemory / 1048576).ToString + " мб");
    Debug.WriteLine("Максимальный размер файла подкачки: " + (MemStat.TotalPageFile / 1048576).ToString + " мб");
    Debug.WriteLine("Свободно физической памяти: " + (MemStat.AvailablePhysicalMemory / 1048576).ToString + " мб");
    Debug.WriteLine("Свободно виртуальной памяти: " + (MemStat.AvailableVirtualMemory / 1048576).ToString + " мб");
    Debug.WriteLine("Доступный размер файла подкачки: " + (MemStat.AvailablePageFile / 1048576).ToString + " мб");
    Debug.WriteLine("Процент загрузки памяти: " + MemStat.MemoryLoad.ToString + " %");
End Sub UserProc;