Главная страница
    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.44 MB
Время: 0.043 c
2-1176848156
Kostafey
2007-04-18 02:15
2007.05.06
Корректное редактирование значения даты.


2-1176904042
Halz
2007-04-18 17:47
2007.05.06
Простенькая задача


15-1174447857
KSergey
2007-03-21 06:30
2007.05.06
Я не понимаю что такое пиратский софт


2-1176704787
Exile
2007-04-16 10:26
2007.05.06
Help - XoR


2-1176573546
ppcumax
2007-04-14 21:59
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский