VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

用過《網路螞蟻》的朋友都知道，在幫助功能表的對話方塊裏作者留下了他的電子郵件位址，單擊該郵件地址我們便能給作者發送電子郵件。這種功能看起來有些神秘，實際上只要利用Windows API的ShellExecute函數，便可輕鬆地實現該功能。
　　ShellExecute是用來打開特定格式的檔（如WORD檔、EXCEL表格）的函數。該函數存放在Shell32.DLL動態連結程式庫中，通過查閱MSDN，我們能夠得到下述幫助：
　　HINSTANCE ShellExecute(HWND hwnd,LPCTSTR lpOperation,LPCTSTR lpFile,LPCTSTR lpParameters,LPCTSTR lpDirectory,INT nShowCmd);
　　其調用參數的含義如下：
　　hwnd：指明打開檔的視窗控制碼。
　　lpOperation:指明操作類型，分別是"open"（打開）、"print"（列印）、"explore"（流覽）。
　　lpFile:欲打開文件的檔案名。這裏應該將檔的含義向更深層次理解。檔可以是本地檔，也可以是遠端檔；檔的類型可以是文字檔案，也可以是多媒體檔。
　　lpParameters：打開檔時所傳遞的參數。特別適合打開EXE文件。
　　lpDirectory：檔所在路徑。
　　nShowCmd：打開檔時視窗的狀態。0表示隱藏，1表示最大化，2表示最小化。
　　如果該函數能夠成功打開檔，則該函數的返回值大於32。該函數的返回值能夠為你調試程式提供很多有用的資訊，具體情況見MSDN內幫助檔。
　　好，有了上述認識之後，我們便能在VFP的程式開發中利用ShellExecute函數來實現發送電子郵件的功能。新建一表單ABOUTME，在該表單上添加下列控制項(見表1)。
　　需要說明的是，在Label1中的MouseIcon設為一手型游標，其所對應的圖示檔在系統內可以隨處找到(利用查找檔功能)，本文用的是Windows自帶h_move.cur文件。針對Label11的各類設置都是為了將該標籤打扮得更象"超文本"。
　　添加完上述控制項之後，接下來便是編寫控制項的CLICK事件代碼了。對Label1和Label2的CLICK事件設定相同，其他代碼為：
　　＊進行聲明操作：
　　DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING,STRING,INTEGER
　　＊向kingdom@126.com郵箱內發送一封主題為"你好"的電子郵件。
　　在Label1的CLICK事件裏，添加以下代碼：
　　ShellExecute(0,″open″,″mailto:kingdom@126.com?subject=你好″,0,0,1)
　　在Label2的CLICK事件裏，將上述語句改為：
　　ShellExecute(0,″open″,″http:∥NationalTax.home.Chinaren.com″,0,0,1)
　　＊以最大化視窗方式打開IE，進入作者主頁。
　　確認按鈕的CLICK事件代碼很簡單：thisform.release
　　運行上述表單，當滑鼠移動到電子郵件或是作者主頁區域時，滑鼠便會變成一隻手，點一下即可進行相應的操作：單擊Label1，啟動Outlook Express；單擊Label2，啟動IE，表單真有些像一個小型的IE！其實，在VFP的程式開發中，一些看似不可能的事件只要稍微用到一些Windows API，所有的事件一下子都變得簡單多了。"山重水複疑無路，柳暗花明又一村"，這可能就是編程的樂趣所在吧
　　Windows API簡介：
　　Application Program Interface，即應用程式編程介面，它是Windows提供給程式師的一系列函數。這些API函數同一般的函數相似，同樣具有輸入輸出參數，並編譯到一個獨立的檔中，該檔被稱為動態連結程式庫。運用API函數可以實現許多複雜和有趣的功能，如重新啟動電腦、跟蹤當前啟動表單、收發E－mail等。　　