Zitat von
Luckie:
Delphi 3 kennt noch kein Int64.
Das kommt bei dieser Routine aber doch nicht zum Tragen. In Sakura's Routine wird Cardinal verwendet. Für Delphi 3 musste ich wegen GetDiskFreeSpace die Variblen FBytesPerSector, FNumberOfFreeClusters, FSectorsPerCluster und FTotalNumberOfClusters von Cardinal auf LongInt ändern. FNumberOfUsedClusters blieb Cardinal. Und unter WinXP funktioniert es ja. Bei Win98SE stimmt die Anzahl der Cluster und die Sektoren je Cluster nicht. Wenn es nur an der Multiplikation hinge, wäre es ja nicht schlimm. Dann könnte man was ändern.
Wenn Int64 ginge könnte ich DiskSize und DiskFree nehmen.