L'exemple Delphi décrit dans cet article est utilisé pour obtenir la capacité d'espace disque spécifiée, détecter la taille du disque, sélectionner le code du disque dans la liste déroulante et d'autres fonctions. Cliquez sur le bouton d'information sur la capacité « Vérifier le lecteur ». L'espace total du disque et la quantité de capacité à utiliser seront affichés ci-dessous. Les lecteurs peuvent ajouter des contrôles Button et label correspondants en fonction de leurs besoins.
Le code principal du programme est le suivant :
unité Unit1 ; interface utilise Windows, Messages, SysUtils, Classes, Graphiques, Contrôles, Formulaires, Boîtes de dialogue, StdCtrls ; tapez TForm1 = class(TForm) Edit1 : TEdit ; Label1 : TLabel ; Procédure Button1Click ; TObject); private { Déclarations privées } public { Déclarations publiques } end;var Form1 : TForm1;implémentation{$R *.DFM}procédure TForm1.Button1Click(Sender: TObject);var driver:pchar; sec1, byt1, cl1, cl2:longword;begin driver:=pchar(edit1.text);//Pour afficher Le nom du lecteur GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2) ; cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= 'Capacité totale du lecteur' + Formatfloat('###,##0',cl2) + 'byte'; := 'Capacité disponible du disque' + Formatfloat('###,##0',cl1) + 'Octets';end;end.