이 기사에 설명된 Delphi 예제는 지정된 디스크 공간 용량을 얻고, 디스크 크기를 감지하고, 콤보박스에서 디스크 코드를 선택하고, 기타 기능을 수행하는 데 사용됩니다. "드라이브 확인" 용량 정보 버튼을 클릭하면, 아래에 디스크의 전체 공간과 사용할 용량이 표시됩니다. 독자는 필요에 따라 해당 버튼 및 레이블 컨트롤을 추가할 수 있습니다.
주요 프로그램 코드는 다음과 같습니다.
단위 Unit1;인터페이스는 Windows, 메시지, SysUtils, 클래스, 그래픽, 양식, 대화 상자, StdCtrls를 사용합니다. TForm1 = class(TForm) Edit1: TEdit; TButton: TLabel; TLabel; TObject); private { 개인 선언 } public { 공개 선언 } end;var Form1: TForm1;implementation{$R *.DFM}절차 TForm1.Button1Click(Sender: TObject);var 드라이버:pchar; sec1, byt1, cl1, cl2:longword;begin 드라이버:=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.