Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
DiskFree
Функция
Выдает число свободных байтов на указанном диске SysUtils unit
  function DiskFree ( Drive : Byte ) : Int64;
Описание
Функция DiskFree выдает количество свободного пространства на Диске (Drive).

Если диск недопустим, или не содержит носителя, возвращается -1.

Если диск только для чтения, возвращается 0.

Диск определяется следующим образом:

1 = Диск A
2 = Диск B
3 = Диск C
...
Похожие команды
DiskSize  Выдает размер указанного диска в байтах

 
Пример кода : Показ свободного места на дисках от B до F
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
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия