自前でコーデック選択ダイアログを出してしまおう作戦
#include "hspcv.as"
#uselib "msvfw32.dll"
#func ICCompressorChoose "ICCompressorChoose" int,int,int,int,int,str
#func ICCompressorFree "ICCompressorFree" int
dim compvars,16:compvars=64
ICCompressorChoose hwnd,0x08,0,0,varptr(compvars),"ビデオの圧縮"
if stat {
sdim fourcc,64
memcpy fourcc,compvars.4,4,0,0
mes fourcc
/*
//サンプルと同じ
cvload "bgsamp.jpg",0
cvbuffer 1,640,480
// 第2引数をcompvars.4とする
cvmakeavi "test.avi",compvars.4,0,0
repeat 360
cvcopy 1,0,0,0
cvrotate cnt,1,0,0,,1
cvputavi
cvgetimg 1
redraw
await 20
loop
cvendavi
title "OK"
*/
}
//使い終わったら開放
ICCompressorFree varptr(compvars)