Espace disque libre Delphi 9

Version imprimable

05/12/2021, 14h09
hfr11

Espace disque libre Delphi 9

Bonjour,
Rad Studio Delphi 9
Je ne parviens pas à obtenir l'espace libre sur un volume (volumes supérieurs à 2 Go).
Que ce soit avec GetDiskFreeSpaceEx ou GetDiskFreeSpaceExA.
Merci à tous, Patrice.

Solution

Delphi 9 (Rad Studio 6)
Le volume à analyser est le texte de la combobox (ex : C:\), lettre du volume jusqu'à l'antislash compris
Edit1 pour l'espace libre
Edit2 pour l'espace occupé
Edit3 pour la taille totale du volume

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
Var
 lpFreeBytesAvailableToCaller : TLargeInteger;
 lpTotalNumberOfBytes : TLargeInteger;
 lpTotalNumberOfFreeBytes : TLargeInteger;
Begin
 if GetDiskFreeSpaceEx(PChar(ComboBox1.Text), lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes) then begin
   Edit3.Text := FloatToStr(lpTotalNumberOfBytes);
   Edit1.Text := FloatToStr(lpTotalNumberOfFreeBytes);
   Edit2.Text := FloatToStr(lpTotalNumberOfBytes - lpTotalNumberOfFreeBytes);
 end;
End;

06/12/2021, 10h24
SergioMaster

RAD Studio 9 :koi:
https://docwiki.embarcadero.com/RADS...piler_Versions

De la version 8 (la tant aimée :ptdr:) on est passé à D2005 qui effectivement à un "Product Version = 9"