Функція DiskSize – видає розмір вказаного диска в байтах

Функція DiskSize в Delphi видає розмір вказаного диска в байтах.

Функція DiskSize: Показ розмірів дисків від B до F в байтах на вашому ПК

var
  i     : Integer;
  space : Int64;

begin
  // Показ розміру дисків B, C, D, E, F де він існує
  for i := 2 to 6 do
  begin
    space := DiskSize(i);

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