VB聲明
Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long,ByVal lpBuffer As String) As Long
說明
在一個緩衝區中裝載當前目錄
返回值
Long，裝載到lpBuffer的位元組數。如nBufferLength的長度不夠，不足以容納目錄，則返回值是必要的緩衝區長度（要求至少這個長度），其中包括空中止字元。零表示失敗。會設定GetLastError
參數表
參數 類型及說明
nBufferLength Long，lpBuffer緩衝區的長度
lpBuffer String，指定一個預定義字串，用於裝載當前目錄。
VC聲明
函式功能
獲取當前進程的當前目錄。
注意當前目錄這東西有點怪異，本來確實是執行檔的所在目錄，但是當用檔案對話框成功打開一個檔案後，該目錄就被修改為被打開的檔案所在目錄。比如在程式中使用"123.txt"這樣的檔案名稱，希望將它存儲在exe檔案所在目錄中，但是當用戶用檔案對話框打開一個檔案"F:\456.txt"後，這個123.txt會被存儲到F盤下。(VC2005下的情況，其他VC版本待驗證)
參數說明
參數 類型及說明
nBufferLength 緩衝區的長度
lpBuffer 指定一個預定義字串，用於裝載當前目錄
返回值
調用成功 返回裝載到lpBuffer的位元組數。
使用GetLastError函式可獲得錯誤信息。
Ada聲明
該函式定義於WIN32庫，當然，也可以自己在需要時隨時創建聲明，聲明如下：
我們接著來創建一個Ada版本的函式。
函式位置
VC下包含該函式的頭檔案 windows.h
