MakeHPI/ActiveBasic/chapter1

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49

#include "hsmsgbox.idx"
#include "hsp3plugin.sbp"
 
'-------------------------------------------------------------------
' メモ - このファイルには、DLLの構成要素を記述します。
'        （例：関数定義、グローバル変数、定数定義など）
'
'        エクスポートが必要な関数には、"Export" 修飾子を指定します。
'        （例：Function Export FuncName() As Long）
'-------------------------------------------------------------------
 
Function Export DllMain(hinstDLL As HINSTANCE, fdwReason As DWord, lpvReserved As VoidPtr) As Long
    'DLLエントリポイント
    Select Case fdwReason
        Case DLL_PROCESS_ATTACH
            'DLLがプロセス空間にロードされた時に実行されます。
            _System_StartupProgram()
            DllMain = 1
    End Select
End Function
 
Function cmdfunc(cmd As Long) As Long
    ' 実行処理 (命令実行時に呼ばれます)
    '
    Dim a As Long
    exinfo->HspFunc_prm_next()          ' 次のコードを取得(最初に必ず必要です)
 
    Select Case cmd                     ' サブコマンドごとの分岐
        case &H00                       ' newcmd
            MessageBox(NULL, "メッセージボックス", "テスト", MB_OK)
        Case Else
            exinfo->HspFunc_puterror(HSPERR_UNSUPPORTED_FUNCTION)
    End Select
    cmdfunc = RUNMODE_RUN
End Function
 
Sub Export hsp3cmdinit(info As *HSP3TYPEINFO)
    ' プラグイン初期化 (実行・終了処理を登録します)
    '
    hsp3sdk_init( info )                    ' SDKの初期化(最初に行なって下さい)
    info->cmdfunc = AddressOf(cmdfunc)      ' 実行関数(cmdfunc)の登録
'	info->reffunc = AddressOf(reffunc)      ' 参照関数(reffunc)の登録
'	info->termfunc = AddressOf(termfunc)    ' 終了関数(termfunc)の登録
 
    /*
    ' イベントコールバックを発生させるイベント種別を設定する
    info->option = HSPEVENT_ENABLE_GETKEY
    info->eventfunc = AddressOf(eventfunc)  ' イベント関数(eventfunc)の登録
    */
End Sub