Как определить, является ли диск NTFS

Советы » Диски » Как определить, является ли диск NTFS

uses

ComObj; function

IsNTFS(AFileName: string

): Boolean; var

fso, drv: OleVariant; begin

IsNTFS := False; fso := CreateOleObject('Scripting.FileSystemObject'); drv := fso.GetDrive(fso.GetDriveName(AFileName)); IsNTFS := drv.FileSystem = 'NTFS' end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

IsNTFS('X:TempFile.doc') then

ShowMessage('File is on NTFS File System') else

ShowMessage('File is not on NTFS File System') end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com