如何得到程序可执行文件的当前工作目录？

[leon_32163]

我在程序里想访问与该exe文件在同一个目录下的另一个文件。可是
用CreateFile时如果仅仅指定文件名，程序就会去“我的文档”目录下
查找，请问如何让程序访问当前目录而不必写死路径。

[ybluo]

AnsiString sFullPath;//文件的全路径
AnsiString sCurDir;//当前路径
sCurDir=GetCurrentDir();

[ybluo]

#include <Filectrl.hpp>

AnsiString sFullPath;//文件的全路径
AnsiString sCurDir;//当前路径
sCurDir=GetCurrentDir();
sFullPath＝sCurDir+ "\\" + "test.txt";
//--------
对文件进行处理

[myy]

GetCurrentDir();

这个太不好，因为你的程序可能有快捷方式，而快捷方式的启动目录并非该exe文件的目录，
或是从命令行启动的，那就更说不准了。

[WhyAndAnswer]

ExtractFilePath(Application->ExeName) 是这样吗

[TopCat]

得到应用程序所在的路径：

AnsiString AppPath = ExtractFilePath(Application->AppName);

[woainihaha]

同意WhyAndAnswer(明白).
也可以这样,ExtractFilePath(ParamStr(0));

[TopCat]

写错了，确实应该是ExeName，不是AppName

[sharkxie]

AnsiString AppPath = ExtractFilePath(Application->ExeName);

[HUANG_JH]

同意以上的做法

[chinayang]

ShowMessage(ExtractFilePath(Application->ExeName));

[chinayang]

到help中找有关.ExtractFile开头的函数...还有几个和这个有关系..

[ybluo]

GetCurrentDir();确实不太好，
但跟
>>这个太不好，因为你的程序可能有快捷方式，而快捷方式的启动目录并非该exe文件的目录，
好像没关系。

[rainbowinfog]

GetCurrentDirectory()

[qiuafa]

我是用ExtractFilePath(Application->ExeName)

[JetKingLau]

ExtractFilePath(Application->ExeName)，这是最好的办法。

[myy]

to ybluo() :

>>程序可能有快捷方式，而快捷方式的启动目录并非该exe文件的目录

应该是:
程序可能有快捷方式，而快捷方式的"属性->起始位置"并非该exe文件的目录

[类库]

ExtractFilePath(Application->ExeName);
ExtractFilePath(ParamStr(0));
都行，就是不推荐用GetCurrentDir();