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

[wangkun1]

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

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

[wangkun1]

在数据库应用程序设计中，经常需要获得一些重要的系统路径，如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) + '\'

[wangkun1]

不要捣乱！！

[wangkun1]

这就是答案！

[Foxer]

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

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

[fj_jiangqi]

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

[qufusongyu]

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