Pascal / dos / DiskFree
AddDisk, » DiskFree, DiskSize, DosExitCode, DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, FindFirst, FindNext, FSearch, FSplit, GetCBreak, GetDate, GetEnv, GetFAttr, GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,
Funcion: DiskFree()
Sintaxis:
function DiskFree(
 
  drive: Byte
 
):Int64;

Descripcion: DiskFree regresa el numero de bytes libres en un disco. el parametro drive indica cual disco deberia ser checado. este parametro es 1 para floppy (a:), 2 para floppy (b:), etc. Un valor de 0 regresa el drive con espacio libre.

Observacion: Para unixes: Las funciones diskfree y disksize necesitan un archivo sobre el drive especificado, desde este requerimento para las llamadas statfs del sistema. Estos nombres de archivos son puestos in la inicializacion de las units Dos, y han sido preestablecidos a:

'.' para el actual drive.
'/fd0/.' para el primero floppy-drive (solo linuz).
'/fd1/.' para el segundo floppy-drive(solo linux).
'/' para el primero disco duro

ahi es un cuarto de 1 a 26 drives. tu puedes agregar un drive with el procedimiento adddisk. Esas configuracionjs pudieron ser codificadas in dos.pp, en parte de inicializacion.

Esta funcion regresa 1 cuando ocurre un error, o cuando es dado un numero invalido de drive.
Ejemplo:
Program Example6;
uses Dos;
 
{ Program to demonstrate the DiskSize and DiskFree function. }
 
begin
  WriteLn('This partition size has ',DiskSize(0),' bytes');
  WriteLn('Currently ',DiskFree(0),' bytes are free');
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal