独占方式打开 文件

1 添加单元IniFiles

2 申明变量为文件流   protectFile:TFileStream;

3 protect 路径const = 'c:xo.ini';

4 用独占方式打开     protectFile:=TFileStream.Create(protect,fmShareExclusive);

5 释放    protectFile.Free;