７４．拡張子の関連付け実行する

＜　使用用途　＞
ファイルを実行する　　　　　　

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のShellExecute を使用します
ShellExecute　＝＞関連付けでアプリケーションを起動する
　　＜引数＞
　　　　hWnd&：ウインドウのハンドル
　　　　lpOperation$：｢Open｣ あるいは ｢Print｣
　　　　lpFile：拡張子のファイル名
　　　　lpParameters$：ディレクトリパス
　　　　lpDirectory$：無視　
　　　　nShowCmd&：定数（SW_××参照）
　　＠戻り値＠
　　　　　アプリケーションのインスタンスハンドル
＊APIを使わなくてもVBの標準機能を使ったほうが簡単

<　ＳＡＭＰＬＥ　＞
’C:\windows\Calc.exeを実行します。
'標準モジュール
Public Declare Function ShellExecute　Lib "SHELL32"　Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long

Public Const SW_SHOW = 5 'ウインドウをアクティブにする

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = ShellExecute(Me.hWnd, "Open", "Calc.exe", "c:\windows\", "", SW_SHOW)
End Sub

'***********************************************************************
'エクスプローラが起動します。
'Ret = ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "/n,/e,C:\", " ", SW_SHOW)
'***********************************************************************