Advanced member
Статус: Не в сети Регистрация: 09.06.2003 Откуда: USSR
Не совсем понял вопрос, тебе надо знать какой тип FS используется на определенном диске? Ведь могут быть несколько дисков, как с FAT32 так и с NTFS. Все это прекрасно узнается через WinAPI. Читаем MSND или даем посик по Гуглу.
Member
Статус: Не в сети Регистрация: 21.09.2004 Откуда: Санкт-Петербург
На делфи вот так: (сначала поместить кнопку на форму)
uses
ComObj;
function FileSystem(Name: string): Boolean;
var
Drvname, FS : OleVariant;
begin
FileSystem := False;
fs := CreateOleObject('Scripting.FileSystemObject');
DrvName := fs.GetDrive(fs.GetDriveName(Name));
FileSystem := DrvName.FileSystem = 'NTFS';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileSystem('C:\zz.txt') then
ShowMessage('На С NTFS файловая система')
else
ShowMessage('На С FAT32 файловая система');
end;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения