Как проверить находится ли файл на локальном диске

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. Функция IsOnLocalDrive проверяет, находится ли указанный файл на локальном диске (фиксированном или removable).

Вот что она делает:

1. Функция IsOnLocalDrive принимает строковый параметр aFileName, который представляет собой путь к файлу для проверки.
2. Она извлекает букву диска из пути файла с помощью функции ExtractFileDrive и присваивает ее переменной aDrive.
3. Затем она проверяет, является ли тип диска либо DRIVE_REMOVABLE (например, USB-накопитель) или DRIVE_FIXED (например, локальный жесткий диск) с помощью функции GetDriveType.
4. Если тип диска соответствует одному из этих условий, функция устанавливает свой результат в True, указывая, что файл находится на локальном диске.
5. В противном случае она устанавливает результат в False.

Пример кода демонстрирует, как использовать эту функцию в приложении с графическим интерфейсом (Delphi VCL). Когда вы нажимаете кнопку, программа открывает диалоговое окно с помощью компонента OpenDialog1. Если вы выберете файл и файл находится на локальном диске, программа отображает сообщение об ошибке.

Альтернативное решение:

Вместо извлечения буквы диска и проверки ее типа можно использовать функцию FileExists для проверки, существует ли файл на конкретном диске (например, C:\). Если файл существует, можно предположить, что он находится на локальном диске. Вот модифицированный код:

function IsOnLocalDrive(aFileName: string): Boolean;
var
  Drive: Char;
begin
  Drive := 'C'; // измените на ваш желаемый букву диска
  if FileExists(Format('%s:\%s', [Drive, aFileName])) then
    Result := True
  else
    Result := False;
end;

Эта APPROACH проще и может быть более эффективной для больших файлов или директорий. Однако она предполагает, что файл существует на указанном диске; если он не существует, функция вернет False.

Обратите внимание, что это решение не столь надежно, как оригинальный код, который проверяет тип диска явно. Оригинальный код может обрабатывать случаи, когда removable-устройство (например, USB-накопитель) было монтировано как фиксированная буква диска.

Статья описывает функцию на языке Delphi, которая проверяет, находится ли указанный файл на локальном диске или на removable устройстве.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Диски ::