VFP中調(diào)用其他應(yīng)用程序的方法.doc

VFP中調(diào)用其他應(yīng)用程序的方法在用VFP進(jìn)行應(yīng)用程序設(shè)計中，經(jīng)常需要調(diào)用其他的應(yīng)用程序。這時候我們立即會想到RUN命令。使用RUN命令只需知道應(yīng)用程序的文件名及其路徑即可。下面的示例是以最大化方式啟動Windows目錄下的圖畫板程序并同時打開c:windowsBubbles.bmp文件： RUN/n3 C:WindowsPbrush.exe c:windowsBubbles.bmpRUN命令的參數(shù)用法可以參考Visual FoxPro的幫助文件。但是令人失望的是，在實際開發(fā)時我們常常無法確定所需要啟動的應(yīng)用程序的文件名及其安裝的路徑。比如我們需要啟動用戶機(jī)器上的瀏覽器并連接到某一個網(wǎng)址，該機(jī)器可能安裝的是IE，也可能是NetScape，還有可能是其他的瀏覽器軟件，安裝的路徑更是無從確定。下面給出我在工作中找到的兩種解決方法，這兩種方法都是通過Win32 API函數(shù)來解決問題，因此其解決思路也可以用到其他編程語言中去。 （一）從注冊表中獲取被調(diào)用軟件的名稱及路徑。我們只需要提供被調(diào)用的軟件所處理的文件類型（由文件擴(kuò)展名來確定），即可通過查找注冊表中該軟件注冊的可以處理的文件類型的數(shù)據(jù)項來得到該軟件的文件名及安裝路徑。*主函數(shù)PROCEDURE lookregParameter filetype & 文件類型* 申明要用到的API 函數(shù)DECLARE Integer RegOpenKey IN Win32API ;Integer nHKey, String cSubKey,Integer nResultDECLARE Integer RegCloseKey IN Win32API ;Integer nHKeyDECLARE Integer RegQueryvalueEx IN Win32API ;Integer nHKey, String lpszvalueName,Integer dwReserved,;Integer lpdwType, String lpbData,Integer lpcbData#DEFINE HKEY_CLASSES_ROOT-2147483648#DEFINE C_EXTNOFOUND_LOC 查找失??！LOCAL cExtn,cAppKey,cAppName,nErrNumLOCAL oReg,regfilecAppKey = cAppName = nCurrentKey = 0nErrNum =GetAppPath(filetype,cAppKey,cAppName)* 確保去掉可執(zhí)行文件后的參數(shù)(如： C:EXCELEXCEL.EXE /e)IF ATC(.EXE,m.cAppName) #0m.cAppName= ALLTRIM(SUBSTR(m.cAppName,1,ATC(.EXE,m.cAppName)+3)IF ASC(LEFT(cAppName,1)=34& 去掉長文件名前多出的字符m.cAppName = SUBSTR(m.cAppName,2)ENDIFENDIFRetu LOWER(m.cAppName)ENDPROC* 打開注冊表PROCEDURE OpenKeyLPARAMETER cLookUpKeyLOCAL nSubKey,nErrCodenSubKey = 0m.nRegKey = HKEY_CLASSES_ROOTnErrCode = RegOpenKey(m.nRegKey,m.cLookUpKey,nSubKey)nCurrentKey = m.nSubKeyENDPROC* 關(guān)閉注冊表PROCEDURE CloseKey=RegCloseKey(nCurrentKey)nCurrentKey =0ENDPROC* 查詢注冊表PROCEDURE GetKeyvalueLPARAMETER cvalueName,cKeyvalueLOCAL lpdwReserved,lpdwType,lpbData,lpcbData,nErrCodeSTORE 0 TO lpdwReserved,lpdwTypeSTORE SPACE(256) TO lpbDataSTORE LEN(m.lpbData) TO m.lpcbDatam.nErrCode=RegQueryvalueEx(nCurrentKey,m.cvalueName,;m.lpdwReserved,lpdwType,lpbData,lpcbData)m.cKeyvalue = LEFT(m.lpbData,m.lpcbData-1)ENDPROCPROCEDURE GetAppPathLPARAMETER cExtension,cExtnKey,cAppKeyLOCAL cOptNamecOptName = * 得到要打開的文檔在注冊表中的名稱=OpenKey(.+m.cExtension)=GetKeyvalue(cOptName,cExtnKey)=CloseKey()RETURN GetApplication(cExtnKey,cAppKey)ENDPROC* 得到應(yīng)用程序的安裝路徑及名稱PROCEDURE GetApplicationPARAMETER cExtnKey,cAppKeyLOCAL cOptNamecOptName = =OpenKey(m.cExtnKey+ShellOpenCommand)=GetKeyvalue(cOptName,cAppKey)=CloseKey()ENDPROC- 在使用這段程序時，使用如下格式的語句：- fullpath=lookreg(doc) & 返回打開doc 文件的軟件名及安裝路徑-靈活運(yùn)用該段程序，可以大大豐富我們在軟件中的表現(xiàn)能力，例如應(yīng)用軟件的菜單中都有一項“關(guān)于本軟件”的功能，該功能調(diào)用的表單一般用來顯示有關(guān)系統(tǒng)資源及軟件版權(quán)的信息。如果我們要給其中的公司信息加上超文本鏈接使其可以直接訪問公司主頁。就可以在顯示公司信息的Label控件的 Click 事件中使用如下語句：fullpath=lookreg(htm)If allt(fullpath)= =messagebox( 無法找到瀏覽器以瀏覽公司主頁!,64,)retuElsefullpath=subst(fullpath,1,rat(.,fullpath)-1)+space(2)+;RUN/n3 &fullpathEndif- （二）利用Windows 的文檔關(guān)聯(lián)特性直接調(diào)用。-我們知道，Windows是一種面向文檔的操作系統(tǒng)。當(dāng)我們雙擊某個文件時，Windows就會自動啟動與該文件相關(guān)聯(lián)的應(yīng)用程序來對文件進(jìn)行處理。在這個過程中Windows主要使用了一個名為ShellExecute的Win32 API函數(shù)。我們可以通過這個函數(shù)來直接調(diào)用其他程序，徹底拋棄Run 命令的方式。Function shellstartParameters documentname* 聲明ShellExecute函數(shù)DECLARE INTEGER ShellExecute INshell32.DLL INTEGER HWND,;STRING lpszOP, ;STRING lpszFile, ;STRING lpszParams, ;STRING lpszDir, ;INTEGER fsshowcmd* 指定ShellExecute函數(shù)的輸出指向Windows桌面DECLARE INTEGER GetDesktopWindow IN win32apiHWND = GetDesktopWindow()*指定操作命令為打開方式lpszOP = open* 指定ShellExecute操作的對象為 documentnamelpszFile = documentnamelpszParams = * 指定ShellExecute的缺省目錄為c:templpszDir = c:tempfsshowcmd = 0* 執(zhí)行ShellExecute命令LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lps