15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как определить размер свободного места на диске

Для получения размера свободного места на дисках, ёмкость которых больше 2Гб, необходимо использовать функцию GetDiskFreeSpaceEx.
Нижн приведён небольшой пример использования данной функции:

var
FreeBytesAvailableToCaller : TLargeInteger;
FreeSize     : TLargeInteger;
TotalSize    : TLargeInteger;
begin
  GetDiskFreeSpaceEx( 'c:',
                      FreeBytesAvailableToCaller,
                      Totalsize,
                      @FreeSize );
end;

Результатом будет значение в байтах.