Laufwerkgrössen ermitteln

[Delbor]

Hi zusammen

Inzwischen hab ich auch noch weiter gesucht, auch in Sachen Bit&Byte-Umrechnung und versucht, mit der gefundenen Demo auf 'einen grünen Zweig' zu kommen. Was ich dabei gefunden habe: GetDiskFreeSpace ist offenbar veraltet. Zumindest hab ich im Embarcadero-Wikki vergebens danach gesucht. Hingegen hab ich eine Bool-Funktion GetDiskFreeSpaceEx gefunden, allerdings bisher nicht aufrufen können.
Mal zum Vergleich die gefundene Anwendung und die Anzeige des Explorers:
14_22_32-Vol_Info - Delphi 10.4 - Main 3.jpg
Explorer.jpg
Der Code zu der Ausgabe dieses Programmes:

Delphi-Quellcode:

  GetDiskFreeSpace(PChar(drv), SectPerCls, BytesPerCls, FreeCls, TotCls);
  Showmessage( 'SectPerCls  := ' + IntToStr(SectPerCls) + sLineBreak +
               'BytesPerCls := ' + IntToStr(BytesPerCls) + sLineBreak +
               '    FreeCls := ' + IntToStr(FreeCls) + sLineBreak +
               '    TotCls  := ' + IntToStr(TotCls));

  Label11.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls * TotCls)/(1024*1024*1024)) + ' GB';

  Label12.Caption := FormatFloat('0.00', (SectPerCls * BytesPerCls * FreeCls)/(1024*1024*1024)) + ' GB';

...und ShowMessage:

ShowMessageDlg 1.jpg

Gruss
Delbor