Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.044 c