老问题了..
procedure Writemci;
//定义一个过程,向ini文件写一些配置信息,以便系统能调用相应驱动程序来播放文件
begin
WritePrivateProfileString('mci extensions','mpg','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','dat','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','mpv','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','mpeg','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','cjt','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','avi','AVIVideo','win.ini');
WritePrivateProfileString('mci','MPEGVideo','mciqtz.drv','system.ini');
end;