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

Odpowiedz Nowy wątek
Atak_Snajpera
2009-08-29 13:41
Atak_Snajpera
0

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

Pozostało 580 znaków

2009-08-29 13:52

Rejestracja: 13 lat temu

Ostatnio: 12 godzin temu

0

GetDriveType
GetVolumeInformation

Pozostało 580 znaków

Atak_Snajpera
2009-08-29 14:53
Atak_Snajpera
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;

Pozostało 580 znaków

Odpowiedz

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