In diesem Beispiel wird ein Formular und eine TLabel-Komponente verwendet. Wenn der folgende Programmcode ausgeführt wird, wird in der TLabel-Komponente eine Meldung angezeigt, die den freien Speicherplatz auf der Festplatte in KB und in Prozent angibt.
Delphi-Quellcode:
var
S: string;
AmtFree: Int64;
Total: Int64;
begin
AmtFree := DiskFree(0);
Total := DiskSize(0);
S := IntToStr(AmtFree div Total) + 'Prozent von Laufwerk 0 sind frei: ' (AmtFree div 1024) + ' KB frei. ';
Label1.Caption := S;
end;
(Das Beispiel der Delphihilfe zu DiskFree)