Delphi-Quellcode:
Const Tempo1x = 153600 {150 KB/s * 1024};
{bei DVD's sind das 1,3-1,4 MB/s}
Var Verzeichnis: String;
Tempo: Byte;
Zeit: Integer;
Verzeichnis := 'E:\Download';
Tempo := 4; {1=1x(150 KB/s), 2=2x(300 KB/s), 4=4x(600 KB/s)...}
Zeit := GetDirSize(Verzeichnis, True) div (Temp * Temo1x);
Zeit = die Zeit für den Brennvorgang in Sekunden, allerdings ohne Leadin, Leadout, Verzeichnisstruktur und so - nur die reinen Dateiinhalte.