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

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

Как узнать сводобное место на диске. [D7, Win2k]

Azazzello ©   (2004-04-05 13:03:00) 

Есть диск C:

Как узнать свободное место на диске.

---

VMcL   (2004-04-05 14:47:00) [1]

>>Ivolg ©  (05.04.04 14:34) [8]

Зачем ChDir?
DiskFree returns the number of free bytes on the specified drive, where 0 = Current, 1 = A, 2 = B, and so on.

---

Ivolg   (2004-04-05 14:34:00) [2]

вот бес компонента:
var
  DF,DS:int64;
begin
  ChDir('c:\'+ ':\');
  DF := DiskFree(0);
  DS := DiskSize(0);
  form1.caption:='Свободное место= '+ inttostr(df div 1048576) + ' [Мбайт], '+'Объём= '+ inttostr(ds div 1048576) + ' [Мбайт]';
end;

---

Ozone   (2004-04-05 14:30:00) [3]

TO Ivolg ©:

тупо...

---

VMcL   (2004-04-05 14:06:00) [4]

>>Ivolg ©  (05.04.04 14:04) [5]

Целый компонент для того, чтобы узнать свободное место на диске? Круто слепил.

---

Ivolg   (2004-04-05 14:04:00) [5]

Var
 Ds, Fs : int64;
begin
{$I-}
//Диск
//Можешь укозать в ркчную
ChDir(DriveComboBox1.Drive + ':\');
if IOResult <> 0 then
 Begin
   ShowMessage('Нет диска');
   DriveComboBox1.Drive := 'C';
   exit;
 end;
{$I+}
//объём диска
Ds := DiskSize(0);
//Освободное место на диске
Fs := DiskFree(0);

form1.caption:='объём диска= '+ inttostr(ds div 1048576) + ' [Мбайт], '+'Освободное место на диске='+ inttostr(fs div 1048576) + ' [Мбайт]' ;;
Тебе понадобится компонент DriveComboBox

---

Jel   (2004-04-05 13:58:00) [6]

procedure TForm1.Button1Click(Sender: TObject);
var spc, bps, nofc, tnoc : cardinal;
begin
 GetDiskFreeSpace('c:\', spc, bps, nofc, tnoc);
 Showmessage(IntToStr(spc*bps*nofc) + ' bytes free');
end;

---

Azazzello   (2004-04-05 13:47:00) [7]

Как сделать что бы функция заработала.

Можно работающий пример. Проблема с PLargeInteger.

---

VMcL   (2004-04-05 13:38:00) [8]

SysUtils.DiskFree()

---

Anatoly Podgoretsky   (2004-04-05 13:15:00) [9]

GetDiskFreeSpaceEx

---

Наверх