Показать сообщение отдельно
  #2  
Старый 27.08.2015, 14:29
Alekdmitr Alekdmitr вне форума
Прохожий
 
Регистрация: 26.08.2015
Сообщения: 2
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Решил данный вопрос таким кодом
Код:
var
  FreeBytesAvailableToCaller: TLargeInteger;
  FreeSize: TLargeInteger;
  TotalSize: TLargeInteger;
begin
  GetDiskFreeSpaceEx('\\хх.хх.хх.хх\c$',
    FreeBytesAvailableToCaller,
    Totalsize,
    @FreeSize);
end;
Ответить с цитированием