|
Как получить информацию о системе (свободная память и т.д.) |
|
|
|
Статьи -
Статьи
|
Если вы хотите узнать сколько виртуальной памяти вам доступно вашей программе или общий объем физической и виртуальной памяти достаточно воспользоваться API функцией GlobalMemoryStatus.
Рассмотрим следующий код. Добавим на форму кнопку (TButton) и многострочный редактор (TMemo). После чего в обработчик кнопки вставляем следующий код.
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(dwMemoryLoad) +
'% использованно памяти') ;
Memo1.Lines.Add(IntToStr(dwTotalPhys) +
' Всего физической памяти (в байтах)') ;
Memo1.Lines.Add(IntToStr(dwAvailPhys) +
' Доступно физической памяти (в байтах)') ;
Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
' Всего виртуальной памяти (в байтах)') ;
Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
' Доступно виртуальной памяти (в байтах) ') ;
Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
' Адресное виртуальное простанство текущего процесса') ;
Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
' Доступно байт виртуального адресного пространства текущего процесса') ;
end;
end;В Memo1 видим всю необходимую информацию.
Источник delphi.about.com/b/a/257850.htm |
