sample20.hsp

sample\hspdsp\sample20.hsp » Plain Format

// Sample20.hsp インストール済みのDirectShowフィルターを取得

#include "hspdsp.as"
#include "gdi32.as"

	dsp_Init
	sdim val,100000	;大きめにバッファーを確保してください。
	dsp_FilterList val

	// ↑これだけでフィルターの一覧が取得できますが、
	// 面白くないので リストを名前順でソートします。

	// ソート可能なリストボックス
	; http://lhsp.s206.xrea.com/hsp_object4.html
	
	winobj "listbox","",0x0200,0x50200001|0x02,640,480
	hListbox=objinfo(stat,2)
	
	GetStockObject 17
	sendmsg hListbox, 0x30, stat

	// 項目を追加
	
	notesel val
	sdim tmp,128
	
	repeat notemax
		noteget tmp,cnt
		sendmsg hListbox, 0x0180, , tmp
	loop

stop