Как оставить изначальное название папки при копировании?

Question

[Notice_n]

При выполнении процедуры копирования папки переименовывается скопированная папка по типу "название + путь". Как сделать так, чтобы при копировании название папки оставалось таким же?

procedure CopyFiles(const FromFolder: string; const ToFolder: string);
var
  Fo      : TSHFileOpStruct;
  buffer  : array[0..4096] of char;
  p       : pchar;
begin
  FillChar(Buffer, sizeof(Buffer), #0);
  p := @buffer;
  StrECopy(p, PChar(FromFolder));
  FillChar(Fo, sizeof(Fo), #0);
  Fo.Wnd    := Application.Handle;
  Fo.wFunc  := FO_COPY;
  Fo.pFrom  := @Buffer;
  Fo.pTo    := PChar(ToFolder);
  Fo.fFlags := FOF_NOCONFIRMATION;
  if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
    ShowMessage('File copy process cancelled')
end;

procedure Form.BitBtn1Click(Sender: TObject);
begin
CopyFiles((Edit1.Text),(Edit3.Text));
ShowMessage('Папка успешно скопирована!');
end;

Comments

[kalapanga]

Свою функцию копирования писать не обязательно. Она уже есть и в таком виде Winapi.Windows.CopyFile и в таком System.IOUtils.TFile.Copy.

[Hemul GM]

kalapanga, его вариант копирует штатными средствами оболочки с штатным окном копирования и тд. Т.е. это по сути команда оболочке, а не процесс и он не замедлит работу программы. Однако, он сказал, что вроде как это не обязательно.

[Константин Цветков]

Hemul GM, Вот именно "средствами оболочки с штатным окном копирования" и при этом ставит флаг "ни о чём не спрашивать". В результате получает не ошибку, а непредсказуемое (конечно предсказуемое — если знать, что не так) переименование. Опять же, что он делал с Windows (твики, подмены и пр.) мы не знаем.
Поэтому пусть UNC замедляет программу, лучше самому управлять. В конце концов можно сделать отдельный поток.

Answer 1

[Константин Цветков]

С помощью компонента ShellFoldersBrowse (список внизу) находите папку-источник и папку получатель. К последней добавляете ExtractFileName от источника. Копировать с помощью System.IOUtils.TDirectory.Copy.
DELPHI+ShellFoldersBrowse. Если ничего не устроит, могу положить сюда свой вариант.

Comments

[Notice_n]

Если не сложно, посмотрел бы на Ваш вариант.

[Константин Цветков]

Notice_n, Модуль не влезет в ответ (ограничение числа символов). Comming Library

[Hemul GM]

Константин Цветков, gist github или pastebin