5,930
社区成员
发帖
与我相关
我的任务
分享急!程序执行时,用什么办法能得到本程序所在路径
程序是delphi做的单机版,paradox数据库,程序执行时,用什么办法能得到本程序所在路径?如果我这个程序给用户安装以后,数据库文件夹和.exe文件是在一个目录下,我要复制数据库文件夹,就要得到它的路径,我的程序里用的都是数据库别名,不知道它的 物理路径.如果知道可执行文件的路径也可以,到底用什么函数啊?
...全文
请发表友善的回复…
发表回复
Rijie 2003-02-25
- 打赏
- 举报
ExtractFilePath(ParamStr(0))后面没有'\',为什么要判断?
slley 2003-02-24
- 打赏
- 举报
Path:=ExtractFilePath(AppliCation.ExeName);\\找到程序所在路径
if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\
if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\
tfxg 2003-02-24
- 打赏
- 举报
Path:=ExtractFilePath(AppliCation.ExeName);
abcdefg171459 2003-02-24
- 打赏
- 举报
用SHfileoperation到底怎样实现一个目录下的多个子目录和多个子文件的拷贝啊？
ly_liuyang 2003-02-23
- 打赏
- 举报
ExtractFilePath(ParamStr(0))
or
ExtractFilePath(Application.ExeName)
or
ExtractFilePath(Application.ExeName)
撒加的天使 2003-02-23
- 打赏
- 举报
程序启动时用:GetCurrentDir
其他时候同: klyh(风笛) (
其他时候同: klyh(风笛) (
klyh 2003-02-23
- 打赏
- 举报
程序路径
Path:=ExtractFilePath(AppliCation.ExeName);\\找到程序所在路径
if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\’
Path:=ExtractFilePath(AppliCation.ExeName);\\找到程序所在路径
if Path[Length(Path)]<>'\' then Path:=Path+'\';\\检查一下有没有‘\’
Dhammacakkhu 2003-02-23
- 打赏
- 举报
GetCurrentDir
sailerbai 2003-02-23
- 打赏
- 举报
GetCurrentDirectory
bingjiling 2003-02-23
- 打赏
- 举报
ExtractFilePath(ParamStr(0))
ysai 2003-02-23
- 打赏
- 举报
or
ExtractFilePath(Application.ExeName);
ExtractFilePath(Application.ExeName);
sysu 2003-02-23
- 打赏
- 举报
ExtractFilePath(ParamStr(0))
