制作自动运行程序(由vb6推广引用)

---

这需要将要启动的应用程序路径写到注册表中具体的路径是：
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run
只需要在上面的路径下写一个键并为此键设置一个当前应用程序的路径即开机自载
具体的方法：
1、将下面这段代码就是将键Clock写到注册表中：
  '设置注册表内的RUN属性
  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、下面这段代码就是将注册表的Clock键删除
  '删除注册表内的RUN属性
  Dim keyhand As Long
  r = RegOpenKey(HKEY_LOCAL_MACHINE, "software/microsoft/windows/currentversion/run", keyhand)
  r = RegDeleteValue(keyhand, "Clock")
  r = RegCloseKey(keyhand)

——————————————————————————————————————————————
（以上是VB内容）

我写的方法：只是给部分代码，咔咔～～

  首先引用 using Microsoft.Win32; 这个是.NET框架在Microsoft.Win32名字空间中提供了两个类来操作注册表：Registry和Registr