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ß

[Luckie]

Was ist dagegen einzuwenden? Ansonsten GetVolumeInformation.

[Zacherl]

Zitat von Luckie:

Was ist dagegen einzuwenden?

Wollte nonVCL programmieren und die Unit bläht alles wieder unnötig auf.

Zitat von Luckie:

Ansonsten GetVolumeInformation.

Klingt gut danke dir