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

    Delphi функция DiskFree показывает размер диска. Объём диска указывается в байтах

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

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

    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 := DiskSize(i);

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

Пример проверки размера дисков:

B Drive not present
C Drive size = 11,997,143,040
D Drive size = 7,995,756,544
E Drive size = 686,587,904
F Drive size = 591,429,632