戻る

アプリケーションのインストール先を取得する方法(API関数FindExecutableの使用例)
動作環境 Windows95/98 開発環境 Visual Basic 6.0 (+SP3)
説明 指定の拡張子のと関連付けられたアプリケーションのインストール先を取得します。
用意するもの：標準フォーム(Form1),コマンドボタン(Command1)
'変数の明示的な宣言を強制します。
Option Explicit
'API関数 FindExecutable の使用を宣言します。
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Private Sub Command1_Click()

'API関数の戻り値を格納する変数
Dim ret As Long
'実行可能ファイルのパスを格納する変数
Dim myBuf As String * 260

'ファイルシステムオブジェクトを利用してダミーのプロジェクトファイルを生成します。
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder "C:\MyTmp"
FSO.CreateTextFile "C:\MyTmp\myProject.vbp"
Set FSO = Nothing

ret = FindExecutable("C:\myTmp\myProject.vbp", "C:\MyTmp", myBuf)
MsgBox Left(myBuf, InStr(myBuf, vbNullChar) - 1)

End Sub

※サンプルではVisualBasicのパスを取得していますが、他のアプリケーションのインストール先の取得にも利用が可能と思います。