?  我們?cè)赩FP編程時(shí)，為了彌補(bǔ)VFP本身功能的不足，常常會(huì)用到WIN32API函數(shù)來(lái)對(duì)VFP的功能行擴(kuò)展，例如取得系統(tǒng)信息、對(duì)注冊(cè)表進(jìn)行操作等，但是由于WIN32API函數(shù)是C++的數(shù)據(jù)結(jié)構(gòu)形式,在調(diào)用時(shí)與VFP的數(shù)據(jù)格式有所不同,因此在調(diào)用時(shí)往往會(huì)產(chǎn)生問(wèn)題，而目前的一些資料所介紹的大都是VB、DELPHI等語(yǔ)言如何調(diào)用，對(duì)VFP如何調(diào)用介紹的比較少，更缺少具體的調(diào)用事例，下面我分幾次介紹在VFP如何調(diào)用WIN32API函數(shù)，并就一些常用的WIN32API函數(shù)作一介紹，由于 本人水平有限，所介紹的內(nèi)容，僅供您參考，也歡迎您在我的[請(qǐng)您留言]中共同探討：

　　一、VFP中調(diào)用WIN32API函數(shù)的格式

　　VFP中調(diào)用WIN32API函數(shù)的命令主要是：

　　DECLARE - DLL

　　CLEAR DLLS

　　1.DECLARE - DLL 它用于注冊(cè)外部 Windows 32 位動(dòng)態(tài)鏈接庫(kù) ( .DLL ) 中的一個(gè)函數(shù)。

　　語(yǔ)法： DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName]

　　.......[cParamType1 [@] ParamName1, cParamType2 [@] ParamName2, ...]

　　說(shuō)明：

　　cFunctionType 指定該函數(shù)返回值的類(lèi)型，其類(lèi)型代碼如下：

　　SHORT?????16 位整數(shù)

　　INTEGER????32 位整數(shù)

　　SINGLE???? 32 位浮點(diǎn)數(shù)

　　DOUBLE???? 64 位浮點(diǎn)數(shù)

　　STRING?????? 字符串

　　FunctionName 指定要注冊(cè)使用的32位函數(shù)名。注意 FunctionName 區(qū)分大小寫(xiě)。

　　如果該函數(shù)名與Visual FoxPro的保留字相同，應(yīng)使用AS參數(shù)另起別名。

　　IN LibraryName 指定該函數(shù)所在的外部動(dòng)態(tài)鏈接庫(kù)文件名，如果LibraryName為：

　　WIN32API時(shí)，VFP將依次查找KERNEL32.DLL、GDI32.DLL、

　　USER32.DLL、MPR.DLL及ADVAPI32.DLL等動(dòng)態(tài)鏈接庫(kù)文件名。

　　AS AliasName 當(dāng)API函數(shù)的名稱(chēng)與Visual FoxPro的保留字相同時(shí)，另取 AliasName別名，另取的別名是不區(qū)分大小寫(xiě)的。

　　cParameterType1 [@] ParamName1, cParameterType2 [@] ParamName2, ...

　　指定傳遞給被調(diào)用的32位.DLL函數(shù)的參數(shù)類(lèi)型及參數(shù)名稱(chēng)。其類(lèi) 型代碼如FunctionType，如果要以傳址方法傳遞參數(shù)則應(yīng)在參數(shù)名前加上@。

　　2.CLEAR DLLS 釋放所有利用DECLARE - DLL命令所裝入的動(dòng)態(tài)鏈接庫(kù)。

　　....一旦申明WIN32API函數(shù)成功，就可以和一般函數(shù)一樣用 ？xxx()、=xxx() 來(lái)調(diào)用。

　　....下面以具體事例談?wù)剋in32api在Vfp中的運(yùn)用：

　　1.利用win32api函數(shù)獲取指定磁盤(pán)的卷標(biāo)：

　　Stor 0 to C_var,C_cd,C_qf

　　C_Var='c:\'

　　DECLARE INTEGER GetVolumeInformation IN Win32API STRING @, STRING @, INTEGER,;

　　INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER

　　xx=GetVolumeInformation(C_Var,"",20,@C_var,@C_cd,@C_qf,0,0)

　　CLEAR DLLS &&釋放所有利用DECLARE - DLL命令所裝入的動(dòng)態(tài)鏈接庫(kù)。

　　xx<>0 獲取指定磁盤(pán)的卷標(biāo)成功，反之則未成功。

　　C_var=指定磁盤(pán)的卷標(biāo)，是個(gè)十進(jìn)制的數(shù)值，與我們?cè)贒OS下看到的16進(jìn)制不同。

　　C_cd=系統(tǒng)規(guī)定的文件名每一部分的長(zhǎng)度,是個(gè)十進(jìn)制的數(shù)值。

　　C_qf=文件名的大小寫(xiě)標(biāo)志,是個(gè)十進(jìn)制的數(shù)值。

　　怎么樣很簡(jiǎn)單吧，我們可以把獲取的磁盤(pán)卷標(biāo)，用來(lái)加密我們的軟件，這樣 我們的 軟件就具有防拷貝的功能了。