操作文件的时候,可以独占。写入注册表时,可以用lock方法,但总是不算太好的
一个方法,不知道你为什么要锁定注册表呢?

解决方案 »

  1.   

    to ken_henderson(新丁) :具体点行吗?老兄.
    to GWFXP(影): 考虑到冲突,需要这样作,请问如何操作文件时独占,写注册表时有lock方法吗?
      

  2.   

    很抱歉,对注册表的锁定的方法我暂时还没找到,不过你提到的对文件的独占可以看看下面的例子,希望能有些帮助:
    procedure OpenForShare(const FileName: String);
    var
      FileHandle : Integer;
    begin
      FileHandle := FileOpen(FileName,mShareExclusive);
      if FileHandle > 0 then
        {valid file handle}
      else
        {Open error: FileHandle = negative DOS error code}
    end;