取系统路径.txt

来自「Vfp 文档 一些经典编程文章 可供初学者学习编程时使用」· 文本 代码 · 共 43 行

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

　 

作 者：蒋清野 

通讯地址：清华大学23#421 （100084） 

电子邮件：[e-mail] 

版权所有，严禁转载。 
　 


--------------------------------------------------------------------------------

返回索引页面