Jak sprawdzić czy np. x:\ jest albo nie jest napędem USB? Albo inaczej. Jak sprawdzić czy x:\ jest sformatowany jako NTFS?
Jak wykryć napęd USB albo structure plików NTFS
- Rejestracja: dni
- Ostatnio: dni
0
Dzięki! A oto gotowiec ,który znalazłem.
Uses ComObj
function IsNTFS(AFileName : string) : boolean;
var
fso, drv : OleVariant;
begin
IsNTFS := False;
fso := CreateOleObject('Scripting.FileSystemObject');
drv := fso.GetDrive(fso.GetDriveName(AFileName));
if drv.FileSystem = 'NTFS' then IsNTFS := True;
end;