Скачать: CL | DM;

Как узнать сводобное место на диске.   Найти похожие ветки 

← →
Azazzello   (2004-04-05 13:03) [0]

Есть диск C:

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

---

← →
Anatoly Podgoretsky ©   (2004-04-05 13:15) [1]

GetDiskFreeSpaceEx

---

← →
VMcL ©   (2004-04-05 13:38) [2]

SysUtils.DiskFree()

---

← →
Azazzello   (2004-04-05 13:47) [3]

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

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

---

← →
Jel ©   (2004-04-05 13:58) [4]

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;

---

← →
Ivolg ©   (2004-04-05 14:04) [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

---

← →
VMcL ©   (2004-04-05 14:06) [6]

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

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

---

← →
Ozone ©   (2004-04-05 14:30) [7]

TO Ivolg ©:

тупо...

---

← →
Ivolg ©   (2004-04-05 14:34) [8]

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

---

← →
VMcL ©   (2004-04-05 14:47) [9]

>>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.

---

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

Скачать: CL | DM;



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