| Description |
The DiskSize function gives the size in bytes of the given Drive.
If the drive is invalid, or no media, -1 is returned
If the drive is read-only, 0 is returned.
The Drive is designated as follows:
| 1 | = A drive |
| 2 | = B drive |
| 3 | = C drive |
| ... | |
|
|
| Related commands |
| DiskFree |
|
Gives the number of free bytes on a specified drive |
|
|
|
| Example code : Show the size in bytes of drives B to F on your PC |
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
SysUtils, // Unit containing the DiskSize command
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
space : Int64;
begin
// Display the free space on drives B, C, D, E, F, where present
for i := 2 to 6 do
begin
space := DiskSize(i);
if space >= 0
then ShowMessage(Chr(i+64)+' Drive size = '+
FloatToStrF(space, ffNumber, 20, 0))
else ShowMessage(Chr(i+64)+' Drive not present');
end;
end;
end.
|
| Hide full unit code |
Example output is as follows:
B Drive not present
C Drive size = 11,997,143,040
D Drive size = 7,995,756,544
E Drive size = 686,587,904
F Drive size = 591,429,632
|
|