// Sample30.hsp インストール済みのDirectShowフィルターを取得
// ※このサンプルは 現在不具合が確認されており、環境によっては表示されません。
// Sample20.hsp はまともに動くと思うのでそちらを使ってください。

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

	title "DirectShow Filter List"
	
	sdim val,4096
	GetDSFilterName 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