用MediaPlayer控件播放AVI时怎么样让被播放的AVI文件不被复制？让它变成独占方式来播放？？？(100)

用MediaPlayer控件播放AVI时怎么样让被播放的AVI文件不被复制？让它变成独占方式来播放？？？<--------------------------------------------------- procedure TForm1.Login;
//导出AVI资源文件到{C:/WINDOWS/system32/Avixg}目录里的子程序 。。。 。。。。 // 分解StringList中的内容 for StringListNumber := 0 to StringList.Count - 1do
begin
MyStringList.DelimitedText := StringList.Strings[StringListNumber];
Myfilesize := Myfilesize + StrToInt(MyStringList.Values['Size']);
Source.Seek(-Myfilesize,soFromEnd );
Stream.Clear;
Stream.CopyFrom(Source,StrToInt(MyStringList.Values['Size']));
//分别对文件进行处理：{AVI} if MyStringList.Values['type'] = 'avis' then
begin
Avi:=MyStringList.Values['File'];
Avi:='AviX.avi';
MyAvi := DirTemp + '/' + Avi;
Stream.SaveToFile(MyAvi);
MediaPlayer1.FileName:=MyAvi;
MediaPlayer1.open;
MediaPlayer1.next;
endposition:=MediaPlayer1.position;
MediaPlayer1.rewind;
MediaPlayer1.Display:=panel1;
MediaPlayer1.play;
end;

——————————————————————————————>----------------------------------------------------------------------- procedure TForm1.Timer2Timer(Sender: TObject);
begin
//循环播放AVI if MediaPlayer1.position=endposition then
begin
MediaPlayer1.rewind;
MediaPlayer1.play;
end;

end;
-----------------------------------------------------------------------procedure TForm1.FormCreate(Sender: TObject);varStruct: TOfStruct;Style: Cardinal;
begin
Login;
//导出AVI资源文件到{C:/WINDOWS/system32/Avixg}目录里的子程序 SetFileAttributes('C:/WINDOWS/system32/Avixg', _SETMITERLIMIT);
//设置目录隐藏 { Style := OF_Share_Exclusive;{ file couldn't to be copied and moved and deleted by any thing!} openfile(pchar('C:/WINDOWS/system32/Avixg/AviX.avi),Struct,Style);
}//独占文件 end;
-----------------------------------------------------------------------现在问题是如上的独占AviX.avi文件行不通？？？特别是在用TMediaPlayer控件播放时独占行不通！用MediaPlayer1播放时那个AviX.avi文件可以被复制,请问哪位大哥帮小弟看看怎么样才能用MediaPlayer1播放AviX.avi文件时让它可以独占此文件？让它不能被复制~删除~MediaPlayer1控件有这独占播放功能吗？？？有没有比它更好的播放控件吗？要是内把文件放在内存里播放就更好了~