App abrir junto com o Windows

[tiagocaus 1]

Olá Pessoal,

Estou tentando fazer com que esse app que uns amigos me ajudaram a fazer abrir junto com o windows, mas não estou conseguindo, irei postar meu COD para vcs verem o que estou fazendo de errado:

 

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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 RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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
Dim baseURL As String

Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1

Public Sub GravarValorRegistro(Chave As Long, Caminho As String, Descricao As String, Dados As String)
	Dim Retorno As Variant
	RegCreateKey Chave, Caminho, Retorno
	RegSetValueEx Retorno, Descricao, 0, REG_SZ, ByVal Dados, Len(Dados)
	RegCloseKey Retorno
	GravarValorRegistro HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "TeiaSat", "{app}\TeiaSat.exe"

End Sub

Public Sub DeletarValorRegistro(Chave As Long, Caminho As String, Descricao As String)
	Dim Retorno As Variant
	RegCreateKey Chave, Caminho, Retorno
	RegDeleteValue Retorno, Descricao
	RegCloseKey Retorno
	DeletarValorRegistro HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "TeiaSat"

End Sub

Private Sub Form_Load()
	baseURL = "http://teiasat.com.br/systray/"
	WebBrowser1.Navigate baseURL + "index.php"
End Sub

Private Sub Form_Unload(Cancel As Integer)
'o form unload pega o fechamento da janela
'então quando eu fechar, ele irá comparar se o
'tryicon está visível ou não
'estar visível, significa que o programe está ao lado do relógio
'então coloquei cancel = true, para que o fechamento seja cancelado
'me.hide fará o programa sumir, mas não fechar
'e trayicon.visible para que o seu ícone apareça ao lado do relógio

If TrayIcon1.Visible = False Then
	Cancel = True
   
	Me.Hide
   
	TrayIcon1.Visible = True
End If

End Sub

Private Sub SubABRIR_Click()
'isso é um menu, que fará seu programa abrir novamente
'tornando o trayicon invisível de novo, para sumir do lado do relógio

Me.Show
   
TrayIcon1.Visible = False

End Sub
Private Sub SubSobre_Click()
Form2.Show

End Sub

Private Sub SubFECHAR_Click()
'aqui fechará seu programa. note que aqui realmente consiguirá fechar
'porque o trayicon estará vísivel, então a condição do form unload
'será falsa e o cancel será false

Unload Me

End Sub

Private Sub TrayIcon1_MouseDown(ByVal Button As Integer)
'aqui quando você clica com o botão direito do mouse sobre o ícone
'ao lado do relógio, abrirá um menu que criei

If Button = 2 Then
	PopupMenu menu1
End If

End Sub

'para criar um menu, vá em tools e menu editor

[Claudio Neto 3]

Olá Tiago.

 

Repare que tem mais coisas no tópico que você deixou de fazer, por isso não está funcionando.

 

Você precisa chamar a função para gravar a chave de registro.

 

Dê uma lida no tópico todo, você verá que ele diz onde você deve colocar a chamada da função e como deve faze-la.

 

Se depois disso ainda tiver dúvidas, poste de novo.

 

Mas peço que tente fazer sozinho. Será bom para você.