Главная страницаОбратная связьКарта сайта

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

Автор: http://www.swissdelphicenter.ch

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:\Temp\File.doc") then
    ShowMessage("File is on NTFS File System")
  else
    ShowMessage("File is not on NTFS File System")
end;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как определить, является ли диск NTFS", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info