[Resolvido]Como configurar aplicativo para inicializar com o windows

Olá pessoal!

Estou desenvolvendo um programinha e gostaria de criar uma rotina que possibilitasse o usuario final definir
se o programa deve ou não ser executado sempre que o Windows for inicializado.

Se alguém souber como fazer isso e puder me ajudar, ficarei muito grato.


Abraço!

Try the following:

Crie uma tabela tblConfig por exemplo com um campo Iniciado por exemplo e coloque no "Ao carregar" do formulário:

Dim Reg As Object

If IsNull("Iniciar", "tblConfig", "Iniciado='" & "Sim" & "'") Then
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Nome para o ícone", CurrentProject.Path & CurrentDb.Name
CurrentDb.Execute "INSERT INTO tblConfig(Iniciado) VALUES('Sim')"
Else
End If

O propósito da tabela é controlar se o bd já foi iniciado uma vez para poder correr o código que configura o Iniciar do Windows. Caso não, executa a rotina, caso sim, não precisa mais.

Olá Criquio!

Obrigado pela atenção.

Porém, acho que não entendi muito bem a sua proposta.

Onde exatamente o usuario definiria se quer ou não que o programa seja executado
ao iniciar o windows?

Na pressa, ficou meio errado o código acima. Segue a forma correta:

Dim Reg As Object

If IsNull(DLookup("Iniciado", "tblConfig", "Iniciado='" & "Sim" & "'")) Then
If MsgBox("Deseja que o programa seja iniciado com o Windows?", vbYesNo + vbQuestion, "Iniciar com o sistema") = vbYes Then
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Nome para o atalho", CurrentProject.Path & CurrentDb.Name
CurrentDb.Execute "INSERT INTO tblConfig(Iniciado) VALUES('Sim')"
Set Reg = Nothing
Else
End If
Else
End If

Valew Criquio!

Vou fazer o teste e retorno com o resultado.

Criquio,

Fiz conforme voce colocou mas não deu certo.

O programa não abre ao inicializar o windows.

Criei a tabela tblConfig com o campo Iniciado e inseri o código no "Ao carregar" do formulario
de inicialização. Abri o programa e não apareceu a MsgBox de confirmação. Então, inseri no campo Iniciado
o valor "Sim". Abri novamente o programa e fechei. Reiniciei o windows e o programa não abriu após a inicialização do
windows.

Abraço!

Criquio,

Deixei o campo Iniciado vazio e abri o programa. Apareceu a MsgBox de confirmação, cliquei em "Sim" e o campo passou a ficar com esse valor.

Porém, reiniciei o windows novamente e o programa não abriu. Também notei que não foi criado o atalho conforme o código propõe.

Tente assim:

Dim Reg As Object

If IsNull(DLookup("Iniciado", "tblConfig", "Iniciado='" & "Sim" & "'")) Then
If MsgBox("Deseja que o programa seja iniciado com o Windows?", vbYesNo + vbQuestion, "Iniciar com o sistema") = vbYes Then
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Nome para o atalho", CurrentDb.Name
CurrentDb.Execute "INSERT INTO tblConfig(Iniciado) VALUES('Sim')"
Set Reg = Nothing
Else
End If
Else
End If

Olá Criquio!

Muito obrigado pela grandiosa ajuda!

Fiz a alteração e funcionou perfeitamente. Com o campo "Iniciado" vazio, abri o programa e a MsgBox de confirmação foi exibida. Cliquei em "Sim", fechei o programa e reiniciei o windows. Após a inicialização o programa abriu automaticamente, exatamente como eu desejava.
Porém, ainda me restou uma duvida. Uma vez configurado para inicializar o programa com o windows, como eu faço para reverter (desativar a inicialização do programa com o windows)?

Complementando...

O ideal seria criar um formulario com um grupo de opção "Sim" e "Não", onde ao clicar em "sim" o programa ficasse configurado para inicializar com o windows, conforme o codigo já criado. E ao clicar em "não" o registro "Sim" no campo "Iniciado" fosse excluido, retornando-o vazio novamente. Ou seja, nesse caso acho que basta criar um codigo para a opção "Não".

Criquio,

Consegui criar um formulario para ativar/desativar a inicialização do programa com o windows. Criei os botões "Sim" e "Não". No evento "Ao clicar" do botão "Sim" inseri o codigo que voce criou e no botão "Não" inseri o codigo abaixo:

Const idx = "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\AgendaCCD"
______________________________________________________
Private Sub cmdNao_Click()
Dim strValor As String
On Error Resume Next
'zera a tabela tblConfig e o atalho no registro do Windows
strValor = "Iniciado = '" & "';"
CurrentDb.Execute "UPDATE tblConfig SET " & strValor
Set Reg = CreateObject("wscript.shell")
Reg.regDelete (idx)
Set Reg = Nothing
DoCmd.Close
End Sub
__________________________________________________________

Esse codigo eu adaptei de um codigo do Avelino Sampaio.
Funcionou. O campo "Iniciado" retornou vazio e o atalho no registro do windows foi deletado.
Porem, sempre que eu ativo a inicialização é criado uma nova linha na tblConfig para o campo "Iniciado".
Minha duvida agora é:
Como eu faço para que seja usada sempre a mesma linha do campo Iniciado sempre que eu ativar a inicialização?

Podemos fazer isso de uma outra forma, sem necessidade de tabela, usando os métodos, Read, Write e Delete para ler, escrever e deletar a entrada no registro. Para isso, coloque um botão de nome btnHabilitar por exemplo e no evento "Ao carregar" do formulário:

On Error GoTo TErro
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Sit = Reg.RegRead("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\Nome do Atalho")
Set Reg = Nothing
TErro:
If Err.Number = -2147024894 Then
Me.btnAbilitar.Caption = "Habilitar"
Else
Me.btnAbilitar.Caption = "Desabilitar"
End If

Agora, no clique do botão, coloque:

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")

If Me.btnHabilitar.Caption = "Habilitar" Then
If MsgBox("Tem certeza que deseja habilitar a inicialização automática?", vbYesNo + vbQuestion, "Inicialização") = vbYes Then
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Nome do atalho", CurrentDb.Name
Me.btnHabilitar.Caption = "Desabilitar"
Else
End If
ElseIf Me.btnHabilitar.Caption = "Desabilitar" Then
If MsgBox("Tem certeza que deseja desabilitar a inicialização automática?", vbYesNo + vbQuestion, "Inicialização") = vbYes Then
Reg.RegDelete "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Nome do atalho"
Me.btnHabilitar.Caption = "Habilitar"
Else
End If
End If

Set Reg = Nothing

Criquio,

Fiz conforme voce sugeriu e funcionou perfeitamente.

Muito obrigado por mais essa impagavel ajuda!

Abraço!

O forum agradece o retorno. Sucesso!