Autor Tópico: Registro  (Lida 3037 vezes)

ajritta

  • Full Member
  • ***
  • Mensagens: 202
  • Karma: +0/-0
  • A Paz do Eu
Registro
« Online: MAR?O 29, 2008, 08:07:22 pm »
Amigos,
Gostaria de saber se alguém sabe como escrever no registro do Windows, utilizando o windev.
Por exemplo, para gravar alguma informação do programa, como um caminho, ou um número de série.

Desde já,
Agradeço a atenção.
Alex Ritta
Consultor em TI
Candiota/RS

A Paz do Eu

LuizAlfredo

  • Visitante
Re: Registro
« Responder #1 Online: MAR?O 30, 2008, 08:11:15 pm »
Existem várias funções específicas para o tratamento do registro do windows.

Segue a lista das funções em francês, que achei por aqui, mas elas tem também o correspondente em inglês. Dê uma olhada no help.

Fonctions de gestion de la base de registres

Fonctions pour utilisations avancées, qui sont ainsi rendues simples

RegistreClĂ©Suivante   Identifie la clĂ© suivant la clĂ© spĂ©cifiĂ©e dans la base de registres de Windows
RegistreCrĂ©eClĂ©   CrĂ©e une clĂ© dans la base de registres de Windows
RegistreEcrit   Ă‰crit une valeur dans un registre de la base de registres de Windows
RegistreExiste   Teste l'existence d'une clĂ© de la base de registres de Windows
RegistreLit   Lit la valeur d'un registre dans la base de registres de Windows
RegistrePremièreSousClĂ©   Identifie le chemin de la première sous-clĂ© de la clĂ© spĂ©cifiĂ©e dans la base de registres de Windows
RegistreSupprimeClĂ©   Supprime une clĂ© dans la base de registres de Windows
RegistreSupprimeValeur   Supprime une valeur dans la base de registres de Windows

ajritta

  • Full Member
  • ***
  • Mensagens: 202
  • Karma: +0/-0
  • A Paz do Eu
Re: Registro
« Responder #2 Online: Abril 18, 2008, 04:04:28 pm »
Solução simples para gravar e ler o registro do windows:

Escrevendo no registro do windows:

RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\Minha_Aplicacao")
RegistrySetValue("KKEY_LOCAL_MACHINE\SOFTWARE\Minha_Aplicacao","Frase","AlĂ´ Mundo!")

Lendo o registro do Windows:

sPath is string
sFrase is string

sPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Minha_Aplicacao"
sFrase = RegistryQueryValue(sPath,"Frase")

IF sFrase = "" THEN
  Info("Valor de registro nĂŁo encontrado")
ELSE
  Info(sFrase)
END


Amigos,
Gostaria de saber se alguém sabe como escrever no registro do Windows, utilizando o windev.
Por exemplo, para gravar alguma informação do programa, como um caminho, ou um número de série.

Desde já,
Agradeço a atenção.
Alex Ritta
Consultor em TI
Candiota/RS

A Paz do Eu