Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

как проверить сколько свободного места осталось в оперативке ?   Найти похожие ветки 

← →
hwmaster   (2005-05-07 11:22) [0]

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

---

← →
VMcL ©   (2005-05-07 11:42) [1]

GlobalMemoryStatus
?

---

← →
Slawutich ©   (2005-05-07 15:49) [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;

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

---

← →
hwmaster   (2005-05-07 21:16) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.058 c