Obter informações sobre disquetes em Pascal

[l20109]

O Pascal permite obter informações sobre uma determinada unidade de disco presente no computador, nomeadamente o espaço livre e a capacidade total do disco, embora, o Turbo Pascal, por ser um programa antigo, tenha limitações relativamente à capacidade e ao tamanho dos discos rígidos, pelo que só é aconselhável a obtenção destes dados em Pascal para unidades relativamente pequenas, como as disquetes.
O programa seguinte apresenta as informações respeitantes á unidade A: (normalmente, a unidade de disquetes) em Pascal:

program disquete;
uses Dos,crt;

begin
 clrscr;  {limpeza do ecra}
 Writeln('Espaco livre na disquete: ',DiskFree(1),' Butes' );
 Writeln('Capacidade total da disquete: ', DiskSize(1),' Bytes');
 readkey; {aguarda que o utilizador prima uma tecla}
end.

As procedures (subrotinas) diskfree e disksize permitem, respectivamente, obter o espaço livre e a capacidade da unidade, em bytes.