Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];
ВнизКак грамотно узнать тип файловой системы Найти похожие ветки
← →
AlexTrosh (2006-08-04 23:55) [0]Использую GetVolumeInformation, а затем сравниваю FileSystemNameBuffer со строками "NTFS" или "FAT".
Может есть какой-нибудь более красивый способ кроме
procedure TForm1.Button1Click(Sender: TObject);
var
MaxFileNameLen, FSFlags: Cardinal;
FileSystemName: array[0..MAX_PATH -1] of Char;
begin
GetVolumeInformation("c:\",nil,0,nil,MaxFileNameLen,FSFlags,FileSystemName,SizeO f(FileSystemName));
if FileSystemName = "NTFS" then
ShowMessage("NTFS")
else
ShowMessage("FAT");
end;
← →
Leonid Troyanovsky © (2006-08-05 10:41) [1]
> AlexTrosh (04.08.06 23:55)
> Использую GetVolumeInformation, а затем сравниваю FileSystemNameBuffer
> со строками "NTFS" или "FAT".
> Может есть какой-нибудь более красивый способ кроме
А, что значит "более красивый"?
Наверное, имелось ввиду "более правильный"?
Во-первых, следует проверять возвращаемое функцией,
скажем, Win32Check.
Во-вторых, вариантов файловой системы может быть больше
чем два, скажем, HPFS, FAT32.
Ну, и сравнивать строки положено несколько по-другому,
скажем, функцией StrLIComp.
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.049 c