Данный программный код внедряет Ваше приложение в автозагрузку windows, занося его в реестр. Тем самым Ваше приложение всегда будет загружаться у пользователя при загрузке системы.
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
Comments ( 0 )