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:
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:
Gruss
Delbor