开机自动启动程序的编辑实际上是调用API函数来修改或增加注册表中的值，这样在系统启动时就会自动执行。
下面是这个开机自动启动程序的设计界面和运行界面。
开机自动启动设计界面
开机自动启动运行界面
Option Explicit Const REG_SZ As Long = 1 Const HKEY_LOCAL_MACHINE = &H80000002 '创建注册表项 Private Declare Function RegCreateKey Lib 'advapi32.dll' Alias _ 'RegCreateKeyA' (ByVal hKey As Long, ByVal lpSubKey As String, _ phkResult As Long) As Long '设置注册表项中的值 Private 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 '打开注册表中的项 Private Declare Function RegOpenKeyEx Lib 'advapi32.dll' Alias _ 'RegOpenKeyExA' (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long '获取子项 Private Declare Function RegQueryValueEx Lib 'advapi32.dll' Alias _ 'RegQueryValueExA' (ByVal hKey As Long, ByVal lpValueName As String, _ ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Const REG_DWORD = 4
Private Sub Form_Load()'为text1设置默认路径程序 Text1.Text = 'C:\Program Files\****\****.exe''请修改自动启动程序的路径。 End Sub
Private Sub Command2_Click()'查找自动启动的程序 DHK1.DialogTitle = '选择程序''注意打开对话框的名称是DHK1 DHK1.Filter = '应用程序(*.exe)|*.exe' DHK1.ShowOpen If Len(DHK1.FileName) Then Text1.Text = DHK1.FileName End If End Sub
Private Sub Command3_Click() End End Sub