Получение системной информации (свободная память и т.д.)

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

  1. WinHack
    Поместите TMemo (Memo1) и TButton (Button1) на форму. Поместите этот код в обработчик события OnClick кнопки Button1:

    Код:
    procedure TForm1.Button1Click(Sender: TObject) ;
    var MemoryStatus: TMemoryStatus;
    begin
      Memo1.Lines.Clear;
      MemoryStatus.dwLength := SizeOf(MemoryStatus) ;
      GlobalMemoryStatus(MemoryStatus) ;
      with MemoryStatus do begin
        Memo1.Lines.Add(IntToStr(dwLength) +
          ' Size of ''MemoryStatus'' record') ;
        Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
          '% memory in use') ;
        Memo1.Lines.Add(IntToStr(dwTotalPhys) +
          ' Total Physical Memory in bytes') ;
        Memo1.Lines.Add(IntToStr(dwAvailPhys) +
          ' Available Physical Memory in bytes') ;
        Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
          ' Total Bytes of Paging File') ;
        Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
          ' Available bytes in paging file') ;
        Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
          ' User Bytes of Address space') ;
        Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
          ' Available User bytes of address space') ;
       end;
    end;