请问怎么在程序运行时得到程序的路径？

wangkun1 2003-07-26 08:04:46

请问怎么在程序运行时得到程序的路径？请各位大虾告诉小弟
我只想知道我的程序的路径请问大侠该怎么做

请问怎么在程序运行时设置程序的默认路径?
我在程序的init事件中用set defa to 为什么不行
调用菜单时它告诉我找不到

...全文

43 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

qufusongyu 2003-07-27

打赏
举报

ccurrentprocedure = SYS(16,1)
npathstart = AT(":",ccurrentprocedure)- 1
nlenofpath = RAT("\", ccurrentprocedure) - (npathstart)
SET DEFAULT TO (SUBSTR(ccurrentprocedure, npathstart, nlenofpath))

fj_jiangqi 2003-07-26

打赏
举报

sys(5)+sys(2003) && 当前路径
sys(2004) && 启动路径
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

Foxer 2003-07-26

打赏
举报

何必那么麻烦？VFP有自己的函数的：
cStartDir = LEFT(SYS(16),RAT("\",SYS(16)))
cStartDir就是你的可执行程序的所在的路径了（不一定是当前路径）

设置默认路径就是用SET DEFAULT，好像没什么问题

wangkun1 2003-07-26

打赏
举报

这就是答案！

wangkun1 2003-07-26

打赏
举报

不要捣乱！！

wangkun1 2003-07-26

打赏
举报

在数据库应用程序设计中，经常需要获得一些重要的系统路径，如Windows系统的安装目录，SYSTEM目录的所在路径，当前的工作目录等。以下函数通过调用Windows API函数实现了这些功能。

DECLARE LONG GetSystemDirectory IN WIN32API ;
STRING @ lcSysDir, LONG
DECLARE LONG GetWindowsDirectory IN WIN32API ;
STRING @ lcWinDir, LONG
DECLARE LONG GetCurrentDirectory IN WIN32API ;
LONG, STRING @lcCurDir
LOCAL lcSysDir, lcWinDir, lcCurDir, lnStringLen
lcSysDir = SPACE(200) + CHR(0)
lcWinDir = SPACE(200) + CHR(0)
lcCurDir = SPACE(200) + CHR(0)
lnStringLen = GetSystemDirectory(@lcSysDir, 200)
lcSysDir = LEFT(lcSysDir,lnStringLen)
lnStringLen = GetWindowsDirectory(@lcWinDir, 200)
lcWinDir = LEFT(lcWinDir,lnStringLen)
lnStringLen = GetCurrentDirectory(200, @lcCurDir)
lcCurDir = LEFT(lcCurDir,lnStringLen)
? lcSysDir
? lcWinDir
? lcCurDir
或者
sys(5) + sys(2003) + '\'

在网上看到了一篇文章,大意是这样的:TCHAR exeFullPath[_MAX_PATH];char szDrive[_MAX_DRIVE]={0}, szDir[_MAX_DIR]={0}, szFNAME[_MAX_FNAME]={0}, szExt[_MAX_EXT]={0};GetModuleFileName(AfxGetInstanceHandle(), exeFullPath, s

C#程序运行时工作路径在"项目名称\bin\运行位数（x64或x86）\Debug"中

程序运行时的路径是该程序在被调用时的目录假如系统刚启动时，是在/目录处，这时系统启动脚本/etc/rc.local调用/home/root/qt_broadcast_client/qt_broadcast_client程序则目录就是/目录，qt_broadcast_client在调用system("./run.sh")时，run.sh的预期目录是/home/root/qt_broadcast_cl...

有时候需要在程序中操作本地文件，比如读取配置信息，为了能在不同的机器上运行程序，需要获取程序运行时的相对路径，这样方便找到文件的位置，方法如下： String ProjectPath=XXX.class.getProtectionDomain().getCodeSource().getLocation().getPath();