Место HDD

[SONce]

собственно сабж, как определить сколько свободногоместа на диске?

[Ntlegend]

эээммм... а поисковиками пользоваться не умеешь??

первая ссылка в яндексе

[Terran]

Используйте функцию GetDiskFreeSpaceEx.
Пример:

Var
FreeBytesAvailableToCaller: TLargeInteger;
FreeSize: TLargeInteger;
TotalSize: TLargeInteger;
Begin
GetDiskFreeSpaceEx('C:',FreeBytesAvailableToCaller,Totalsize,@FreeSize);
End;

[Ntlegend]

WinApi Функция GetDiskFreeSpaceEx получает информацию о дисковом пространстве доступного на накопителе: общий объем пространства, общий объем свободного пространства, и общий объем свободного пространства пригодного для пользователя связанного с вызовом нитей.

Функция доступна в системах Win95 OSR2 или WinNT и выше.
Используйте функцию GetVersionEx, чтобы определить версию системы.

Если функция терпит неудачу, возвращаемое знчение - ноль. Для получения расширенной информации об ошибке вызовите функцию GetLastError.

Замечания
Иметь В Виду, что значения полученные этой функцией, имеют тип ULARGE_INTEGER.
Функция GetDiskFreeSpaceEx позволяет вам избежать сложных вычислений требующихся после вызова функции GetDiskFreeSpace.
Функция имеет аналог из модуля SysUtils поэтому рекомендуется указывать размещение функции (Windows.GetDiskFreeSpaceEx..).