Клуб программистов

    Delphi функция DiskFree возвращает количество свободного места на диске. Свободное место на диске измеряется в байтах.

    Если диск не существует, то будет возвращено -1 .

    Если диск имеет атрибут "только для чтения", то будет возвращено 0.

    Диск определяется следующим образом:

    1    = A диск
    2    = B диск
    3    = C диск

var
   i : Integer;
   space : Int64;

begin 
// Display the free space on drives B, C, D, E, F, where present
   for i := 2 to 6 do
   begin
      space := DiskFree(i);

      if space >= 0
      then ShowMessage(Chr(i+64)+' Drive free space = '+ 
                    FloatToStrF(space, ffNumber, 20, 0))
      else ShowMessage(Chr(i+64)+' Drive not present');
   end;
end;

Пример проверки сободного места на дисках:

B Drive not present
C Drive free space = 8,414,223,678
D Drive free space = 4,127,004,529
E Drive free space = 0
F Drive free space = 0