1 添加单元IniFiles
2 申明变量为文件流 protectFile:TFileStream;
3 protect 路径const = 'c:\xo.ini';
4 用独占方式打开 protectFile:=TFileStream.Create(protect,fmShareExclusive);
5 释放 protectFile.Free;
1 添加单元IniFiles
2 申明变量为文件流 protectFile:TFileStream;
3 protect 路径const = 'c:\xo.ini';
4 用独占方式打开 protectFile:=TFileStream.Create(protect,fmShareExclusive);
5 释放 protectFile.Free;
转载于:https://www.cnblogs.com/onionhacker/p/3537188.html