SaveDialog не сохраняет правильно

[Shouldercannon]

Что здесь не так? Используя такой код

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text:=(ExtractFilePath(OpenDialog1.FileName))+(ExtractFileName(OpenDialog1.FileName));
end;

procedure TForm1.Button2Click(Sender: TObject);
var S:TStringList;
begin
S:=TStringList.Create;
S.Add(Label1.Caption);
S.SaveToFile('Link.txt');
S.Free;
end;

end.

файл сохраняется не там где надо. Тоесть он сохраняется там, где был отмечен файл через OpenDialog1. Пример: фаил через OpenDialog1 был отмечен по такому адресу C:\Program Files\Fox\run.exe. А сам файл в который этот адрес записан должен быть сохранён по адресу G:\Project\Link.txt, но этого не просиходит. В итоге файл сохраняется по адресу C:\Program Files\Fox\ что делать как исправить?

[Artificial]

S.SaveToFile('Link.txt');
Он же у тебя сохраняет в текущий каталог, тот, который был открыт.
SaveToFile указывай еще и путь, куда сохранять

[Shouldercannon]

Но мне надо чтобы Link.txt сохранялся в папку где находится программа в данном случае Project, а не в папку на которую дан этот линк.

[Artificial]

Тогда при включении проги определи путь корневой папки - GetDir(0,path);
А потом сохраняй в path + link.txt
Только что в другой теме ответил это: http://programmersforum.ru/showthread.php?t=21779

[Shouldercannon]

А можно поподробнее я там намучился что уже голова не варит.

[mutabor]

var
ProgramDir: string;

FormCreate
begin
GetDir(0, ProgramDir);
//или ProgramDir:=ExtractFileDir(Application.ExeName);
end;

S.SaveToFile(ProgramDir + '/Link.txt');

Примечания:
1/ не путай понятия Dir и Path, путь в отличие от директории оканчивается слешем '/', именно в этом отличие функций ExtractFileDir, ExtractFilePath и других.

2/ сохраняй или открывай файлы только при положительном выборе в диалогах:
if OpenDialog1.Execute then ...

3/ Зачем тебе SaveDialog если ты потом сохраняешь так: S.SaveToFile('Link.txt'); Используй свойство диалога FileName и все нормально будет, в этом случае никакого пути добавлять не надо.

[Alter]

какие сложности:

procedure TForm1.Button2Click(Sender: TObject);   
var S:TStringList;   
begin  
S:=TStringList.Create;   
S.Add(Label1.Caption);   
S.SaveToFile(ExtractFilePath(ParamStr(0))+'Link.txt');   
S.Free;   
end;

и зачем такие ненужные действия,

Edit1.Text:=(ExtractFilePath(OpenDialog1.FileName))+(ExtractFileName(OpenDialog1.FileName));

,
Диалог сам даёт полный путь к файлу через: OpenDialog1.FileName.

И вообще лучше так переделать:

procedure TForm1.Button1Click(Sender: TObject);   
begin  
 if OpenDialog1.Execute then
   Edit1.Text:=OpenDialog1.FileName;   
end;

[Shouldercannon]

Спасибо работает.