IWinApplication.GetMemoryStatus

Синтаксис Fore

Синтаксис Fore.NET

GetMemoryStatus(): Prognoz.Platform.Interop.Ui.IMemoryStatus;

Описание

Метод GetMemoryStatus возвращает информацию о физической и виртуальной памяти компьютера.

Пример Fore

Sub UserProc;
Var
    WinApp: IWinApplication;
    MemStat: IMemoryStatus;
Begin
    WinApp := WinApplication.Instance;
    MemStat := WinApp.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;

При выполнении примера в консоль среды разработки будет выведена информация о памяти, доступной в операционной системе.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Ui;

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

См. также:

IWinApplication