Pascal: Espacio libre en disco

Cómo saber la cantidad de espacio libre en una unidad de disco, en Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Cómo saber la cantidad de espacio libre *)

(*  en una unidad de disco, en Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Básico *)

(* Disponible desde 17/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.freepascal.es/tutorials/cupas15.php *)

program Espacio;  { Mira el espacio libre en la unidad de disco actual }
 
uses Dos;
begin
  write(' Hay disponibles: ');
  write( DiskFree(0) div 1024 );        { Muestra el espacio libre }
  write(' K de ');
  write( DiskSize(0) div 1024 );        { y el espacio total }
  writeln(' K totales.');
end.