如何在程序中锁定文件！

[CDMAA]

我现在做了一个程序，用到ACCESS数据库，因为我是Jet.OLEDB 4.0连的，但我发现我的程序运行后没有独占这个ACCESS库，别人是可以拷一个库将其进行覆盖的，能不能通过程序将该数据库文件进行锁定，那样就不用担心别人会将我的数据库文件进行覆盖了！

[CDMAA]

我是用Jet OLEDB 4.0连的，因为不知道怎样用MODE,所以没办法控制它的独占，谁能帮帮我呀！！！！！

[WnEunfn]

你搶先以獨佔模式打開這個文件，這樣別人就不能對此文件進行操作了……

[CDMAA]

怎么做！我不会呀！

[WnEunfn]

var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmOpenRead or fmShareExclusive or fmShareDenyWrit or fmShareDenyRead);