O exemplo Delphi descrito neste artigo é usado para obter a capacidade de espaço em disco especificada, detectar o tamanho do disco, selecionar o código do disco na caixa de combinação e outras funções. Clique no botão de informações de capacidade "Verificar unidade" e o espaço total do disco e a quantidade de capacidade a ser utilizada serão exibidos abaixo. Os leitores podem adicionar controles de botão e rótulo correspondentes de acordo com suas necessidades.
O código principal do programa é o seguinte:
unit Unit1;faz interface com Windows, Mensagens, SysUtils, Classes, Gráficos, Controles, Formulários, Diálogos, StdCtrls;tipo TForm1 = class(TForm) Edit1: TEdit(Sender: TObject); private { Declarações privadas } public { Declarações públicas } end;var Form1: TForm1;implementação{$R *.DFM}procedimento TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//Para exibir O nome da unidade GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2 :=); cl1*sec1 * byt1;= cl2*sec1 * byt1; Label1.Caption:= 'Capacidade total da unidade' + Formatfloat('###,##0',cl2) + 'byte'; := 'Capacidade disponível da unidade' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.