Как получить общую родительскую директорию для файлов в Delphi: руководство для разработчиков

Delphi , ОС и Железо , Windows

Приветствую! В данном руководстве мы рассмотрим, как можно определить общую родительскую директорию для набора файлов, когда ваша программа запущена через меню "Отправить" в операционной системе Windows. Это может быть полезно, например, для создания нового файла в директории, которая является общей для всех переданных файлов.

Проблема и контекст

Когда вы добавляете ярлык вашей программы в меню "Отправить", вы получаете возможность выбирать файлы в Проводнике и отправлять их в вашу программу. Однако, как определить, в какой директории были выделены файлы? Ваша программа должна создать новый файл в общей родительской директории этих файлов.

Решение проблемы

Для начала, вы можете использовать функцию ParamStr() для получения путей к файлам. Однако, для определения общей родительской директории, вам нужно будет применить алгоритм поиска наибольшего общего префикса для путей файлов.

Пример кода на Object Pascal (Delphi)

program FindCommonParentDirectory;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

function CommonParentDirectory(const FilePaths: TArray<string>): string;
var
  Index: Integer;
begin
  if Length(FilePaths) = 0 then
    Exit;

  Result := FilePaths[0];
  for Index := 1 to Length(FilePaths) - 1 do
  begin
    while Result <> '' and not DirectoryExists(Result + '\' + FilePaths[Index]) do
      SetLength(Result, Length(Result) - 1);
    if Result = '' then
      Exit;
    SetLength(Result, PosEx(DirSep(Result), FilePaths[0], [FORWARD]));
  end;
end;

var
  FilePaths: TArray<string>;
begin
  FilePaths := ['C:\one.txt', 'C:\1\4\5\one.txt', 'C:\1\4\two.txt'];
  Writeln('Общая родительская директория: ', CommonParentDirectory(FilePaths));
  Readln;
end.

Обсуждение

Обратите внимание, что в Windows 7 и более поздних версиях, Проводник может отображать файлы из разных директорий в одной группе, называемой "библиотеками". В таком случае, определение общей родительской директории может быть некорректным или не иметь смысла, так как файлы могут быть распределены по разным дискам.

Выводы

Используя предложенный алгоритм, вы сможете определить общую родительскую директорию для набора файлов в вашей программе на Delphi. Это может быть полезно для выполнения различных операций, таких как создание нового файла, в контексте работы с меню "Отправить" в Проводнике Windows.

Надеемся, что данное руководство поможет вам в решении ваших задач!

Создано по материалам из источника по ссылке.

Руководство для разработчиков на Delphi по определению общей родительской директории для файлов в контексте использования меню 'Отправить' в Windows.

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

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

:: Главная :: Windows ::