Всем Доброго дня!
Подскажите как можно максимально оптимизировать и минимизировать путь при копировании файла.
Файл
который надо скопировать будет находиться в папке с моей программой (нигде не могу найти как прописать это)
И также хотелось бы сюда присобачить
определение папки пользователя куда будет скопирован файл.
То, что у меня есть:
Код:
1 2 3 4 5 6 | procedure TForm1 . Button1Click(Sender: TObject);
begin
if CopyFile( 'C:\Users\Ben\Documents\Embarcadero\Studio\Projects\Win32\game.cfg' , 'C:\Users\Ben\Saved Games\My Games\Racing\game.cfg' , true ) then
ShowMessage( 'Файл успешно скопирован =)' )
else ShowMessage( 'Неудача =(' );
end ;
|