この記事で説明する Delphi の例は、指定されたディスク領域容量の取得、ディスク サイズの検出、コンボックスからのディスク コードの選択、およびその他の機能に使用されます。 「ドライブの容量情報を確認する」ボタンをクリックすると、下にディスクの総容量と使用容量が表示されます。読者は、ニーズに応じて、対応するボタンとラベルのコントロールを追加できます。
主なプログラムコードは次のとおりです。
ユニット Unit1; インターフェイスは Windows、メッセージ、SysUtils、クラス、グラフィックス、コントロール、フォーム、ダイアログ、StdCtrls を使用します。タイプ TForm1 = class(TForm) Edit1: TButton; Label1: TLabel; TLabel; TObject); private { プライベート宣言 } public { パブリック宣言 } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//表示するドライブ名 GetDiskFreeSpace(driver, sec1, byt1, cl1, cl1 :=); cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'ドライブの総容量' + Formatfloat('###,##0',cl2) + 'byte'; := 'ドライブの利用可能な容量' + Formatfloat('###,##0',cl1) + 'バイト';end;end。