Объем жесткого диска

[buka_14]

Привет всем. Как на делфи определить объем жесткого диска?
Сколько занято, сколько свободно на нем. Приму любые подсказки.

[MalCer]

Сначала тебе нужно получить список дисков компьютера. Вот ф-ия:

//ф-ия заполняет список буквами логического диска компа
//Возвращает кол-во определенных дисков
{function GetDriveLetters(letters: TStrings):Integer;
var
  buffer: String;
  i, len, start: Integer;
begin
  SetLength(buffer, 110);
  len := GetLogicalDriveStrings(110, PAnsiChar(buffer));
  //Разбираем строку вида 'c:\#0d:\#0...#0#0', ВВозвращаемую ф-ей
  //GetLogicalDriveStrings
  start := 1;
  for i := 2 to len do
    if (buffer[i] = #0) and (start <> i) then
    begin
      //Нашли очередной диск
      letters.Append(Copy(buffer, start, i-start));
      start := i+1;
    end;
  GetDriveLetters := letters.Count;
end;
}
// Составление списка дисков
function GetDriveLetters(letters: TStrings):Integer;
var
  mask: DWORD;
  i: Integer;
  letter: Char;
begin
  //Получаем маску, характеризующую наличие диков
  mask := GetLogicalDrives();
  //Разбираем маску (Определяем значения первых 26 битов)
  i := 1;
  for letter := 'A' to 'Z' do
  begin
    if mask and i <> 0 then
      //Есть диск под текущей буквой
      letters.Append(letter + ':\');
    i := i * 2; //Переходим к след. биту
  end;
  GetDriveLetters := letters.Count;
end;

Извини, что дальше без пояснений(время нет)

function GetDriveInformation(root: String; var info: DriveInfo):Boolean;
var
  bufDriveName, bufFSNAme: String;
  SN: DWORD;
  maxFileName, fsOptions: Cardinal;
begin
  SetLength(bufDriveName, 101);
  SetLength(bufFSName, 101);
  
  if GetVolumeInformation(PAnsiChar(root), PAnsiChar(bufDriveName), 100,
                       Addr(SN), maxFileName, fsOptions,
                       PAnsiChar(bufFSName), 100) <> FALSE then
  begin
    
    with info do
    begin
      DriveLabel := bufDriveName;
      FileSystemName := bufFSName;
      SerialNumber := SN;
      MaxFileNameLen := maxFileName;
      
      with info.FileSystemOptions do
      begin
        CaseSensitive := fsOptions and FS_CASE_SENSITIVE <> 0;
        SupportCompression := fsOptions and FS_FILE_COMPRESSION <> 0;
        IsCompressed := fsOptions and FS_VOL_IS_COMPRESSED <> 0;
      end;
    end;
    
    GetDriveInformation := True;
  end
  else
    
    GetDriveInformation := False;
end;

// Ф-ия возвращает полный размер диска в байтах
function GetDriveSize(root: String): Int64;
var
  freeToCaller, totalBytes, freeBytes: Int64;
begin
  if GetDiskFreeSpaceEx(PAnsiChar(root), freeToCaller, totalBytes,
                     PLargeInteger(Addr(freeBytes))) <> FALSE
  then
    GetDriveSize := totalBytes
  else
    GetDriveSize := -1;
end;

//Ф-ия возвращает размер свободного места на диске
function GetDriveFreeSpace(root: String): Int64;
var
  freeToCaller, totalBytes, freeBytes:Int64;
begin
  if GetDiskFreeSpaceEx(PAnsiChar(root), freeToCaller, totalBytes,
                     PLargeInteger(Addr(freeBytes))) <> FALSE
  then
    GetDriveFreeSpace := freeBytes
  else
    GetDriveFreeSpace := -1;
end;

Дальше тебе нужно определить тип носителя. Ну вот в принципе и все.