〜 メディア 〜
ダイアログ音を再生 (要USER32.DLL) 
ダイアログボックスが表示される時に「ポーン」とビープ音が鳴りますが、
その音を再生できるＡＰＩ関数MessageBeepのサンプルです。



MB_OK0x00000000一般の警告音


MB_ICONHAND0x00000010システムエラー


MB_ICONQUESTION0x00000020メッセージ(問合わせ)


MB_ICONEXCLAMATION0x00000030メッセージ(警告)


MB_ICONASTERISK0x00000040メッセージ(情報)


INFINITE0xFFFFFFFF単純なビープ音



尚、コントロールパネル「サウンド」で設定されたサウンドを再生できない場合、
システムのデフォルトサウンドを再生し、それも再生できない場合は標準ビープ音を再生します。
警告ビープ音を無効に設定されている場合は、何も再生されません。

beep ビープ音番号
ビープ音番号再生するビープ音の種類を番号で指定する。
０は一般の警告音
１はシステムエラー音
２はメッセージ(問い合わせ)
３はメッセージ(警告)
４はメッセージ(情報)
それ以外はスピーカー標準音

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

	ll_libload user32, "user32.dll"
	ll_getproc MessageBeep, "MessageBeep", user32

#module
#deffunc beep int
	mref type, 0
	typeno = 0x00000000, 0x00000010, 0x00000020, 0x00000030, 0x00000040, 0xffffffff
	if type < 0 | (type > 4) : prm = typeno.5 : else : prm = typeno.type
	ll_callfunc prm, 1, MessageBeep@
	return
#global

	sdim types, 16, 6
	types = "一般の警告音", "システムエラー", "問い合わせ", "警告", "情報", "スピーカー標準"
	repeat 6
		mes types.cnt
		beep cnt // 指定したビープ音を再生する
		wait 100
	loop

beep ビープ音番号
ビープ音番号再生するビープ音の種類を番号で指定する。
０は一般の警告音
１はシステムエラー音
２はメッセージ(問い合わせ)
３はメッセージ(警告)
４はメッセージ(情報)
それ以外はスピーカー標準音

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

#uselib "user32.dll"
#func  global MessageBeep "MessageBeep" sptr
#module
#deffunc beep int type
	typeno = 0x00000000, 0x00000010, 0x00000020, 0x00000030, 0x00000040, 0xffffffff
	MessageBeep typeno(limit(type, 0, 5))
	return
#global

	sdim types, 16, 6
	types = "一般の警告音", "システムエラー", "問い合わせ", "警告", "情報", "スピーカー標準"
	foreach types
		mes types.cnt
		beep cnt // 指定したビープ音を再生する
		wait 100
	loop