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

← →
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]

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

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