Как проверить находится ли файл на локальном дискеDelphi , Файловая система , ДискиКак проверить находится ли файл на локальном дискеАвтор: http://www.swissdelphicenter.ch function IsOnLocalDrive(aFileName: string): Boolean; var aDrive: string; begin aDrive := ExtractFileDrive(aFileName); if (GetDriveType(PChar(aDrive)) = DRIVE_REMOVABLE) or (GetDriveType(PChar(aDrive)) = DRIVE_FIXED) then Result := True else Result := False; end; // Example, Beispiel: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then if IsOnLocalDrive(OpenDialog1.FileName) then ShowMessage(OpenDialog1.FileName + ' is on a local drive.'); end; Here's the translation of the text into Russian: Код, который я предоставил, написан на языке Delphi, использующем синтаксис Pascal. Функция Вот что она делает:
Пример кода демонстрирует, как использовать эту функцию в приложении с графическим интерфейсом (Delphi VCL). Когда вы нажимаете кнопку, программа открывает диалоговое окно с помощью компонента Альтернативное решение: Вместо извлечения буквы диска и проверки ее типа можно использовать функцию
Эта APPROACH проще и может быть более эффективной для больших файлов или директорий. Однако она предполагает, что файл существует на указанном диске; если он не существует, функция вернет Обратите внимание, что это решение не столь надежно, как оригинальный код, который проверяет тип диска явно. Оригинальный код может обрабатывать случаи, когда removable-устройство (например, USB-накопитель) было монтировано как фиксированная буква диска. Статья описывает функцию на языке Delphi, которая проверяет, находится ли указанный файл на локальном диске или на removable устройстве. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |