VB中Shell和ShellExecute函數的使用方法和區別

 寫了一個vb的程式，用來把原來寫的幾個vb和vc的程式整合起來。就是使用Shell函數。結果發現，vc的程式可以很好的顯示，但vb寫的卻一運行就最小化了。仔細查看了一下以下文章，才發現原來shell函數的預設顯示模式是windowstyle是等於vbMinimizedFocus。然後就是直接加上一個vbNormalFocus。一切ok!  

vb的shell函數用法： 

功能：執行一個可執行檔，返回一個 Variant (Double)，如果成功的話，代表這個程式的任務 ID，若不成功，則會返回 0。 

文法：Shell(pathname[,windowstyle]) 

Shell 函數的文法含有下面這些具名引數： 

pathname 必要參數。Variant (String)，要執行的程式名，以及任何必要參數或命令列變數，可能還包括目錄或檔案夾，以及磁碟機。 

Windowstyle 選擇性參數。Variant (Integer)，表示在程式運行時視窗的樣式。如果 windowstyle 省略，則程式是以具有焦點的已最小化的視窗來執行的。 

shellExecute函數： 
     其用法較為複雜，但是功能更加強大。

     HINSTANCE ShellExecute(
      HWND hwnd,           '父視窗控制代碼
      LPCTSTR lpOperation,   '操作或開啟檔案 "edit","explore","open","find","print","NULL"
      LPCTSTR lpFile,         '檔案名稱,前面可加路徑
      LPCTSTR lpParameters,   '參數
      LPCTSTR lpDirectory,    '預設資料夾
      INT nShowCmd          '顯示方式
);

ShellExecute的功能是運行一個外部程式 

（或者是開啟一個登入的檔案、開啟一個目錄、列印一個檔案等等）， 

並對外部程式有一定的控制。shell函數在這個方面先相對較弱， 

在大多數情況下ShellExecute是更多的被使用的，
 
　lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
　If (lR < 0) Or (lR > 32) Then
　　 ' 成功
　Else
　　MsgBox "無法開啟 '" & sFile & "'", vbInformation
　End If

附：
　　本函數還可以用來串連到網頁，照下面寫就行了：
ShellExecute 0&, vbNullString, "http://coolbasic.yeah.net", vbNullString, vbNullString, vbNormalFocus

　　或者這樣寫來發送Email：
ShellExecute me.hwnd, "open", "mailto:vbcode@vbcode.com", vbNullString, vbNullString, SW_SHOW

另外有ShellExecute的替代用法，更加簡單實用，不用API，一句Shell搞定！

串連到網頁：
　　Shell "rundll32.exe url.dll,FileProtocolHandler http://www.online.sh.cn"
開啟檔案：
　　Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path & "SHELLTST.TXT"