关于getcurrentdir的问题

Question

我在form上放置了一个SaveDialog1，和button1
然后在button1里写下如下代码;
procedure TForm1.Button1Click(Sender: TObject);
var
filepath:string;
begin
if SaveDialog1.Execute=true then filepath:=SaveDialog1.FileName
else exit;
showmessage(filepath);
showmessage(getcurrentdir);
end;
我点击button1后并在dialog中随便选择一个文件;
发现showmessage(filepath)与showmessage(getcurrentdir)显示
的路径是一样的;我原来以为getcurrentdir应该是取得
当前程序所在的位置路径;为什么getcurrentdir的路径会随SaveDialog1.FileName而变化呢?
我用的是delphi6
windowsxp(personfinal)
请问是什么原因?还是我理解有误呢!请大家指教!谢谢!

Answer 1

getcurrentdir是当前路径，不一定就是EXE所在路径，可以用SetCurrentDir来设置的。

Answer 2

getcurrentdir是程序當前路徑，試試用SetCurrentDir設置一下看看；當然必要時，也可用以下這個：path:string;
  path:=ExtractFilePath(ParamStr(0));

Answer 3

不要用GetCurrentDir，这个是随着最后一次选目录而变的。用楼上说的ParamStr(0)，或者Application.ExeName（个人偏向前者），然后再ExtractFilePath一下就行了。