核心提示:代码调用范例:procedure TForm1.FormCreate(Sender: TObject);var drive: TDriveInfo;begin for drive in TDriveI...
代码调用范例:
procedure TForm1.FormCreate(Sender: TObject);
var
drive: TDriveInfo;
begin
for drive in TDriveInfo.GetDrives do
with Memo1.Lines do
begin
if drive.IsReady then
begin
Add(Format('Name: %s', [drive.Name]));
Add(Format('AvailableFreeSpace: %d', [drive.AvailableFreeSpace]));
Add(Format('TotalFreeSpace: %d', [drive.TotalFreeSpace]));
Add(Format('TotalSize: %d', [drive.TotalSize]));
Add(Format('DriveFormat: %s', [drive.DriveFormat]));
Add(Format('DriveType: %s', [drive.DriveTypeString]));
Add(Format('VolumeLabel: %s', [drive.VolumeLabel]));
end
else
begin
Add(Format('Drive %s is not ready', [drive.Name]));
end;
end;
end;
迅雷专用高速下载