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

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

Расмер диска

Kremen ©   (2004-02-16 14:11:00) 

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

---

Kremen   (2004-02-17 12:44:00) [1]

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

---

Rouse_   (2004-02-17 12:35:00) [2]

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

---

Rouse_   (2004-02-17 12:32:00) [3]

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;

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

---

Kremen   (2004-02-17 11:38:00) [4]

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

---

Kremen   (2004-02-17 11:36:00) [5]

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

---

jel   (2004-02-16 19:18:00) [6]

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

---

Наверх