Как записать программу в автозапуск?
как зделать программму, чтобы она записыало себя в авто запуск и скопривало само себя. Зарание спасибо
Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя Вашей программы", "Путь к Вашей программы"
End Sub
Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя Вашей программы"
End Sub
Private Sub Form_Load()
Command1.Caption = "Записать"
Command2.Caption = "Стереть"
End Sub:cool:
[quote=Kairat]как зделать программму, чтобы она записыало себя в авто запуск[/quote]
а что поиск нельзя поюзать?
http://forum.codenet.ru/showthread.php?t=33632&highlight=%E0%E2%F2%EE%E7%E0%EF%F3%F1%EA
http://forum.codenet.ru/showthread.php?t=23463&highlight=%E0%E2%F2%EE%E7%E0%EF%F3%F1%EA
[quote=Kairat]скопривало само себя[/quote]
как файлы копировать в поиске тоже найти можно.