Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];

Вниз

Файловая система, получение информации   Найти похожие ветки 

 
Novice   (2007-03-12 13:55) [0]

Здравствуйте.

Нижеприведенный код:

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) [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));



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.042 c
1-1172751096
infom
2007-03-01 15:11
2007.05.06
Приложение для двух мониторов...


15-1176117920
Andre_s
2007-04-09 15:25
2007.05.06
Плата видеонаблюдения...


15-1176037084
palva
2007-04-08 16:58
2007.05.06
Вьюга в Москве


15-1175974189
mike888777666
2007-04-07 23:29
2007.05.06
антиспам


15-1175862979
palva
2007-04-06 16:36
2007.05.06
Пятница. Невезучая теорема Стюарта.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский