Программно получить состояние памяти

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 2016.

  1. WinHack
    Чтобы получить текущее состояние памяти, используйте функцию GlobalMemoryStatus(). Функция GlobalMemoryStatus() содержит несколько полей, указывающие на состояние памяти.

    Код:
    .dwMemoryLoad:     Общая используемая память в (%)
    .dwTotalPhys:      Общая физическая память в байтах
    .dwAvailPhys:      Остаток физической памяти в байтах
    .dwTotalPageFile:  Общая страница файла в байтах
    .dwAvailPageFile:  Остаток страницы файла в байтах
    .dwTotalVirtual:   Общая виртуальная память в байтах
    .dwAvailVirtual:   Остаток виртуальной памяти в байтах
    Перед выводом значений памяти на экран, преобразуйте их в Гига, Мега или КилоБайты.

    Код:
     var
        Status : TMemoryStatus;
     begin
        Status.dwLength := sizeof(TMemoryStatus) ;
        GlobalMemoryStatus(Status) ;
     
        ShowMessage(Format('Virtual: %d',[Status.dwTotalVirtual])) ;
     end;