Egy meghajtó teljes méretének és az azon rendelkezésre álló szabad lemezterületnek a
megállapítására a Delphi alábbi két függvényét használhatjuk:

DiskSize() - visszaadja bájtokban a paraméterben átadott meghajtó teljes méretét.
DiskFree() - viszaadja bájtokban a paraméterben átadott meghajtón rendelkezésre álló szabad
lemezterületet. (Érvénytelen meghajtó megadása esetén mindkét függvény -1-gyel tér vissza.)
Mindkét függvény egyetlen paramétere a meghajtó jelölőszáma.

0 = aktuális meghajtó, ahonnan a program EXE-t indították;

1 = A:\ meghajtó; 
2 = B:\ meghajtó; 
3 = C:\ meghajtó; 
4 = D:\ meghajtó stb. 
2. Egy példa a fenti két függvény használatára:


procedure TForm1.Button1Click(Sender: TObject);
var TotalFree, TotalSize : Integer;
begin
   TotalFree := DiskFree(3);
   if TotalFree <> -1 then
   begin
     TotalSize := DiskSize(3);
     if TotalSize <> -1 then
     begin
       TotalFree := TotalFree div 1024;
       TotalSize := TotalSize div 1024;
       ShowMessage('Disk Free: '+format('%d',[TotalFree]) + ' kb' + #13 + 'Disk Size: '+format('%d',[TotalSize]) + ' kb');
     end;
   end;
end;