Progressbar und TGauge

[himitsu]

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.