時(shí)間：2005-08-16 11:38 來源：未知 作者：共享 閱讀：次

'復(fù)制以下代碼到一模塊中
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'在程序中調(diào)用
Dim WindowsDirectory As String, SystemDirectory As String, x As Long
WindowsDirectory = Space(255)
SystemDirectory = Space(255)
x = GetWindowsDirectory(WindowsDirectory, 255)
x = GetSystemDirectory(SystemDirectory, 255)
MsgBox "Windows的安裝目錄是:" + WindowsDirectory+",系統(tǒng)目錄是:" + SystemDirectory

(責(zé)任編輯：admin)

上一篇：Access判斷組合框是否處于下拉狀態(tài)
下一篇：什么是 API？

• ·API函數(shù)詳細(xì)解釋
• ·Access從剪切版里復(fù)制和粘貼數(shù)據(jù)
• ·Access利用api實(shí)現(xiàn)打開/關(guān)閉光驅(qū)
• ·應(yīng)用程序開機(jī)自動啟動（注冊表操作技巧
• ·Access VBA 判斷網(wǎng)絡(luò)是否連通的多種辦
• ·什么是ADP,了解ADP的優(yōu)缺點(diǎn)
• ·優(yōu)秀產(chǎn)品大全--通用票據(jù)打印軟件(新)
• ·[技巧分享]多條Shell語句執(zhí)行導(dǎo)致判斷
• ·在access中可以調(diào)用API函數(shù)GetFileInfo
• ·Access API集中營--增加臨時(shí)使用的字體
• ·API ShellExecute 功能說明及應(yīng)用示例
• ·在VB中使用API函數(shù)(什么是API? )
• ·API實(shí)現(xiàn)完美的圖片出現(xiàn)效果（轉(zhuǎn)）
• ·API 設(shè)置調(diào)整系統(tǒng)當(dāng)前時(shí)間
• ·如何檢測以及設(shè)置鍵盤狀態(tài)
• ·不關(guān)閉當(dāng)前數(shù)據(jù)庫COPY當(dāng)前數(shù)據(jù)庫