Delphi-Help

DiskFree

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

DiskFree

Описание

function DiskFree ( Drive : Byte ) : Int64;

Функция DiskFree выдает количество свободного пространства на Диске (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 := DiskFree(i);
if space >= 0
then ShowMessage('Свободное место на диске = '+Chr(i+64)+
FloatToStrF(space, ffNumber, 20, 0))
else ShowMessage(Chr(i+64)+' Диск не существует');
end;
end;

B Диск не существует
Свободное место на диске C = 8,414,223,678
Свободное место на диске D = 4,127,004,529
Свободное место на диске E = 0
Свободное место на диске F = 0

Примечание

Авторизация



Счетчики