Функція DiskFree – видає кількість вільних байтів на вказаному диску

Функція DiskFree в Delphi видає кількість вільних байтів на вказаному диску.

Функція DiskFree: Показ вільного місця на дисках від B до F

var
  i     : Integer;
  space : Int64;

begin
  // Показ вільного місця на дисках B, C, D, E, F, де існує
  for i := 2 to 6 do
  begin
    space := DiskFree(i);

    if space >= 0
    then ShowMessage('Вільне місце на диску = '+Chr(i+64)+
                     FloatToStrF(space, ffNumber, 20, 0))
    else ShowMessage(Chr(i+64)+' Диск не існує');
  end;
end;