Discussion :

[hfr11]

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.

[hfr11]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[SergioMaster]

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

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