【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-Upheart.pas,希望本篇文章对您学习有所帮助。
unit Upheart;
interface
uses
Windows;
procedure WriteMciConfig;
implementation
uses Umain;
procedure 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;
end.