Главная страница
    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.044 c
2-1176893560
delphi_
2007-04-18 14:52
2007.05.06
расположение кнопок "Свенуть" "Развернуть" "Закрыть"


2-1176723674
IgorMish
2007-04-16 15:41
2007.05.06
Закрывается приложение


15-1175973230
McSimm
2007-04-07 23:13
2007.05.06
новости Fast Reports - FastReport 4.02 c поддержкой Delphi 2007


2-1176655582
Bambuk
2007-04-15 20:46
2007.05.06
Изменение региональных настроек


15-1176014335
stunia
2007-04-08 10:38
2007.05.06
работа с Excel





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский