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

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

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

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

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

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