獲取一些重要的系統路徑 
　 
蔣清野 

(清華大學土木工程系)

    在數據庫應用程序設計中，經常需要獲得一些重要的系統路徑，如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） 

電子郵件：qyjohn@letterbox.com 

版權所有，嚴禁轉載。