我就是在播放中改变语言的
用MCI编程,我看了神龙的SDK,和MCI是对应的,
...
mcisendstring(pchar('setaudio tt stream to '+inttostr(i),nil,0,handle);
mcisendstring(pchar('play tt notify'),nil,0,handle);
i:1--8
tt是打开名
mcisendstring(pchar('open '+filename+' alias tt style child parent '+inttostr(panel1.handle)+' wait'),nil,0,handle);