アーカイバAPI Tips - 002:[Arc]GetRunning/[Arc]GetVersion

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

■[Arc]GetRunning　(使用頻度：★★★)
DLLが実行状態であるかどうかを判断するAPI
■[Arc]Get(Sub)Version　(使用頻度：★★★★★)
DLLのバージョン(サブバージョン)を表示するAPI
■どんな処理をするのか？
コマンドボタンを押すとバージョンと実行状態を表示する。
■準備
「標準 EXE」でプロジェクトを作成し、表示されたフォーム上にコマンドボタンを設置しておく。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips002.bas) Option Explicit Public Declare Function UnlhaGetRunning Lib "Unlha32" () As Long Public Declare Function UnlhaGetVersion Lib "Unlha32" () As Integer Public Declare Function UnlhaGetSubVersion Lib "Unlha32" () As Integer
(tips002.frm) Option Explicit Private Sub Command1_Click() Dim ArcVer As Integer Dim ArcSubVer As Integer Dim ret As Long Dim MsgStr As String ' バージョンを取得するAPI ArcVer = UnlhaGetVersion () ArcSubVer = UnlhaGetSubVersion () ' DLLのプロセスが実行中かどうかを取得するAPI ret = UnlhaGetRunning () ' バージョン情報を格納 MsgStr = "UNLHA32.DLLのバージョンは " & Format(ArcVer / 100, "0.00") & "." 'サブバージョンの下2桁が10未満の場合は表示を変更する必要がある。 'そのため、100で割った余りを求めて、10未満の時は割った余りの9倍 'を加えてから下1桁のみ表示する。 If ArcSubVer Mod 100 < 10 Then ArcSubVer = ArcSubVer + ArcSubVer Mod 100 * 9 MsgStr = MsgStr & Format(ArcSubVer / 100, "0.0") & "です。" & vbCrLf Else MsgStr = MsgStr & Format(ArcSubVer / 100, "0.00") & "です。" & vbCrLf End If ' プロセスによって表示を変更 If ret >= 1 Then MsgStr = MsgStr & "現在DLLは実行中です。" Else MsgStr = MsgStr & "現在DLLは実行していません。" End If ' 情報アイコンとメッセージを表示 MsgBox MsgStr, vbOkOnly + vbInformation,"UNLHA32.DLL" End Sub
■ダウンロード(VB6.0用)
－ tips002.zip (3KB)：ボタンを押すとバージョンと実行状況を表示する。
■関連するAPI
なし
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

[Arc]GetRunning/[Arc]GetVersion

Last Updated：2001/06/05

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

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

　DLLが実行状態であるかどうかを判断するAPI

　■[Arc]Get(Sub)Version　(使用頻度：★★★★★)

　DLLのバージョン(サブバージョン)を表示するAPI

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

　コマンドボタンを押すとバージョンと実行状態を表示する。

　■準備

　「標準 EXE」でプロジェクトを作成し、表示されたフォーム上にコマンドボタンを設置しておく。

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

　(tips002.bas)

　(tips002.frm)

Option Explicit

Private Sub Command1_Click()
    Dim ArcVer As Integer
    Dim ArcSubVer As Integer
    Dim ret As Long
    Dim MsgStr As String

    ' バージョンを取得するAPI
    ArcVer = UnlhaGetVersion ()
    ArcSubVer = UnlhaGetSubVersion ()

    ' DLLのプロセスが実行中かどうかを取得するAPI
    ret = UnlhaGetRunning ()

    ' バージョン情報を格納
    MsgStr = "UNLHA32.DLLのバージョンは " & Format(ArcVer / 100, "0.00") & "."

    'サブバージョンの下2桁が10未満の場合は表示を変更する必要がある。
    'そのため、100で割った余りを求めて、10未満の時は割った余りの9倍
    'を加えてから下1桁のみ表示する。

    If ArcSubVer Mod 100 < 10 Then
        ArcSubVer = ArcSubVer + ArcSubVer Mod 100 * 9
        MsgStr = MsgStr & Format(ArcSubVer / 100, "0.0") & "です。" & vbCrLf
    Else

        MsgStr = MsgStr & Format(ArcSubVer / 100, "0.00") & "です。" & vbCrLf

    End If

    ' プロセスによって表示を変更
    If ret >= 1 Then
        MsgStr = MsgStr & "現在DLLは実行中です。"
    Else
        MsgStr = MsgStr & "現在DLLは実行していません。"
    End If

    ' 情報アイコンとメッセージを表示
    MsgBox MsgStr, vbOkOnly + vbInformation,"UNLHA32.DLL"

End Sub

　■ダウンロード(VB6.0用)

　　－ tips002.zip (3KB)：ボタンを押すとバージョンと実行状況を表示する。

　■関連するAPI

　　なし

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