[Resolvido] Lendo e Gravando valor no Registro do Windows

[marcio.theis 3]

Primeiramente é necessário declarar na Uses do form Registry

 

Função que faz a leitura de um valor no registro do windows, conforme RootKey, Chave do registro e Valor a buscar... Somente esta tratando valores de registro do tipo String.

 

function LeRegWin(root: HKey; chave, valor: string): string;var   reg: TRegistry;   ret: string;beginret:='';reg:=TRegistry.Create;reg.RootKey:=root;if reg.OpenKey(chave, False) then	if reg.ValueExists(valor) then		ret:=Reg.ReadString(valor);reg.CloseKey;reg.Free;LeRegWin:=ret;end;

Procedure que faz a gravação de um valor no registro do windows, conforme RootKey, Chave do registro e Valor e Conteúdo a inserir... Somente esta tratando valores de registro do tipo String.

 

procedure GravaRegWin(root: HKey; chave, valor, conteudo: string);var   reg: TRegistry;   ins: boolean;beginreg:=TRegistry.Create;reg.RootKey:=root;ins:=True;reg.OpenKey(chave, True);if reg.ValueExists(valor) then	if Reg.ReadString(valor) = conteudo then		ins:=False;if ins then	reg.WriteString(valor, conteudo);reg.CloseKey;reg.Free;end;