Справочник функций и процедур Delphi: DiskSize

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

DiskSize
Функция
Выдает размер указанного диска в байтах SysUtils unit
  function DiskSize ( Drive : Byte ) : Int64;

Google  
 
Описание
Функция DiskSize выдает размер указанного диска (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 := 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook