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

[SeRhy]

Подскажите пожалуйста как проверить количество свободного и занятого места на логическом диске.
Зарание спасибо.

[Stilet]

GetDiskFreeSpace

[eoln]

var 
  SectInClust, ByteInSect, FreeClust, AllClust: Cardinal;
  SerialNum:dword;
  int64_:int64;
...
GetDiskFreeSpace('c', SectInClust, ByteInSect, FreeClust, AllClust); 
int64_:=AllClust;
        int64_:=int64_*SectInClust;
        int64_:=int64_*ByteInSect;//всё
int64_:=FreeClust;
        int64_:=int64_*SectInClust;
        int64_:=int64_*ByteInSect;//свободно
nt64_:=AllClust-FreeClust;
        int64_:=int64_*SectInClust;
        int64_:=int64_*ByteInSect;//занято

[SunKnight]

Function DiskFree(D: Byte): Longint;
Возвращает объем в байтах свободного пространства на указанном диске: D - номер диска (0 - устройство по умолчанию, 1 - диск А, 2 - диск В и т.д.). Функция возвращает значение -1, если указан номер несуществующего диска.


Function DiskSize(D: Byte): Longint;
Возвращает объем в байтах полного пространства на указанном диске: D - номер диска (0 - устройство по умолчанию, 1 - диск А , 2 - диск 5.и т.д.). Функция возвращает значение -1, если указан номер несуществующего диска.

[eoln]

Function DiskFree(D: Byte): Longint;

Для больших дисков возвращает не верное значение