Место на жестком диске

[Gapro]

Зравствуйте, у меня такой вопрос: Как определить количсетво свободного места и полный обьем жесткого диска? Конкретных компонентов для работы с жесткими не встречал. В инете подобной информации тоже как то дефицит. У меня есть мнение, что можно как то достать из реестра, но я не знаю точно как.


Нашел функцию DiskSize(номер буквы логического диска), но теперь думаю как сделать проверку всех логических дисков на существование, чтобы вывести только их?

 k:=0;
 For i:=1 to 26 Do
  If DiskSize(i)>100 then
   begin
     Memo1.Lines[k]:=IntToStr(DiskSize(i) div 1073741824);
     K:=k+1;
   end;

Вот эта конструкция выводит только первые два диска с и д, а f и g не находит

[raxp]

функа GetDiskFreeSpaceEx() поможет вам... использование

GetDiskFreeSpaceEx(pchar(dirs),FreeBytesAvailableToCaller,Totalsize,@FreeSize);

[Gapro]

Но функции DiskSize и DiskFree прекрасно работают, но не работает лишь вышеуказанная контрукция. Понять причину этого я не могу

[Gapro]

Разобрался. Все.