LibInstaller作成した OOo Basic のマクロを配布する際に簡単にインストールすることができるようにするためのマクロインストーラです。 ObjExport2 や 15 panels などのマクロのインストールのために使用しているインストーラと同じものです。 ダウンロードライセンスは気にしなくてよくて,フリーです。 自由に変更,配布等行ってください。 説明
テンプレートを開くと「インストール」と書かれたボタンがあります。このボタンをクリックすることでインストールを行うダイアログが表示されます。実行されるのは LibInstaller ライブラリの Installer モジュールの Main です。 この LibInstaller ライブラリには次のモジュールがあります。
使用に際して編集する必要があるのは Readme モジュールだけです。 作成作成の手順を説明します。
Readme モジュールの編集LibInstaller の設定や Readme の文章は LibInstaller ライブラリの Readme モジュールに含まれています。 このモジュールでインストールするモジュール名などを指定する必要があります。 モジュールを メニュー > ツール > マクロ から LibInstaller ライブラリのモジュール Readme を開きます。すると,次のようなコードが現れます。 個別に編集が必要な部分を説明していきます。 REM ***** BASIC ***** 'This module is for "mytools". But you can change and use for your library. Public Const sInstallationLibraryName As String = "LibraryName" この sInstallationLibraryName 変数にはインストールするライブラリ名を指定します。この定数で指定したライブラリ名はインストールするライブラリを特定するために使用するため,正確なライブラリ名を記述してください。型は文字列です。 'sInstallationLibraryName is your library name in this installer file. Please input correct name. Public Const sLibVersion As String = "0.1" ' Your version number of your library. sLibVersion にはライブラリのバージョンを文字列で記述します。特に必要がない場合には記述しなくてもいいです。 Public Const sLibDate As String = "September 6, 2003" ' Date ライブラリのリリースなどの日付を文字列で。 Public Const sLibAuthor As String = "Me" ' Author for the library. ライブラリの製作者名などを文字列で。 Public Const sDialogTitle As String = " - OpenOffice.org Basic Library Installer -" インストーラのダイアログのタイトルに表示される文字列を文字列で指定します。 'sDialogTitle is the title for InstallerDialog. 'Public Const sLogoName As String = "image2.png" ' This will not use. 'Readme string for page 2 in the dialog, array elements will be separated with linefeed. Function Readme() As String Dim aReadme() As String Dim sReadme As String aReadme() = Array( _ "", _ "" & " version " & sLibVersion, _ "", _ "", _ "", _ "免責事項:", _ "このライブラリを使用することで生じた全ての損害に製作者は責任を負いません。", _ "", _ "", _ "製作: " & sLibAuthor, _ "Version: " & sLibVersion & ", " & sLibDate ) Readme の本文です。実際の表示では,配列の要素ごとに改行されて表示されます。 For i = 0 To UBound( aReadme() ) sReadme = sReadme & aReadme(i) & Chr(10) Next i Readme = sReadme End Function To do
|