女生两个字的代号大全:.net 设置开机自启动

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 18:58:46
Const RunAtStartupKey As String = "Software\Microsoft\Windows\CurrentVersion\Run"

Public Shared Property RunAtStartUp() As Boolean
Get
Try
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(RunAtStartupKey)
Return CStr(key.GetValue("Clock", String.Empty)) <> String.Empty
Catch
' 如果发生异常,不做处理
End Try
End Get

Set(ByVal Value As Boolean)
Try
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(RunAtStartupKey, True)
If Value Then
key.SetValue("Clock", Application.ExecutablePath)
Else
key.DeleteValue("Sakura's reminder")
End If
Catch
' 如果发生异常,不做处理
End Try
End Set
End Property
用这种方法设置 启动时会提示
找不到文件 'D:\Documents and Settings\****\re.mdb'
****就是登陆操作系统的用户

但是直接运行程序或者通过添加快捷方式到启动菜单的方法时
都可以正常启动
正常的re.mdb就在程序所在的文件夹
这是怎么回事儿捏..?

连接字符串中用
Application.StartupPath() 就好了.........