Zitat von
Hawkeye219:
Hallo,
du solltest auch beachten, daß die Routine bei Verzeichnisgrößen ab 2 GB falsche Werte liefert, weil sie alle Berechnungen mit dem Typ
longint durchführt. Damit auch größere Verzeichnisse verarbeitet werden können, muß zunächst überall "longint" durch "int64" ersetzt werden. Wird der Code mit einer Delphi-Version vor Delphi 2006 übersetzt, muß eine weitere Zeile angepaßt werden:
Delphi-Quellcode:
// Groesse := Groesse + SR.Size;
Groesse := Groesse + Int64(SR.FindData.nFileSizeHigh) shl 32 + SR.FindData.nFileSizeLow;
Gruß Hawkeye
Auch Danke
Zählt TurboDelphi auch zu Delphi 2006?