[vs259]

Код:

function T<Имя>.WindowsCopyFile(FromFile, ToDir : string) : boolean;
{Функция для копирования файлов}
var
  F: TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;

Админ: Пользуемся тегами!

использование: Далее используется CurDir, т.к. копируется в текущий каталог, но можно задать целевой каталог отличный от текущего

if not WindowsCopyFile(<Путь>+ <Имя файла>, CurDir +'\')
then ShowMessage('Ошибка копирования данных!');