procedure TForm1.WriteMciConfig;
{定义一个过程,向ini文件写一些配置信息,
以便系统能调用相应驱动程序来播放文件,
注意:如果不这样做Mediaplay控件打开某
些扩展名的文件时会发生什么MCI初始化
错误,很多人相信已经吃过这个苦头}
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;
摘自陈经韬.........