Das in diesem Artikel beschriebene Delphi-Beispiel wird verwendet, um die angegebene Speicherplatzkapazität abzurufen, die Festplattengröße zu ermitteln, den Festplattencode aus der Combox auszuwählen und andere Funktionen auszuführen. Klicken Sie auf die Schaltfläche mit den Kapazitätsinformationen „Laufwerk prüfen“. Der Gesamtspeicherplatz der Festplatte und die Menge der zu verwendenden Kapazität werden unten angezeigt. Leser können je nach Bedarf entsprechende Schaltflächen- und Beschriftungssteuerelemente hinzufügen.
Der Hauptprogrammcode lautet wie folgt:
unit Unit1;interfaceuses Windows, Messages, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; procedure Button1Click( TObject); private { Private Deklarationen } public { Öffentliche Deklarationen } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var drivers:pchar; sec1, byt1, cl1, cl2:longword;begin drivers:=pchar(edit1.text);//Zur Anzeige Der Laufwerksname GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'Gesamtkapazität des Laufwerks' + Formatfloat('###,##0',cl2) + 'byte'; := 'Verfügbare Kapazität des Laufwerks' + Formatfloat('###,##0',cl1) + 'Bytes';end;end.