Как определить количество занятых секторов на диске в делфи?

[buka_14]

Как определить количество занятых секторов на диске в делфи? Или хотя бы просто занятое место на диске. Наверняка есть какие-то стандартные функции.
Заранее спасибо.

[ZYV]

http://www.google.ru/search?q=free+disk+space+delphi

Первая ссылка.

[buka_14]

procedure TForm1.Button1Click(Sender: TObject);
var
freeSpace, totalSpace: Double;
s: Char;
begin
// Drive letter
s := 'D';

freeSpace := DiskFree(Ord(s) - 64);
totalSpace := DiskSize(Ord(s) - 64);

label1.Caption := Format('Free Space: %12.0n', [freeSpace]);
Label2.Caption := Format('Total Space: %12.0n', [totalSpace]);
Label3.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
' Percent used.';
end;