unfeltboy 发表于 2009-7-28 15:43:00

[求助]关于用VBA设置启动组的问题

<p>CAD的启动组信息是存在注册表中的，但我用VBA对注册表进行写入操作后注册表中可以看到内容，但是CAD关闭后注册表中的信息却没有了，不知为何？</p><p>Sub addStartup()<br/>Dim num As Variant<br/>Dim subKey As String<br/>subKey = "SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:804\Profiles\" &amp; ThisDrawing.Application.Preferences.Profiles.ActiveProfile &amp; "\Dialogs\Appload\Startup"<br/>num = QueryValue(HKEY_CURRENT_USER, subKey, "NumStartup")<br/>If IsNull(num) Or num = "" Or Int(num) = 0 Then<br/>&nbsp;&nbsp;&nbsp; CreateNewKey HKEY_CURRENT_USER, subKey<br/>&nbsp;&nbsp;&nbsp; SetKeyValue HKEY_CURRENT_USER, subKey, "1Startup", "\acad.lsp", REG_SZ<br/>&nbsp;&nbsp;&nbsp; SetKeyValue HKEY_CURRENT_USER, subKey, "NumStartup", "1", REG_SZ<br/>End If<br/>End Sub</p>

unfeltboy 发表于 2009-7-31 15:59:00

有没有高手帮帮忙啊<br/><br/>
页: [1]
查看完整版本: [求助]关于用VBA设置启动组的问题