Como usar RegObji.exe para copiar uma chave do registro por programação

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 297292
Sumário
Este artigo tem duas finalidades:
  1. Demonstre como usar RegObji.exe para copiar uma chave do Registro para outro local no registro.
  2. Demonstre como usar uma chave do registro que contém dados binários (especificados como tipo REG_BINARY) porque os exemplos que acompanham o RegObji.exe não demonstram como lidar com um valor binário do Registro.
O exemplo de código neste artigo não armazena o REG_BINARY valor. Se você precisar preservar um valor atribuindo a ele a uma variável, você pode armazenar os dados binários em uma variável de VARIANT tipo de dados.

O seguinte arquivo está disponível para download no Centro de download da Microsoft:
Para obter informações adicionais sobre como baixar arquivos de suporte da Microsoft, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
119591Como obter arquivos de suporte da Microsoft a partir de serviços online
Microsoft examinou esse arquivo em busca de vírus. Microsoft utilizou o mais recente software de detecção de vírus que estava disponível na data em que o arquivo foi publicado. O arquivo é armazenado em servidores com segurança avançada que ajudam a evitar qualquer alteração não autorizada no arquivo.
Mais Informações

Procedimento passo a passo

  1. Crie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
  2. No menu projeto , adicione um novo módulo padrão, Module1, para o projeto.
  3. No menu Project , clique em referências , selecione Classes de manipulação de registro (RegObji.exe) e em seguida, clique em OK .
  4. Adicione o seguinte código para Module1:
    Option ExplicitDim readReg As RegistryDim writeReg As RegistryDim keyExists As BooleanDim I As IntegerDim wKeys As RegKeyDim rKeys As RegKeyDim hiveR As RegKeyDim hiveW As RegKeyDim KeyToAdd As StringDim KeyToFind As StringPublic Sub main()KeyToAdd = "Testing"' The following key should be present on all systems.KeyToFind = "Microsoft\Direct3D\Drivers\Direct3D HAL"Set writeReg = New RegistrySet readReg = New RegistrySet readReg = New RegObj.RegistrySet writeReg = New RegObj.RegistrySet hiveR = readReg.RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\")Set rKeys = hiveR.SubKeys(KeyToFind)Set hiveW = writeReg.RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\")For I = 1 To hiveR.SubKeys.Count    If hiveR.SubKeys(I).Name = KeyToAdd Then        keyExists = True        Exit For    End IfNext' If the key already exists, do not modify it.' This may be changed as needed.If Not keyExists Then    hiveW.SubKeys.Add (KeyToAdd)    hiveW.SubKeys.Reset    Set wKeys = hiveW.SubKeys(KeyToAdd)    For I = 1 To rKeys.Values.Count        wKeys.Values.Add rKeys.Values(I).Name, rKeys.Values(I).Value, _           rKeys.Values(I).Type    NextEnd IfEnd Sub					
  5. No menu Project , clique em Propriedades de Projeto1 e altere o objeto de inicialização para Sub Main.
  6. Execute o projeto.
  7. Para verificar se uma chave chamada teste é criada em HKEY_LOCAL_MACHINE\Software , execute o Regedit.exe. Convém remover a chave de teste quando tiver terminado.
RegObj.dll

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 297292 - Última Revisão: 08/05/2004 20:01:36 - Revisão: 3.4

Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition

  • kbmt kbdownload kbdownload kbcodesnippet kbdll kbfile kbhowto kbregistry KB297292 KbMtpt
Comentários