Как грамотно узнать тип файловой системы [D7, 95/98, XP]
AlexTrosh © (2006-08-04 23:55:00)
Использую 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:00) [1]
> AlexTrosh (04.08.06 23:55)
> Использую GetVolumeInformation, а затем сравниваю
FileSystemNameBuffer
> со строками 'NTFS' или 'FAT'.
> Может есть какой-нибудь более красивый способ кроме
А, что значит "более красивый"?
Наверное, имелось ввиду "более правильный"?
Во-первых, следует проверять возвращаемое функцией,
скажем, Win32Check.
Во-вторых, вариантов файловой системы может быть больше
чем два, скажем, HPFS, FAT32.
Ну, и сравнивать строки положено несколько по-другому,
скажем, функцией StrLIComp.
--
Regards, LVT.
Наверх 
ЧАТ |
Орешник |
|
