Herausfinden ob das Dateisystem NTFS formatiert ist

[Zacherl]

Hey,

ich habe bereits folgenden Code entdeckt:

Delphi-Quellcode:

uses
  ComObj;

function IsNTFS(aFilename: string) : boolean;
var
  fso,
  drv: OLEvariant;
begin { IsNTFS }
  IsNTFS := False; 
  fso := CreateOLEObject('Scripting.FileSystemObject'); 
  drv := fso.GetDrive(fso.GetDriveName(aFilename)); 
  IsNTFS := drv.FileSystem='NTFS' 
end; { IsNTFS }

Ungern aber würde ich die ComObj Unit verwenden, deshalb meine Frage, ob man das Problem noch anders lösen kann. Mein eigener Ansatz über CreateFile die jeweilige Partition zu öffnen und auf den NTFS Header zu prüfen habe ich auch verworfen, weil dazu Administratorrechte nötig sind.

Gruß