アーカイバAPI Tips - 008:[Arc]ConfigDialog

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

■[Arc]ConfigDialog　(使用頻度：★★★★)
アーカイバDLLの設定画面を開くAPI
■どんな処理をするのか？
コンボボックスからDLLを指定し、コマンドボタンでDLLの設定画面を表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にコンボボックスとコマンドボタンを作成する。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips008.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 UnlhaConfigDialog Lib "Unlha32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function ZipConfigDialog Lib "Zip32j" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function UnZipConfigDialog Lib "UnZip32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function CabConfigDialog Lib "Cab32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function TarConfigDialog Lib "Tar32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function UnarjConfigDialog Lib "Unarj32j" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function UnrarConfigDialog Lib "Unrar32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function BgaConfigDialog Lib "Bga32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function Yz1ConfigDialog Lib "Yz1" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long Public Declare Function UnGCAConfigDialog Lib "UnGCA32" _ (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long
(tips008.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 DllActive = Combo1.ListIndex End Sub Private Sub Command1_Click() Dim m As Long Dim Optbuf As String * 513 Dim ret As Long 'DLLに対応したAPIを実行 Select Case Combo1.ListIndex Case 0 ret = UnlhaConfigDialog(Me.hWnd, Optbuf, 0) Case 1 ret = ZipConfigDialog(Me.hWnd, Optbuf, 0) Case 2 ret = UnZipConfigDialog(Me.hWnd, Optbuf, 0) Case 3 ret = CabConfigDialog(Me.hWnd, Optbuf, 0) Case 4 ret = TarConfigDialog(Me.hWnd, Optbuf, 0) Case 5 ret = UnarjConfigDialog(Me.hWnd, Optbuf, 0) Case 6 ret = UnrarConfigDialog(Me.hWnd, Optbuf, 0) Case 7 ret = BgaConfigDialog(Me.hWnd, Optbuf, 0) Case 8 ret = Yz1ConfigDialog(Me.hWnd, Optbuf, 0) Case 9 ret = UnGCAConfigDialog(Me.hWnd, Optbuf, 0) End Select 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用)
－ tips008.zip (3KB)：選択し、ボタンを押すとDLLの設定画面を表示。
■関連するAPI
なし
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

[Arc]ConfigDialog

Last Updated：2001/06/05

■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

　■[Arc]ConfigDialog　(使用頻度：★★★★)

　アーカイバDLLの設定画面を開くAPI

　■どんな処理をするのか？

　コンボボックスからDLLを指定し、コマンドボタンでDLLの設定画面を表示。

　■準備

　「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にコンボボックスとコマンドボタンを作成する。

　■ソース　(標準モジュール／フォームモジュール／ダウンロード)

　(tips008.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 UnlhaConfigDialog Lib "Unlha32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function ZipConfigDialog Lib "Zip32j" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function UnZipConfigDialog Lib "UnZip32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function CabConfigDialog Lib "Cab32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function TarConfigDialog Lib "Tar32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function UnarjConfigDialog Lib "Unarj32j" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function UnrarConfigDialog Lib "Unrar32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function BgaConfigDialog Lib "Bga32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function Yz1ConfigDialog Lib "Yz1" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

Public Declare Function UnGCAConfigDialog Lib "UnGCA32" _
    (ByVal hWnd As Long, ByVal szOptionBuffer As String, ByVal iMode As Long) As Long

　(tips008.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
    DllActive = Combo1.ListIndex
End Sub

Private Sub Command1_Click()
    Dim m As Long
    Dim Optbuf As String * 513
    Dim ret As Long
    
    'DLLに対応したAPIを実行
    Select Case Combo1.ListIndex
        Case 0
            ret = UnlhaConfigDialog(Me.hWnd, Optbuf, 0)
        Case 1
            ret = ZipConfigDialog(Me.hWnd, Optbuf, 0)
        Case 2
            ret = UnZipConfigDialog(Me.hWnd, Optbuf, 0)
        Case 3
            ret = CabConfigDialog(Me.hWnd, Optbuf, 0)
        Case 4
            ret = TarConfigDialog(Me.hWnd, Optbuf, 0)
        Case 5
            ret = UnarjConfigDialog(Me.hWnd, Optbuf, 0)
        Case 6
            ret = UnrarConfigDialog(Me.hWnd, Optbuf, 0)
        Case 7
            ret = BgaConfigDialog(Me.hWnd, Optbuf, 0)
        Case 8
            ret = Yz1ConfigDialog(Me.hWnd, Optbuf, 0)
        Case 9
            ret = UnGCAConfigDialog(Me.hWnd, Optbuf, 0)
    End Select
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用)

　　－ tips008.zip (3KB)：選択し、ボタンを押すとDLLの設定画面を表示。

　■関連するAPI

　　なし

■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■