Как определить, является ли диск NTFS

uses

  ComObj;

function
 IsNTFS(AFileName: string
): Boolean;
var

  fso, drv: OleVariant;
begin

  IsNTFS := False;
  fso := CreateOleObject('Scripting.FileSystemObject');
  drv := fso.GetDrive(fso.GetDriveName(AFileName));
  IsNTFS := drv.FileSystem = 'NTFS'
end
;

procedure
 TForm1.Button1Click(Sender: TObject);
begin

  if
 IsNTFS('X:TempFile.doc') then

    ShowMessage('File is on NTFS File System')
  else

    ShowMessage('File is not on NTFS File System')
end
;

Другое по теме:

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А