サードパーティのアドイン

起動時に、プログラムは次の Windows レジストリキーにリストされているスクリプトを実行します。

HKEY_CURRENT_USER\Software\Allaire\HomeSite45\RunOnce
HKEY_CURRENT_USER\Software\Allaire\Studio45\RunOnce 
HKEY_CURRENT_USER\Software\Allaire\JRStudio3\RunOnce

これらの 1 つ以上のプログラムにアドインを追加する場合、アプリケーションのためのツールバーを作成するスクリプトを、適切なキーを使って、次にプログラムを起動するときに実行することができます。HomeSite では、実行するスクリプトへの絶対パスを含んでいる値を持つ文字列エントリを追加します。次に例を示します。

[HKEY_CURRENT_USER\Software\Allaire\HomeSite45\RunOnce]"MyAppScript"="c:
\\MyApp\\MyAppScript.bas"

Sub Main
    const TB_NAME = "MyApp"
    Dim app

    set app = Application

    ' すでにツールバーがある場合はこれを削除します。
    if app.ToolbarExists(TB_NAME) then
        app.DeleteToolbar(TB_NAME)
    end if

    ' ツールバーを再作成します。
    app.CreateToolbar TB_NAME

    ' ツールバーを下部にドッキングします。
    app.SetToolbarDockPos TB_NAME, 2

    ' app ツールボタンを追加します。
    app.AddAppToolbutton TB_NAME, "c:\MyApp\MyApp.exe", "", "クリックして
        MyApp を実行します。"
    ' タグ ツールボタンを追加します。
    app.AddTagToolbutton TB_NAME, "<div>", "</div>", "DIV ツールボタン",
        "DV", ""
        ' スクリプト ツールボタンを追加します。
    app.AddScriptToolbutton TB_NAME, app.AppPath + "test.bas" , "Script
        ツールボタン", "SC", ""
        ' VTM ツールボタンを追加します。
    app.AddVTMToolbutton TB_NAME, app.AppPath +
        "Extensions\TagDefs\HTML\div.vtm" , "VTM ツールボタン", "VT", ""

End Sub

これらのキーを読み取った後、エントリが再実行されないようプログラムによって削除されます。

サードパーティ開発元は、スクリプト関連のサポートを利用することによって可能性を広げることができます。サードパーティのアドインに関する最新情報については、「Allaire デベロッパ」サイトを参照してください。

Visual Tools Object Model の作成
Visual Tools Object Model の作成