Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Расмер диска   Найти похожие ветки 

← →
Kremen ©   (2004-02-16 14:11) [0]

Как узнать общий размер жесткого диска и оставшееся свободное место?

---

← →
jel ©   (2004-02-16 19:18) [1]

GetDiskFreeSpace + немного арифметики.

---

← →
Kremen ©   (2004-02-17 11:36) [2]

А примера нет никакого?

---

← →
Kremen ©   (2004-02-17 11:38) [3]

или по функции GetDiskFreeSpaseEx, бьюсь, но никак не могу получить

---

← →
Rouse_ ©   (2004-02-17 12:32) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
 A, B, C: Int64;
begin
 if GetDiskFreeSpaceEx("c:\", A, B, @C)  then
   Memo1.Text :=
     "FreeBytesAvailableToCaller: " + IntToStr(A) + #13#10 +
     "TotalNumberOfBytes: " + IntToStr(B) + #13#10 +
     "TotalNumberOfFreeBytes : " + IntToStr(C);
end;

Желаю успехов

---

← →
Rouse_ ©   (2004-02-17 12:35) [5]

Кстати это не для жесткого, а для логического диска

---

← →
Kremen ©   (2004-02-17 12:44) [6]

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

---

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

Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.032 c