Для
того чтобы программа загружалась при каждом запуске
Windows всего навсего надо прописать название программы
в реестре по следующему пути HKEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\Run\.
Далее следует как это сделать на Visual Basic.
1. Создайте новый проект.
2. Присоедините к проекту стандартный
модуль RegKeys.bas, находящийся на диск, если же у вас
нет диска или вы не нашли этот модуль скачать пример
к данной хитрости.
3. Добавьте в модуль:
Private Declare Function RegDeleteValue Lib "advapi32.dll"
Alias "RegDeleteValueA" (ByVal hKey As Long,
ByVal lpValueName As String) As Long
Public Sub Write_Reg()'функция
прописывает нас в реестре
Dim FullPathAndFileName As String
FullPathAndFileName = App.Path
If Right(App.Path, 1) <> "\" Then FullPathAndFileName
= FullPathAndFileName & "\"
FullPathAndFileName = FullPathAndFileName & App.EXEName
'Прописываем себя в реестр (FullPathAndFileName As String)
UpdateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run",
App.Title, FullPathAndFileName
End Sub
Public Sub Del_Reg()'функция
удаляет нас из реестре
Dim rc As Long
Dim hKey As Long
rc = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\windows\CurrentVersion\Run",
0, KEY_ALL_ACCESS, hKey)
RegDeleteValue hKey, App.Title
End Sub 4. И теперь чтобы программа
запускалась при запуске Windows достаточно вызвать функцию
Write_Reg.
Для непонятливых смотрите более подробный пример: Trick_4(Скачать)