*利用API函数获取一些重要的系统路径
（如Windows系统的安装目录，SYSTEM目录的所在路径，当前的工作目录等）
*方法一
Declare INTEGER GetSystemDirectory IN kernel32 STRING @ lpBuffer,INTEGER nSize
lpBuffer = SPACE (250)
nSizeRet = GetSystemDirectory (@lpBuffer, Len(lpBuffer))
If nSizeRet <> 0
lpBuffer = SUBSTR (lpBuffer, 1, nSizeRet)
?"Windows系统的目录："+lpBuffer
Endif
*方法二
DECLARE LONG GetSystemDirectory IN Win32API STRING @ lcSysDir, LONG
lcSysDir = SPACE(200) + CHR(0)
lnStringLen = GetSystemDirectory(@lcSysDir, 200)
lcSysDir = LEFT(lcSysDir,lnStringLen)
?"Windows系统的目录："+lcSysDir
DECLARE LONG GetWindowsDirectory IN Win32API STRING @ lcWinDir, LONG
lcWinDir = SPACE(200) + CHR(0)
lnStringLen = GetWindowsDirectory(@lcWinDir, 200)
lcWinDir = LEFT(lcWinDir,lnStringLen)
?"系统目录的所在路径："+lcWinDir
DECLARE LONG GetCurrentDirectory IN Win32API LONG, STRING @lcCurDir
lcCurDir = SPACE(200) + CHR(0)
lnStringLen = GetCurrentDirectory(200, @lcCurDir)
lcCurDir = LEFT(lcCurDir,lnStringLen)
?"当前的工作目录："+lcCurDir