Registro Windows..vb

[Guest - Paulo -]

Gostaria de saber se há algum outro jeito além do savesettings de gravar um valor no registro do windows e depois pegar esse valor....

como por exemplo esse que poe o programa no startup do windows

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe"

Obs.. só que eu quero para gravar um valor e mais tarde o meu programa pega esse valor do registro....

Valeu...

[Graymalkin]

Gostaria de saber se há algum outro jeito além do savesettings de gravar um valor no registro do windows e depois pegar esse valor....

como por exemplo esse que poe o programa no startup do windows

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe"

Obs.. só que eu quero para gravar um valor e mais tarde o meu programa pega esse valor do registro....

Valeu...

Essa já é uma outra maneira, sem ser com o SaveSettings... então do que precisas, exatamente?

Abraços,

Graymalkin

[Guest - Paulo -]

é que pelo savesettings ele salva o valor jahnuma chave especifica do VB, e eu não queria isso.....

Entendeu...?

Daria pra fazer isso de outro jeito?

[Graymalkin]

é que pelo savesettings ele salva o valor jahnuma chave especifica do VB, e eu não queria isso.....

Entendeu...?

Daria pra fazer isso de outro jeito?

O código...

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & "Desktop", App.Path & "\" & App.EXEName & ".exe"

... *já* é uma *outra* maneira de se fazer isso. Você mesmo está dando o exemplo do que está pedindo (ou seja, você *já* tem a resposta), por isso ainda não entendi o que você quer...

Abraços,

Graymalkin

[Guest - Paulo -]

Esse código é para criar uma chave no registro...isso eu já sei...

não sei como faço para depois poder pegar o valor que está nessa chave ....

e tb não sei como faço para apagar uma chave do registro..só sei como criar...entendeu???

[Guest Guest]

To meio sem tempo para pesquisar , mas você pode tentar fazer uma busca em RegDeleteKey e RegOpenKey , são chamadas a API do Windows que faz a função que você procura.

[Graymalkin]

Esse código é para criar uma chave no registro...isso eu já sei...

não sei como faço para depois poder pegar o valor que está nessa chave ....

e tb não sei como faço para apagar uma chave do registro..só sei como criar...entendeu???

Ah, agora sim entendi o que você quer. Bom, se "RegWrite" serve para escrever uma chave no registro ("write" = "escrever") é bastante plausível imaginar que exista um "RegRead" ("read" = "ler"). Pois, então:

Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
v = Reg.RegRead("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\Desktop")
msgbox v

Certo?

Graymalkin