| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как проверить сколько свободного места осталось в оперативке ? [D7, WinXP]

hwmaster ©   (2005-05-07 11:22:00) 

Как ? Какая функция выдает такое значение?

---

hwmaster   (2005-05-07 21:16:00) [1]

Спасибо огромное, спасибо.

---

Slawutich   (2005-05-07 15:49:00) [2]

Вот те полностью

procedure TForm1.Button1Click(Sender: TObject);
var
 Info: TMemoryStatus;
begin
 Info.dwLength := SizeOf(TMemoryStatus);
 GlobalMemoryStatus(Info);
 label1.Caption:='Длина структуры памяти '+floattostr(info.dwLength)+' байт';
 label2.Caption:='Память загружена на '+floattostr(info.dwMemoryLoad)+' %';
 label3.Caption:='максимальное количество физической памяти '+floattostr(info.dwTotalPhys)+' байт';
 label4.Caption:='свободное количество физической памяти '+floattostr(info.dwAvailPhys)+' байт';
 label5.Caption:='макс. кол. памяти для программ '+floattostr(info.dwTotalPageFile)+' байт';
 label6.Caption:='свободное кол. памяти для программ '+floattostr(info.dwAvailPageFile)+' байт';
 label7.Caption:='максимальное количество виртуальной памяти '+floattostr(info.dwTotalVirtual)+' байт';
 label8.Caption:='свободное количество виртуальной памяти в байтах '+floattostr(info.dwAvailVirtual)+' байт';
end;

Пользуйся на здоровье

---

VMcL   (2005-05-07 11:42:00) [3]

GlobalMemoryStatus
?

---

Наверх