sábado, 3 de setembro de 2011

Iniciar aplicação com o Windows

Para iniciar a aplicação com o Windows e colocar opção para o usuário marcar em uma checkbox, insira os códigos abaixo:

Antes da declaração da classe, coloque:

Imports Microsoft.Win32

Em form_Load, onde o há o checkbox, coloque:

Try
      Using
key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            If key.GetValue(My.Application.Info.Title) Is My.Application.Info.DirectoryPath & "\" & My.Application.Info.Title & ".exe" Then
                 
CheckBox1.CheckState = CheckState.Checked
            Else
                 
CheckBox1.CheckState = CheckState.Unchecked
            End If
      End Using
Catch
ex As Exception
      CheckBox1.CheckState = CheckState.Unchecked
Finally
      My
.Computer.Registry.CurrentUser.Close()
End Try

Este código irá verificar se já existe a chave no registro para sua aplicação iniciar com o windows, se sim irá marcar o CheckBox1, se não deixará desmarcado.

Coloque o código a seguir no procedimento que salva as configurações de sua aplicação:

Try
      If
CheckBox1.CheckState = CheckState.Checked Then
            My
.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", My.Application.Info.Title, My.Application.Info.DirectoryPath & "\" & My.Application.Info.Title & ".exe")
      Else
            Using
key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                  key.DeleteValue(My.Application.Info.Title)
            End Using
      End If
Catch
End Try

Este código salvará no registro a informação para sua aplicação se o CheckBox1 estiver marcado ou deletará se não.

Simples, não?

2 comentários:

  1. Ajudou muito, obrigado.
    Só não entendi onde eu digito o segundo código :Coloque o código a seguir no procedimento que salva as configurações de sua aplicação

    ResponderExcluir