Question

openfiledialog指定默认路径

我要用initialdirectory指定默认路径，可是我这个程序是要在别人的机器上执行的，就是说我只知道其中一部分路径（……源程序\工程文件夹\数据库），而“……”就是对方安装的路径了，在不确定对方将安装在哪里的情况下，我怎么指定默认路径呢？

Answer 1

你应该说的是只获取它后面一部分地址吧，这样你可以使用Split('\')劈开，保存在一个数组里，然后在获取你要的那部分地址就可以了。不知道是不是这样。

追问

我找到办法了

Answer 2

OpenTextFileDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'card';
OpenTextFileDialog1.FileName := ExtractFilePath(ParamStr(0)) + 'card\*.txt';
OpenTextFileDialog1.Title := '选择小蝶记单词卡片路径：' + OpenTextFileDialog1.InitialDir;
OpenTextFileDialog1.Filter := 'Text File|*.txt';

if OpenTextFileDialog1.Execute then
ShowMessage(OpenTextFileDialog1.FileName);