HSPのコード一覧 | ページ 11 | Codetter（こーどったー）

; oncmd命令でジャンプしたラベル中でエラーが起きると
; HSPエラーダイアログボックスが表示されずに
; ランタイムエラーが表示される
oncmd gosub *label,3	; wm_move:ウィンドウを移動したら割り込まれる
stop

#define IID_IWMMetadataEditor 	"{96406bd9-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMMetadataEditor2 	"{203cffe3-2e18-4fdf-b59d-6e71530534cf}"
#define IID_IWMHeaderInfo		"{96406bda-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMHeaderInfo2		"{15cf9781-454e-482e-b393-85fae487a810}"
#define IID_IWMHeaderInfo3		"{15CC68E3-27CC-4ecd-B222-3F5D02D80BD5}"

#define percentage(%1) "" + %1 + "％"	// 通る
#define percentage(%1) "" + %1 + "%"	// コンパイルエラー

	mes percentage(30)

#include "a2d.hsp"


	; 仮想イメージ 0 を作成
	alCreateImage 0, 640, 480

#include "user32.as"
#include "kernel32.as"
#include "shell32.as"
// HString
#module mHString

#module
/**/#deffunc Test
	mes "aaa"
return
#global

#module
#deffunc _test /*これダメ*/ var p1, int p2, var p3
return p1+p2+p3
#deffunc Test
	x1 = 1

	sz = 32
	buffer 1, sz, sz
	font msgothic, sz
	color
	boxf

#packopt name "test1"

#uselib "Propsys"
#func InitPropVariantFromStringVector "InitPropVariantFromStringVector" wptr, int, sptr

#packopt name "test1"
#uselib "shell32"
#func SHGetPropertyStoreForWindow "SHGetPropertyStoreForWindow" sptr, sptr, sptr
#func GetCurrentProcessExplicitAppUserModelID "GetCurrentProcessExplicitAppUserModelID" wptr
#func SetCurrentProcessExplicitAppUserModelID "SetCurrentProcessExplicitAppUserModelID" wstr