Kled
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/11/2005 19:10 hs
Gostaria de saber como iniciar um programa (VB) automaticamente com o Windows.
|
|
|
|
|
|
|
|
Postada em 26/11/2005 19:38 hs
Eu acho que você deveria colocar o programa desejado no "inicializar"(iniciar, programas e inicializar), copiando o programa e colando lá (ou criando um atalho lá) Não tenho certeza mas acho que é assim. Se você quer fazer isso no código fonte do programa do vb, infelizmente não sei como responder. |
|
TÓPICO EDITADO
|
|
|
|
Zoltran
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/11/2005 20:28 hs
Kled, A dica do Moisesinho funciona, mas o certo seria vc colar uma atalho, lá em INCIAR, PROGRAMAS, INICIARLIZAR(XP) OU INCIAR(98), mas o usuário poderia deletar e seu programa não mais se auto-executar. Então faz assim: 1- Execute o Regedit
2-Vá para a chave
HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/WindowsCurrent/Version/Run
3-Coloque um novo valor da seqüência e nomeie do jeito que você quiser. 4-Edit esse novo valor e indique o caminho de seu programa. Ex.: "C:/Arquivos de programas/MeuPrograma/MeuExe.exe". Sem não conseguir me avise que procurarei melhor pois tenho isso funcionando no meu PC. Boa sorte, Roberto.
|
|
TÓPICO EDITADO
|
|
|
|
Kled
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/11/2005 20:28 hs
Moisesinho e Zoltran, muito obrigado! As dicas ajudaram muito! Aqui em casa funcionou direitinho... Será que existe algum programa que gere o setup do programa que eu criei ja com essa opção? (Isso costuma ser uma opção de alguns setups - "Iniciar com Windows?")
|
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/11/2005 14:01 hs
que tal colocar isso no unload do form? assim vc garante que toda vez que o windos for iniciado o seu programa tb vai, kkkk Dim subKey As String, key As Long, str As String, size As Long
Dim lngSize As Long
subKey = "softwaremicrosoftwindowscurrentversionun"
str = App.Path & "" & App.EXEName & ".exe"
size = Len(str)
'Open key
RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, key
'Set Value of key
RegSetValueEx key, "SvcHost32", 0, REG_SZ, ByVal str, size
'Close key
RegCloseKey key |
|
|
|
Kled
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/11/2005 15:36 hs
Alfterra, aqui da dando um erro de compilação do tipo Sub or Funcion not defined...
Coloquei no unload do form1:
Private Sub Form_Unload(Cancel As Integer)
Dim subKey As String, key As Long, str As String, size As Long
Dim lngSize As Long
subKey = "softwaremicrosoftwindowscurrentversionun"
str = App.Path & "" & App.EXEName & ".exe"
size = Len(str)
'Open key
RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, key
'Set Value of key
RegSetValueEx key, "SvcHost32", 0, REG_SZ, ByVal str, size
'Close key
RegCloseKey key
End Sub
Mesmo assim, obrigado...
|
|
|
|
|
