MakeHPI/Delphi/chapter3

  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

library jump;
 
uses
  hsp3plugin in '..\hsp3plugin.pas';
 
{$E hpi}
{$R *.res}
 
procedure func_jump;
var
  lbptr: PWord;                         // ラベルポインタ
begin
  lbptr := exinfo.HspFunc_prm_getlb;    // ラベルポインタを取得
  exinfo.HspFunc_call(lbptr);           // ラベルへgosubジャンプ
end;
 
//-------------------------------------------------------------------
//      コマンド受け取りファンクション
//-------------------------------------------------------------------
function cmdfunc(cmd: Integer): Integer; cdecl;
begin
  exinfo.HspFunc_prm_next;      // 次のコードを取得(必須)
 
  // サブコマンドごとの分岐
  case cmd of
    $00:
      func_jump;     // jump
    else
      exinfo.HspFunc_puterror(HSPERR_UNSUPPORTED_FUNCTION); // サポート外エラー
  end;
  Result := RUNMODE_RUN;
end;
 
//-------------------------------------------------------------------
//      プラグイン登録関数
//-------------------------------------------------------------------
procedure register_jump(info: PHSP3TYPEINFO); stdcall;
begin
  hsp3sdk_init(info);           // SDKの初期化(最初に行ってください)
  info.cmdfunc := cmdfunc;      // 実行関数(cmdfunc)の登録
end;
 
//-------------------------------------------------------------------
//      関数のエクスポート
//-------------------------------------------------------------------
exports
  register_jump;
 
begin
end.