Работа с файлами: Копирование и вставка в приложении, имитирующем Проводник Windows с TcxShellListView

Delphi , ОС и Железо , Буфер обмена

Введение

В данной статье будет рассмотрен вопрос реализации функционала копирования и вставки файлов между реальным Проводником Windows и приложением, которое использует компонент TcxShellListView от DevExpress для имитации поведения Проводника. Такой функционал позволит пользователям более удобно работать с файлами внутри вашего приложения, делая его более интегрированным с операционной системой.

Проблема

Пользователь столкнулся с проблемой отсутствия реализации функционала копирования и вставки файлов (Copy & Paste и Cut & Paste) между Проводником Windows и его приложением, которое использует TcxShellListView для отображения файлов и папок. Хотя функционал перетаскивания файлов (Drag & Drop) работает корректно, DevExpress не предоставил реализацию работы с буфером обмена.

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

Для реализации копирования и вставки файлов можно использовать механизм, аналогичный перетаскиванию. Созданный для перетаскивания IDataObject также может быть использован для работы с буфером обмена. Для копирования файлов в буфер можно использовать функцию OleSetClipboard, а для вставки - OleGetClipboard для получения IDataObject из буфера. Далее, используя тот же код, что и для операций перетаскивания, можно декодировать данные из буфера.

Альтернативный подход

Существует более интегрированный подход, основанный на использовании IContextMenu. Пример такого подхода можно найти в проекте TurboPower tpShellShock, в частности, в функции ShellMenuExecute модуля StShlCtl. Этот подход позволяет использовать интерфейсы оболочки, такие как IShellFolder, что обеспечивает более интегрированный пользовательский опыт. Если компоненты DevExpress используют интерфейсы оболочки, то этот метод будет работать.

Пример кода

Вот пример кода функции ShellMenuExecute, которая демонстрирует использование IContextMenu для выполнения операций копирования, вырезания и вставки:

procedure ShellMenuExecute(
  const Sender : TObject; const Folder : IShellFolder;
  var Pidl : PItemIDList; const Count : Integer;
  const AHandle : THandle; ClipboardAction : TStMenuAction);
var
  CM : IContextMenu;
  CI : TCmInvokeCommandInfo;
begin
  if Folder <> nil then begin
    if (Folder.GetUIObjectOf(AHandle, Count, Pidl,
      IID_IContextMenu, nil, Pointer(CM)) = NOERROR)
    then begin
      ZeroMemory(@CI, SizeOf(CI));
      CI.cbSize := SizeOf(TCmInvokeCommandInfo);
      CI.hwnd := AHandle;
      case ClipboardAction of
        caCut   : CI.lpVerb := 'cut';
        caCopy  : CI.lpVerb := 'copy';
        caPaste : CI.lpVerb := 'paste';
        caProperties : CI.lpVerb := 'properties';
      end;
      CM.InvokeCommand(CI);
      CM := nil;
    end;
  end;
end;

Обратите внимание, что параметр AHandle в объявлении функции должен быть типа HWND, так как он используется как владелец окна для любых диалогов, которые могут быть показаны во время вызова InvokeCommand.

Заключение

В данной статье мы рассмотрели, как можно реализовать функционал копирования и вставки файлов в приложении, имитирующем Проводник Windows с использованием TcxShellListView. Мы обсудили два подхода: использование IDataObject и IContextMenu. Предоставили пример кода, который можно использовать для интеграции с буфером обмена Windows, делая ваше приложение более удобным для конечных пользователей.

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

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

Реализация функционала копирования и вставки файлов в приложении, имитирующем Проводник Windows с использованием компонента TcxShellListView от DevExpress.

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

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

:: Главная :: Буфер обмена ::