Как Определить, Является Ли Диск Ntfs?

[Sascha]

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( 'C:\' ) then
      ShowMessage( 'Диск с файловой системой NTFS' )
   else
      ShowMessage( 'Диск не с файловой системой NTFS' );
end;