unt_pheart.pas

WAV录音机

unit Unt_pheart;

interface

uses
  Windows;

procedure WriteMciConfig;

implementation

uses Unt_main;

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.