El ejemplo de Delphi descrito en este artículo se utiliza para obtener la capacidad de espacio en disco especificada, detectar el tamaño del disco, seleccionar el código del disco del combox y otras funciones. Haga clic en el botón de información de capacidad "Verificar unidad" y el espacio total del disco y la cantidad de capacidad que se utilizará se mostrarán a continuación. Los lectores pueden agregar los controles de botones y etiquetas correspondientes según sus necesidades.
El código principal del programa es el siguiente:
unidad Unidad1; interfaz utiliza Windows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos, StdCtrls; escriba TForm1 = clase (TForm) Editar1: TEditar: TButton Etiqueta1: TLabel2: procedimiento Button1Click (Remitente: TObject); privado { Declaraciones privadas } público { Declaraciones públicas } fin;var Formulario1: TForm1;procedimiento de implementación{$R *.DFM}TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//Para mostrar El nombre de la unidad GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2 :=); cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'Capacidad total de la unidad' + Formatfloat('###,##0',cl2) + 'byte2.Caption'; := 'Capacidad disponible de la unidad' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.