修改注册表

修改注册表  

   [HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Jet/4.0/Engines/Jet4.0]

   将MaxLocksPerFile键值改为自己设置的值（如：9999999）。

代码实现：

function TfrmExport.EditRegister: Boolean;
var
  pReg: TRegistry;
  sRegKey, sRegItem, sValue: string;
  iValue, iNew: Integer;
begin
  Result := False;
  pReg := TRegistry.Create;
  try
    pReg.RootKey := HKEY_LOCAL_MACHINE;
    sRegKey := 'SOFTWAREMicrosoftJet4.0EnginesJet 4.0';
    
    if not pReg.OpenKey(sRegKey, false) then
    begin
      InfoDlg('键值[HKEY_LOCAL_MACHINESOFTWAREMicrosoftJet4.0EnginesJet 4.0]访问失败！');
      Exit;
    end;

    sRegItem := 'MaxLocksPerFile';
    iValue := pReg.ReadInteger(sRegItem);
    sValue := IntToStr(iValue);

    if not MyInputQuery('修改注册表', '请输入［MaxLocksPerFile］值：', sValue) then Exit;

    if not TryStrToInt(sValue, iNew) then
    begin
      InfoDlg('输入键值不正确，修改失败！');
      Exit;
    end;

    pReg.WriteInteger(sRegItem, iNew);
  finally
    pReg.CloseKey;
    pReg.Free;
  end;
end;