function checksystem:boolean;
var
config:tinifile;
pc
char;
ss:string;
begin
result:=true;
getmem(pc,255);
GetWindowsDirectory(pc,255);
config:=tinifile.create(pc+'/Win.ini');
ss:=config.ReadString('mci extensions','dat','');
if ss<>'MPEGVideo' then
begin
config.WriteString('mci extensions','dat','MPEGVideo');
或
config.WriteString('mci extensions','dat','MPEGVideo2');
result:=false;
end;
freemem(pc,255);
config.Free;
end;
这个函数是使MediaPlayer支持*.dat这类文件的播放,
或直接在在win.ini 中的 [mci extensions] 段加上 dat=MPEGVideo 就可以了