社区 › AutoCAD.net/VB.net/C# 编程技术 › 怎样把文件添加到启动组？

guohq 发表于 2015-7-24 08:34:45

怎样把文件添加到启动组？

怎样通过编程的方式将文件添加到启动组？

雪山飞狐_lzh 发表于 2015-7-24 19:07:34

写入注册表 kean有相关的例子

guohq 发表于 2015-7-25 22:16:54

请老师给个链接！

雪山飞狐_lzh 发表于 2015-7-27 22:37:34

置顶的kean专题

hnzgs 发表于 2015-8-10 11:08:36

    ''' <summary>
    ''' 让程序随CAD自动启动
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub RegisterMyApp()

      '获得 AutoCAD 应用程序注册表键
      Dim sProdKey As String = HostApplicationServices.Current.RegistryProductRootKey
      'Dim sAppName As String = "MyApp"
      Dim sAppName As String = My.Application.Info.AssemblyName

      Dim regAcadProdKey As RegistryKey = Registry.CurrentUser.OpenSubKey(sProdKey)
      Dim regAcadAppKey As RegistryKey = regAcadProdKey.OpenSubKey("Applications", True)

      '检查“MyApp”键是否存在
      Dim subKeys() As String = regAcadAppKey.GetSubKeyNames()
      For Each sSubKey As String In subKeys
            '' 如果已经存在就退出If the application is already registered, exit
            If (sSubKey.Equals(sAppName)) Then
                '删除已经添加
                UnregisterMyApp()
                'MsgBox("已经添加了！", MsgBoxStyle.Exclamation, "提示")
                'regAcadAppKey.Close()
                'Exit Sub
            End If
      Next

      '' 获得模块的位置   Get the location of this module
      Dim sAssemblyPath As String = Assembly.GetExecutingAssembly().Location

      '' 注册应用程序Register the application
      Dim regAppAddInKey As RegistryKey = regAcadAppKey.CreateSubKey(sAppName)
      regAppAddInKey.SetValue("DESCRIPTION", sAppName, RegistryValueKind.String)
      regAppAddInKey.SetValue("LOADCTRLS", 14, RegistryValueKind.DWord)
      regAppAddInKey.SetValue("LOADER", sAssemblyPath, RegistryValueKind.String)
      regAppAddInKey.SetValue("MANAGED", 1, RegistryValueKind.DWord)

      regAcadAppKey.Close()
    End Sub

    ''' <summary>
    ''' 删除程序自启动
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub UnregisterMyApp()
      '' 获得 AutoCAD 应用程序注册表键Get the AutoCAD Applications key
      Dim sProdKey As String = HostApplicationServices.Current.RegistryProductRootKey
      'Dim sAppName As String = "MyApp"
      Dim sAppName As String = My.Application.Info.AssemblyName

      Dim regAcadProdKey As RegistryKey = Registry.CurrentUser.OpenSubKey(sProdKey)
      Dim regAcadAppKey As RegistryKey = regAcadProdKey.OpenSubKey("Applications", True)

      '' 删除应用程序键Delete the key for the application
      Try
            regAcadAppKey.DeleteSubKeyTree(sAppName)
      Catch ex As Exception
            MsgBox("已经取消了！", MsgBoxStyle.Exclamation, "提示")
      End Try

      regAcadAppKey.Close()
    End Sub

查看完整版本: 怎样把文件添加到启动组？