Delphi-Help

DiskSize

Печать
Рейтинг пользователей: / 1
ХудшийЛучший 

DiskSize

Описание

function DiskSize ( Drive : Byte ) : Int64;

Функция DiskSize выдает размер указанного диска (Drive) в байтах.
Если диск недопустим, или не содержит носителя, возвращается -1.
Если диск только для чтения, возвращается 0.
Диск определяется следующим образом:
1 = Диск A
2 = Диск B
3 = Диск C
...

Пример кода

var
i     : Integer;
space : Int64;
begin
//
Показ размера дисков B, C, D, E, F, где он существует
for i := 2 to 6 do
begin
space := DiskSize(i);
if space >= 0
then ShowMessage('
Размер диска = '+Chr(i+64)+
FloatToStrF(space, ffNumber, 20, 0))
else ShowMessage(Chr(i+64)+'
Диск не существует');
end;
end;

B Диск не существует
Размер диска C = 11,997,143,040
Размер диска D = 7,995,756,544
Размер диска E = 686,587,904
Размер диска F = 591,429,632

Примечание

Авторизация



Счетчики