不要声明的。
uses mmsystem 就可以了 ,因为在mmsystem单元中以声明了此api使用如下：
mcisendstring(pchar('setaudio tt stream to '+inttostr(i),nil,0,handle);
mcisendstring(pchar('play tt notify'),nil,0,handle);//tt是打开名
mcisendstring(pchar('open '+filename+' alias tt style child parent '+inttostr(panel1.handle)+' wait'),nil,0,handle);
uses mmsystem 就可以了 ,因为在mmsystem单元中以声明了此api使用如下：
mcisendstring(pchar('setaudio tt stream to '+inttostr(i),nil,0,handle);
mcisendstring(pchar('play tt notify'),nil,0,handle);//tt是打开名
mcisendstring(pchar('open '+filename+' alias tt style child parent '+inttostr(panel1.handle)+' wait'),nil,0,handle);
谢谢