Файловая система, получение информации [D5, D6, D7, Win2k, WinXP]
Novice © (2007-03-12 13:55:00)
Здравствуйте.
Нижеприведенный код:
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,FileSystemFlags: Cardinal;
begin
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
выдает только имя файловой системы, а каким образом можно
получить размер кластера, если это вообще возможно?
Novice (2007-03-12 14:38:00) [1]
Все, проблема решена.
Если кому интересно, вот решение:
var SecPerCluster, BytesPerSector, FreeClusters,
TotalClusters : Cardinal;
begin
GetDiskFreeSpace('C:\', SecPerCluster, BytesPerSector,
FreeClusters, TotalClusters);
Memo1.Lines.Add('Размер кластера в секторах = ' +
inttostr(SecPerCluster));
Memo1.Lines.Add('Размер сектора в кластерах = ' +
inttostr(BytesPerSector));
Memo1.Lines.Add('Размер кластера, байт = ' +
inttostr(SecPerCluster * BytesPerSector));
Наверх 
ЧАТ |
Орешник |
|
