Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
11-1158513222
skillcoder
2006-09-17 21:13
2007.05.06
[Глюк] Прорисовка контролов в левом верхнем углу


2-1176755058
tigraman
2007-04-17 00:24
2007.05.06
Работа с мемо


15-1175790951
Pazitron_Brain
2007-04-05 20:35
2007.05.06
Извечный спор: микроядро или монолитное?


3-1171534913
dzhagr1
2007-02-15 13:21
2007.05.06
Связь таблиц в database desktop


2-1176893560
delphi_
2007-04-18 14:52
2007.05.06
расположение кнопок "Свенуть" "Развернуть" "Закрыть"