Laufwerksinformationen

[Christian Seehase]

Moin sakura,

so, jetzt hab' ich das mal ausprobiert....
... und kriege die Krise



es tritt genau der gleiche Fehler auf

Delphi-Quellcode:

var
    dwDummy1                 : Cardinal;
    dwDummy2                 : Cardinal;
    FClusterSize            : Cardinal;
    FBytesPerSector         : Cardinal;
    FNumberOfFreeClusters   : Cardinal;
    FNumberOfUsedClusters   : Cardinal;
    FSectorsPerCluster      : Cardinal;
    FTotalNumberOfClusters  : Cardinal;

    FFreeBytesAvailable     : int64;
    FTotalNumberOfBytes     : int64;
    FTotalNumberOfFreeBytes : ULARGE_INTEGER;

begin
  GetDiskFreeSpace('c:\', FSectorsPerCluster, FBytesPerSector, dwDummy1,dwDummy2);
  FClusterSize := FBytesPerSector * FSectorsPerCluster;
  GetDiskFreeSpaceEx('c:\',FFreeBytesAvailable,FTotalNumberOfBytes,@FTotalNumberOfFreeBytes);
  FTotalNumberOfClusters := FTotalNumberOfBytes div FClusterSize;
  FNumberOfFreeClusters  := FFreeBytesAvailable div FClusterSize;
  FNumberOfUsedClusters  := FTotalNumberOfClusters - FNumberOfFreeClusters;
  ShowMessage(IntToStr(FTotalNumberOfClusters)+#13#10
    +IntToStr(FNumberOfFreeClusters)+IntToStr(dwDummy1)+#13#10
    +IntToStr(FNumberOfUsedClusters));
end;

[edit=Chakotay1308]Zu lange Zeile gekürzt. Mfg, Chakotay1308[/edit]