如何使自己编写的程序可以开机自动启动并可以取消？

[zhangc86]

用VB.net做的程序

[zwnylsf]

以前我做过这样的程序；
我用的是shell函数;调用shutdown.exe来实现
Shell （"shudown.exe -l"）表示注销系统
Shell （"shudown.exe -r"）表示关闭并且重启系统
Shell （"shudown.exe -s"）表示关闭系统
Shell （"shutdown.exe -a"）表示取消上面的入注销\重启\关闭等命令
同时，你可以设置延迟；比如60秒后系统关机，代码如下
Shell ("shutdown.exe -s -t 60"),-t XXX就是延迟时间。

如果你使用了timer控件，就可以做一个定时关机\重启\注销的程序了。

[tjficcbw]

修改注册表，添加启动项，就行了

[tjficcbw]

建立一个文本文件，存储为run.reg
内容为


Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"mypro"="C:\\tt.exe"

[zwnylsf]

晕，理解错了，实在是不好意思啊。如果要是使程序开机自动加载，做成服务和进行修改注册表都可以实现。
一般只要使用后者就可以了。
参考代码：
1.用注册表
如添加1.exe
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
新建--字符串值--名字：1 --数值数据 输入程序完整路径,如：C:\WINNT\system32\1.exe
代码：
dim strstring as string
dim keyhand as long
dim r as long
strstring = app.path & "\" & app.exename & ".exe"
r = regcreatekey(hkey_local_machine, "software\microsoft\windows\currentversion\run", keyhand)
r = regsetvalueex(keyhand, "clock", 0, reg_sz, byval strstring, len(strstring))
r = regclosekey(keyhand)

2.做成服务，这个比较麻烦，你可以上网查查

[wzuomin]

修改注册表方法-：

Public Function RunWhenStart(ByVal Started As Boolean, Optional ByVal IsSetValue As Boolean = True) As Boolean
        Dim State As Boolean = False
        Dim HKLM As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
        Dim Run As Microsoft.Win32.RegistryKey = HKLM.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
        Try
            If IsSetValue Then
                If Started Then
                    Run.SetValue("Test", Application.ExecutablePath)
                Else
                    Run.DeleteValue("Test")
                End If
            Else
                State = (Run.GetValue("Test", "") <> "")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        Finally
            HKLM.Close()
        End Try
        Return State
    End Function

Windows服务=：
http://blog.csdn.net/wzuomin/archive/2007/06/18/1656334.aspx