Пример кода : Показ свободного места на дисках от 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;
B Диск не существует
Свободное место на диске C = 8,414,223,678
Свободное место на диске D = 4,127,004,529
Свободное место на диске E = 0
Свободное место на диске F = 0
