Как грамотно узнать тип файловой системы

← →
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.

Как грамотно узнать тип файловой системы Найти похожие ветки