Пример Delphi, описанный в этой статье, используется для получения указанного объема дискового пространства, определения размера диска, выбора кода диска из поля со списком и других функций. Нажмите кнопку «Проверить диск» с информацией о емкости, и ниже отобразятся общее пространство диска и объем используемой емкости. Читатели могут добавлять соответствующие элементы управления «Кнопки» и «Метки» в соответствии со своими потребностями.
Основной код программы выглядит следующим образом:
unit Unit1;интерфейсы, SysUtils, классы, графика, элементы управления, формы, диалоги, StdCtrls;тип TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel(Sender: TObject); Private { Частные объявления } public { Публичные объявления } end;var Form1: TForm1;реализация{$R *.DFM}процедура TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//Для отображения Имя диска GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2 :=); cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'Общая емкость диска' + Formatfloat('###,##0',cl2) + 'byte'; := 'Доступная емкость диска' + Formatfloat('###,##0',cl1) + 'Байты';end;end.