老问题了
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');
WritePrivateProfileString('多媒体精灵','作者','陈经韬','smpg2000.ini');
WritePrivateProfileString('多媒体精灵','版本','2000版','smpg2000.ini');
end;