アーカイバAPI Tips - 007:[Arc]QueryFunctionList

3F	[Arc]QueryFunctionList
Last Updated：2001/06/05
■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

■[Arc]QueryFunctionList　(使用頻度：★★★)
指定のAPIが使えるかどうかを取得するAPI
■どんな処理をするのか？
コンボボックスからAPIのリストおよびDLLを指定し、コマンドボタンでAPIが使えるかを表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にコンボボックスを2個作成する。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips007.bas) Option Explicit Public Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" _ (ByVal lpPath As String, _ ByVal lpFileName As String, _ ByVal lpExtension As String, _ ByVal nBufferLength As Long, _ ByVal lpBuffer As String, _ ByVal lpFilePart As String) As Long Public Declare Function UnlhaQueryFunctionList Lib "Unlha32" _ (ByVal iFunction As Long) As Long Public Declare Function ZipQueryFunctionList Lib "Zip32j" _ (ByVal iFunction As Long) As Long Public Declare Function UnZipQueryFunctionList Lib "UnZip32" _ (ByVal iFunction As Long) As Long Public Declare Function CabQueryFunctionList Lib "Cab32" _ (ByVal iFunction As Long) As Long Public Declare Function TarQueryFunctionList Lib "Tar32" _ (ByVal iFunction As Long) As Long Public Declare Function UnarjQueryFunctionList Lib "Unarj32j" _ (ByVal iFunction As Long) As Long Public Declare Function UnrarQueryFunctionList Lib "Unrar32" _ (ByVal iFunction As Long) As Long Public Declare Function BgaQueryFunctionList Lib "Bga32" _ (ByVal iFunction As Long) As Long Public Declare Function Yz1QueryFunctionList Lib "Yz1" _ (ByVal iFunction As Long) As Long Public Declare Function UnGCAQueryFunctionList Lib "UnGCA32" _ (ByVal iFunction As Long) As Long
(tips007.frm) Option Explicit Private ArcHead(10) As String 'API名のヘッダ (Unlha～) Private ArcAPI(4) As Long 'APIのエントリ番号 Private DllEnabled(10) As Boolean 'DLLの存在確認用の変数 Private DllActive As Long '前回選択したリスト番号を格納 Private Sub Combo1_Click() Dim ArcHead2 As String ArcHead2 = ArcHead(Combo1.ListIndex) If DllEnabled(Combo1.ListIndex) = False Then 'DLLが見つからない場合の処理 Combo1.ListIndex = DllActive MsgBox Combo1.List(Combo1.ListIndex) & "が見つかりません。", _ vbExclamation, "エラー" Exit Sub End If With Combo2 'リストボックスの内容をクリア .Clear 'リストボックスにAPIを追加する .AddItem ArcHead2 & "GetRunning" .AddItem ArcHead2 & "CheckArchive" .AddItem ArcHead2 & "FindFirst" .AddItem ArcHead2 & "FindNext" .ListIndex = 1 End With DllActive = Combo1.ListIndex End Sub Private Sub Command1_Click() Dim m As Long Dim ret As Long 'APIのエントリ番号を取得 m = ArcAPI(Combo2.ListIndex) 'DLLに対応したAPIを実行 Select Case Combo1.ListIndex Case 0 ret = UnlhaQueryFunctionList(m) Case 1 ret = ZipQueryFunctionList(m) Case 2 ret = UnZipQueryFunctionList(m) Case 3 ret = CabQueryFunctionList(m) Case 4 ret = TarQueryFunctionList(m) Case 5 ret = UnarjQueryFunctionList(m) Case 6 ret = UnrarQueryFunctionList(m) Case 7 ret = BgaQueryFunctionList(m) Case 8 ret = Yz1QueryFunctionList(m) Case 9 ret = UnGCAQueryFunctionList(m) End Select If ret = 1 Then MsgBox Combo2.List(Combo2.ListIndex) & "は利用できます。", _ vbInformation, Combo1.List(Combo1.ListIndex) Else MsgBox Combo2.List(Combo2.ListIndex) & "は利用できません。", _ vbInformation, Combo1.List(Combo1.ListIndex) End If End Sub Private Sub Form_Load() Dim i As Long Dim strBuf As String * 255 Dim strBuf2 As String * 255 'Unlha32.dllが使えない場合を想定する。 DllActive = -1 'APIのヘッダを変数に組み入れる ArcHead(0) = "Unlha" ArcHead(1) = "Zip" ArcHead(2) = "UnZip" ArcHead(3) = "Cab" ArcHead(4) = "Tar" ArcHead(5) = "Unarj" ArcHead(6) = "Unrar" ArcHead(7) = "Bga" ArcHead(8) = "Yz1" ArcHead(9) = "UnGCA" 'DLL名をコンボボックスに入力 With Combo1 .AddItem "Unlha32.dll", 0 .AddItem "Zip32j.dll" .AddItem "UnZip32.dll" .AddItem "Cab32.dll" .AddItem "Tar32.dll" .AddItem "Unarj32j.dll" .AddItem "Unrar32.dll" .AddItem "Bga32.dll" .AddItem "YZ1.dll" .AddItem "UnGCA32.dll" End With 'エントリ番号をリストに反映させるための設定。 ArcAPI(0) = 8 ArcAPI(1) = 16 ArcAPI(2) = 25 ArcAPI(3) = 26 For i = 0 To 10 'ここでDLLが存在するかを確認している。 If SearchPath(vbNullString, Combo1.List(i), _ vbNullString, 255, strBuf, strBuf2) <> 0 Then DllEnabled(i) = True Else DllEnabled(i) = False End If Next i Combo1.ListIndex = 0 End Sub
■ダウンロード(VB6.0用)
－ tips007.zip (3KB)：選択し、ボタンを押すとAPIが有効かどうか表示。
■関連するAPI
なし
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

Option Explicit

Private ArcHead(10) As String       'API名のヘッダ (Unlha～)
Private ArcAPI(4) As Long           'APIのエントリ番号
Private DllEnabled(10) As Boolean   'DLLの存在確認用の変数
Private DllActive As Long           '前回選択したリスト番号を格納

Private Sub Combo1_Click()
    Dim ArcHead2 As String
    ArcHead2 = ArcHead(Combo1.ListIndex)
        If DllEnabled(Combo1.ListIndex) = False Then
            'DLLが見つからない場合の処理
            Combo1.ListIndex = DllActive
            MsgBox Combo1.List(Combo1.ListIndex) & "が見つかりません。", _
					vbExclamation, "エラー"
            Exit Sub
        End If
    With Combo2
        'リストボックスの内容をクリア
        .Clear
        'リストボックスにAPIを追加する
        .AddItem ArcHead2 & "GetRunning"
        .AddItem ArcHead2 & "CheckArchive"
        .AddItem ArcHead2 & "FindFirst"
        .AddItem ArcHead2 & "FindNext"
        .ListIndex = 1
    End With
    DllActive = Combo1.ListIndex
End Sub

Private Sub Command1_Click()
    Dim m As Long
    Dim ret As Long
    'APIのエントリ番号を取得
    m = ArcAPI(Combo2.ListIndex)
    
    'DLLに対応したAPIを実行
    Select Case Combo1.ListIndex
        Case 0
            ret = UnlhaQueryFunctionList(m)
        Case 1
            ret = ZipQueryFunctionList(m)
        Case 2
            ret = UnZipQueryFunctionList(m)
        Case 3
            ret = CabQueryFunctionList(m)
        Case 4
            ret = TarQueryFunctionList(m)
        Case 5
            ret = UnarjQueryFunctionList(m)
        Case 6
            ret = UnrarQueryFunctionList(m)
        Case 7
            ret = BgaQueryFunctionList(m)
        Case 8
            ret = Yz1QueryFunctionList(m)
        Case 9
            ret = UnGCAQueryFunctionList(m)
    End Select
    
    If ret = 1 Then
        MsgBox Combo2.List(Combo2.ListIndex) & "は利用できます。", _
			vbInformation, Combo1.List(Combo1.ListIndex)
    Else
        MsgBox Combo2.List(Combo2.ListIndex) & "は利用できません。", _
			vbInformation, Combo1.List(Combo1.ListIndex)
    End If
End Sub

Private Sub Form_Load()
    Dim i As Long
    Dim strBuf As String * 255
    Dim strBuf2 As String * 255
    
    'Unlha32.dllが使えない場合を想定する。
    DllActive = -1
    
    'APIのヘッダを変数に組み入れる
    ArcHead(0) = "Unlha"
    ArcHead(1) = "Zip"
    ArcHead(2) = "UnZip"
    ArcHead(3) = "Cab"
    ArcHead(4) = "Tar"
    ArcHead(5) = "Unarj"
    ArcHead(6) = "Unrar"
    ArcHead(7) = "Bga"
    ArcHead(8) = "Yz1"
    ArcHead(9) = "UnGCA"
    
    'DLL名をコンボボックスに入力
    With Combo1
        .AddItem "Unlha32.dll", 0
        .AddItem "Zip32j.dll"
        .AddItem "UnZip32.dll"
        .AddItem "Cab32.dll"
        .AddItem "Tar32.dll"
        .AddItem "Unarj32j.dll"
        .AddItem "Unrar32.dll"
        .AddItem "Bga32.dll"
        .AddItem "YZ1.dll"
        .AddItem "UnGCA32.dll"
    End With
    
    'エントリ番号をリストに反映させるための設定。
    ArcAPI(0) = 8
    ArcAPI(1) = 16
    ArcAPI(2) = 25
    ArcAPI(3) = 26
    For i = 0 To 10
        'ここでDLLが存在するかを確認している。
        If SearchPath(vbNullString, Combo1.List(i), _
                    vbNullString, 255, strBuf, strBuf2) <> 0 Then
            DllEnabled(i) = True
        Else
            DllEnabled(i) = False
        End If
    Next i
    Combo1.ListIndex = 0
End Sub