Вставка файлы через SaveDialog

[Alex711]

Здравствуйте, хочу скопировать файл:

procedure TForm1.btn2Click(Sender: TObject);
var
 FName : string;
begin
  if SaveDialog1.Execute then
  begin
  FName := SaveDialog1.FileName;
  ShowMessage('Выбранный каталог = '+FName);
  CopyFile(Pchar('data.ini'), Pchar(FName), True);
end;

В ShowMessage катулог и имя файла выводится верно, но ничего не копируется.
Подскажите пожалуйста, что не так?

[Аватар]

У тебя SaveDialog скорее всего изменил рабочий каталог и data.ini не находит. У диалога где-то в опциях есть возможность избежать изменение рабочего каталога

[Вадим Мошев]

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

pathToCurrentDirectory:=extractFilePath( application.exeName );

После этого полученным путём предварять относительные пути. В вашем случае

CopyFile(Pchar( pathToCurrentDirectory + 'data.ini' ), Pchar(FName), True);

___

Сообщение от Пепел Феникса

советую забыть про относительные пути.
всегда дополняйте их до полных.

а в вашей программе видимо есть диалоги(TOpenDialog/TSaveDialog/etc)
они меняют текущую директорию(директорию относительно которой относительный путь и дополняется автоматом)

ну а ответ дан выше, я просто уточнил причины.

Отсюда: http://www.programmersforum.ru/showthread.php?t=131971 (моя старая тема, где я выложил кусок своего г-нокода)

[Aliens_wolfs]

Если нужно для диалога SaveDialog

SaveDialog1.InitialDir:= extractFilePath(application.exeName) + '\'; ну либо путь можно сохранять например в ini и его потом использовать при повторном открытии, запомнить так сказать последний путь 
if SaveDialog1.Execute then
..................................

либо так

SaveDialog1.InitialDir:= ExtractFilePath(ParamStr(0)) + '\';
if SaveDialog1.Execute then
..................................

а все остальное вам написали выше