问题描述:
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() 就好了.........