Delphi - база знаний

         

Как определить, является ли диск 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:\Temp\File.doc') then 
    ShowMessage('File is on NTFS File System') 
  else 
    ShowMessage('File is not on NTFS File System') 
end

Взято с сайта




Содержание  Назад  Вперед








Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий