VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 自动装入注册设置
发表评论(0)作者:, 平台:, 阅读:17966, 日期:2000-03-12
假设有应用 myapp.exe 及一个注册文件 myapp.reg,下面的代码将自动装入注册设置。

Dim strFile As String

strFile = App.Path & "\myapp.reg"

If Len(Dir$(strFile)) > 1 Then

lngRet = Shell("Regedit.exe /s " & strFile, vbNormalFocus)

End If