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ß