菜鸟的问题，大家一定要救我！！！！

Question

两种方法：1、在注册表中HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run 键下新建一个项目，里面指定你的EXE文件名，要带路径的全名，当你的EXE运行时再把这个键删除。
2、在启动项目组里建一个快捷方式。

Answer 1

1。把另一个exe放到启动中
或
2。在WIN.INI加一句 load=另一个exe
或
3.写到注册表中，注册表路径名称忘了，我找一下。

Answer 2

dbcontrols(泰山)　
songyangk(小草)　
你们的手脚真快啊。

Answer 3

重新启动用API函数如：ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)

Answer 4

blp(★★★):
声明:与脚没任何关系.

Answer 5

Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long 
说明 
在指定项下创建新项的更复杂的方式。在Win32环境中建议使用这个函数。如指定的项已经存在，则函数会打开现有的项 
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 
说明 
设置指定项的值 Sub Auto_Start(YesorNO As Boolean)
  Dim phkResult As Long 
  Dim Iresult As Long
  Dim ICreate As Long
  Dim SA As SECURITY_ATTRIBUTES
  Dim Path_str As String
  Dim Pro_name As String
    Path_str = App.Path + "\" + App.EXEName + ".exe"
  Pro_name = "Software\Microsoft\Windows\CurrentVersion\Run"
   Iresult = RegCreateKeyEx(HKEY_LOCAL_MACHINE, Pro_name, 0, "", _
         REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, ICreate)
  If YesorNO Then 
    Iresult = RegSetValueEx(phkResult, "6232405", 0, REG_SZ, ByVal Path_str, _
         CLng(Len(Path_str) + 1))
  Else      Iresult = RegDeleteValue(phkResult, "6232405")
  End If
  RegCloseKey phkResult
End Sub

Answer 6

Auto_Start可以实现对程序的自启动！！