Jak wykryć napęd USB albo structure plików NTFS

0

Jak sprawdzić czy np. x:\ jest albo nie jest napędem USB? Albo inaczej. Jak sprawdzić czy x:\ jest sformatowany jako NTFS?

0

GetDriveType
GetVolumeInformation

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;

1 użytkowników online, w tym zalogowanych: 0, gości: 1