Информация о дисках компьютера

[King Kong]

Всем привет) Помогите написать прогу, которая выдаёт информацию о дисковом пространстве на дисках компьютера. Через функцию GetDiskFreeSpace. Сколько всего и сколько осталось места. Есть пример, но это немного не то:

Function DiskInDrive(ADriveLetter : Char) : Boolean;
var
  SectorsPerCluster,
  BytesPerSector,
  NumberOfFreeClusters,
  TotalNumberOfClusters   : Cardinal;
begin
  Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                              SectorsPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters);

end;

[Streletz]

Сообщение от King Kong

Есть пример, но это немного не то:

Function DiskInDrive(ADriveLetter : Char) : Boolean;
var
  SectorsPerCluster,
  BytesPerSector,
  NumberOfFreeClusters,
  TotalNumberOfClusters   : Cardinal;
begin
  Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
                              SectorsPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters);

end;

А, Вы в этом примере пробовали сами разобраться? Названия параметров GetDiskFreeSpace уже сами по себе содержат подсказку, что и как нужно сделать.

[Stilet]

Не только не пробовал, но и поиск проигнорировал: http://www.programmersforum.ru/showt...t=%E4%E8%F1%EA

[min@y™]

Хочешь подарю модуль вот с такими функциями?

function dwApplicationHostDrive: Char;
function dwAvailableDrives: TStringList;
function dwCloseCD(Drive: Char): Boolean;
function dwCompareDiskStruct(Drive: Char; var BPC, SPC, BPS, FC, TC: Integer; var FS, TS, DSN: Int64): Boolean;
function dwDiskInDrive(Drive: Char): Boolean;
function dwDiskWriteProtected(Drive:  Char):  Boolean;
function dwDriveBytesPerCluster(Drive: Char): Integer;
function dwDriveBytesPerSector(Drive: Char): Integer;
function dwDriveCasePreserved(Drive: Char): Boolean;
function dwDriveCylinders(Drive: Char): Integer;
function dwDriveFATCount(Drive: Char): Integer;
function dwDriveFilesystemName(Drive: Char): String;
function dwDriveFreeClusters(Drive: Char): Integer;
function dwDriveFreeSpace(Drive: Char): Int64;
function dwDriveHeadCount(Drive: Char): Integer;
function dwDriveHiddenSectors(Drive: Char): Integer;
function dwDriveIndexToLetter(Drive: Byte): Char;
function dwDriveLetterToIndex(Drive: Char): Byte;
function dwDriveMaxFilenameLength(Drive: Char): Integer;
function dwDriveReservedSectors(Drive: Char): Integer;
function dwDriveRootEntries(Drive: Char): Integer;
function dwDrivesCount: Integer;
function dwDriveSectorsPerCluster(Drive: Char): Integer;
function dwDriveSectorsPerFAT(Drive: Char): Integer;
function dwDriveSectorsPerTrack(Drive: Char): Integer;
function dwDriveSerialNumber(Drive: Char): String;
function dwDriveSerialNumberInt(Drive: Char): Integer;
function dwDriveTotalClusters(Drive: Char): Integer;
function dwDriveTotalSpace(Drive: Char): Int64;
function dwDriveTracksCount(Drive: Char): Integer;
function dwDriveVolumeName(Drive: Char): String;
function dwEjectRemovable(const Drive: Char): TDWEjectRemovableResult;
function dwFloppyReady(const Drive: char): Boolean;
function dwGetDeviceParamBlock(Drive: Char; var ParamBlock: TDeviceParamBlock): Word;
function dwGetDriveShellInfo(const Drive: Char): TDWDriveShellInfo;
function dwGetVolumeInformationX (Drive: Char; var V : TDriveInformation): Boolean;
function dwOpenCD(Drive: Char): Boolean;
function dwSetDeviceParamBlock(Drive: Char; var ParamBlock: TDeviceParamBlock): Word;
function dwSystemHostDrive: Char;
function dwValidateDriveLetter(Drive: Char): Char;
function dwValidDriveLetter(Drive: Char): Boolean;
function dwVWin32(CtlCode: TVWin32CtlCode; var Regs: TDiocRegisters): Boolean;

procedure dwHardDrives(AList: TStrings);
procedure dwHardDrivesLong(AList: TStrings);