Jump to content
RafaelFranckilin

Iniciar programa com o windows

Recommended Posts

RafaelFranckilin

Pessoal, eu preciso colocar meu programa para iniciar junto com o windows, mas meu programa tem um arquivo de configuração (app.config), como eu faço?

agradeço desde já.

Share this post


Link to post
Share on other sites
M6

Para arrancar com o Windows a melhor solução passa por criares um serviço que arranque com o sistema operativo.
Quando tens uma aplicação, em especial se tiver GUI, terás de ter um utilizador autenticado no sistema, se tal for possível, podes colocar na pasta de arranque/start up.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
RafaelFranckilin

Na verdade eu gostaria que ele iniciasse com o windows apenas uma vez, eu consegui fazer isso adicionando uma chave no registro nesse caminho "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce", mas ele não encontra o arquivo de configuração (app.config).

Share this post


Link to post
Share on other sites
programadorvb6
' Botão para iniciar programa com windows
Public Sub AdicionarAplicacaoAoIniciar()
        Try
            Using key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
                key.SetValue(caminho, """" + Application.ExecutablePath + """")
            End Using
        Catch
            Throw
        End Try
 End Sub

' Para desactivar arranque com o windows

Public Sub RemoverAplicacaoAoIniciar()
  Try
       Using key As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
	key.DeleteValue(caminho, False)
       End Using
  Catch  
      Throw
  End Try
End Sub

Private Sub btnIniciarApp_Click(sender As Object, e As EventArgs)
	Try
		AdicionarAplicacaoAoIniciar()
	Catch ex As Exception
		MessageBox.Show("Erro " + ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

Private Sub btnRemoverAppRegistro_Click(sender As Object, e As EventArgs)
	Try
		RemoverAplicacaoAoIniciar()
	Catch ex As Exception
		MessageBox.Show("Erro " + ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.[Error])
	End Try
End Sub

 

Edited by programadorvb6

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.