Array
(
)

Registro do Windows XP ( regedit )

Tiagojmilam
   - 13 mar 2006

Ola amigos delphianos.

Tenho um sistema feito em delphi que necessita criar chaves no registro do Windows para poder rodar. Mas eis um problema. Tentei roda-lo no Windows XP e deu um erro no criar a Chave. Tentei cria-la manualmente so pra ver se o problema é no meu sistema. Graças a Deus nao era no sistema e sim do RegEdit. Tentei criar uma chave no HKEY_LOCAL_MACHINE, e deu um erro :

´Não é possível criar chave: erro ao gravar no Registro´

O que pode estar acontecendo ?

Valeu mais uma vez amigos...


Até .+


Paulocesar1301
   - 13 mar 2006

Qual nome tentou criar ?
Qual foi o método ?

Poste o código, plz... assim poderemos verificar o que houve.

Abs


Martins
   - 13 mar 2006


Citação:
Ola amigos delphianos.

Tenho um sistema feito em delphi que necessita criar chaves no registro do Windows para poder rodar. Mas eis um problema. Tentei roda-lo no Windows XP e deu um erro no criar a Chave. Tentei cria-la manualmente so pra ver se o problema é no meu sistema. Graças a Deus nao era no sistema e sim do RegEdit. Tentei criar uma chave no HKEY_LOCAL_MACHINE, e deu um erro :

´Não é possível criar chave: erro ao gravar no Registro´

O que pode estar acontecendo ?

Valeu mais uma vez amigos...


Até .+


Qual o tipo de chave vc tá criando?

Vc tem permissão de Administrador?

verifique.


Paulocesar1301
   - 13 mar 2006

Não sei de perm de Adm é o caso, pois aki uso Win2000, e não preciso desta para criar as chaves.

#Código


// Salva valor no Registro -----------------------------------------------------
procedure SalvaNoRegistro(Chave, Sequencia: WideString; Valor: Variant); Export; StdCall;
Var Reg: TRegistry;
begin
Try
Reg := TRegistry.Create;
Try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(Chave, True);

If VarIsStr(Valor) Then
Reg.WriteString(Sequencia, Valor)
Else If VarIsNumeric(Valor) Then
Reg.WriteString(Sequencia, Valor)
Else
Reg.WriteBool(Sequencia, Valor);
Finally
Reg.Free;
end;
Except End;
end;
// Salva valor no Registro -----------------------------------------------------