Dim RT As Boolean, v
If Is64bit() Then
v = GetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\Jet 4.0", "MaxLocksPerFile")
RT = SetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\Jet 4.0", "MaxLocksPerFile", 99999999)
Else
v = GetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 4.0", "MaxLocksPerFile")
If v = "Error" Then v = GetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet4.0", "MaxLocksPerFile")
RT = SetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 4.0", "MaxLocksPerFile", 99999999)
If Not RT Then RT = SetDWordValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet4.0", "MaxLocksPerFile", 99999999)
End If
If RT Then
MsgBox "设置成功"
Else
MsgBox "设置失败"
End If
2022-05-16 20:49:40
11KB
VB
注册表
1