DEFININDO REGISTROS DO WINDOWS

NICKOLASCARLOS 24/08/2014 17:15:43
#440672
A algum tempo atrás eu criei um tópico e recebi essa resposta:
Citação:


Abra o Regedit

Navegue até a chave HKEY_CURRENT_USER\Software\Classes

Clique com o botão direito do mouse na chave [Ô]Classes[Ô] e escolha [Ô]Novo\Chave[Ô]

O nome desta chave vai ser o nome do protocolo novo, então como exemplo vou chamar ela de [Ô]meuprotocolo[Ô]

Com a chave [Ô]meuprotocolo[Ô] selecionada clique com o botão direito em um lugar vazio na parte direita da janela (onde tem o valor (Padrão))

Escolha no menu o item [Ô]Novo\Valor da Cadeia de Caracteres[Ô]

Nomeie este novo valor como [Ô]URL Protocol[Ô], sem as aspas

Clique com o botão direito na chave [Ô]meuprotocolo[Ô] e escolha [Ô]Novo\Chave[Ô], nomeie ela como [Ô]shell[Ô], sem as aspas.

Clique com o botão direito na chave [Ô]shell[Ô] e escolha [Ô]Novo\Chave[Ô], nomeie ela como [Ô]open[Ô], sem as aspas.

Clique com o botão direito na chave [Ô]open[Ô] e escolha [Ô]Novo\Chave[Ô], nomeie ela como [Ô]command[Ô], sem as aspas.

Selecione a chave command e no lado direito da janela de dois cliques no valor [Ô](Padrão)[Ô]

Na janela que abre você deve colocar o caminho para o executável que quer ser iniciado da seguinte forma

[Ô]C:\Caminho\NomeDoExe.exe[Ô] [Ô]%1[Ô]



Alguem sabe com fazer isso usando somente o VB.Net?
PROFESSOR 25/08/2014 10:59:03
#440677
Veja este tópico de ajuda.
NICKOLASCARLOS 25/08/2014 17:17:54
#440696
Li, porém pela falta de conhecimento nessa area eu não consegui entender muito bem!
NICKOLASCARLOS 26/08/2014 14:05:09
#440705
PEGUDO 29/08/2014 10:47:32
#440774
Exemplo:
[txt-color=#007100][Ô][ô][ô] <summary>
[ô][ô][ô] Verifica se a chave de registro do programa existe. Se não existir, a mesma será criada
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks></remarks>[/txt-color]
Public Shared Sub verificaChaveRegistro()
    Try
        Dim vetor() As String = My.Computer.Registry.CurrentUser.GetSubKeyNames [txt-color=#007100][ô]Pega o nome de todas as pastas do HKEY_CURRENT_USER[/txt-color]
        Dim existe As Boolean = False

        For Each nome As String In vetor [txt-color=#007100][ô]Faz um loop entre o nome destas pastas[/txt-color]
            If nome = [txt-color=#e80000][Ô]point control[Ô][/txt-color] Then existe = True : Exit For [txt-color=#007100][ô]point control é o nemo da minha pasta no registro Você pode colocar o nome quer quiser[/txt-color]
        Next

        If Not existe Then My.Computer.Registry.CurrentUser.CreateSubKey([txt-color=#e80000][Ô]point control[Ô][/txt-color]) [txt-color=#007100][ô]Cria a pasta caso não exista[/txt-color]
        My.Computer.Registry.SetValue([txt-color=#e80000][Ô]HKEY_CURRENT_USER\point control[Ô][/txt-color],[txt-color=#e80000] [Ô]nome-chave[Ô][/txt-color], [txt-color=#e80000][Ô]valor-dentro-da-chave[Ô][/txt-color]) [txt-color=#007100][ô]Aqui eu crio uma chave, chamada: nome-chave,  dentro da pasta [Ô]point control[Ô] e insiro a string: valor-dentro-da-chave dentro dela[/txt-color]
    Catch ex As Exception
    End Try
End Sub
NICKOLASCARLOS 18/09/2014 17:47:22
#441342
Não entendi quaaaase nada!
NICKOLASCARLOS 15/10/2014 15:57:11
#441946
>>>><<<<
NICKOSOFT 15/10/2014 20:31:18
#441953
Se vc quer criar dentro do registro, tem q usar o final do ultimo codigo postado do if not existe then pra frente, esta sendo criado, a rotina antes testa se o valor existe ja, caso nao sera criado
Faça seu login para responder
Voltar