Как определить, является ли диск NTFSDelphi , Файловая система , ДискиКак определить, является ли диск 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; Here is the translation of the text into Russian: Код на языке Delphi!
Цель этого кода - определить, указывает ли указанный путь к файлу ( Процедура Вот некоторые предложения по улучшению кода:
1. Обработка ошибок: код не проверяет, является ли путь к файлу валидным перед попыткой доступа к нему. Вам может потребоваться добавить обработку ошибок для случаев, когда путь к файлу недействителен.
2. Неиспользуемая переменная: переменная Вот обновленная версия кода с этими предложениями в виду:
Замечание, что обновленный код все еще использует COM-объекты, но он более компактен и лучше обрабатывает ошибки. Если вы хотите использовать встроенные API Delphi вместо COM-объектов, я могу помочь с этим! В статье описывается функция на языке Delphi, которая determines whether a specified file is located on an NTFS disk or not. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |