Fórum Ler valor do tipo BinaryData do registro do windows #167315
01/07/2003
0
Como que eu faço para ler do Regedit um valor do tipo BinaryData. Eu sei que tem um método ReadBinaryData que faz isso, mas não estou conseguindo usar.
procedure...
var
Reg : TRegistry;
Valor : Integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
//Abre chave
Valor := Reg.ReadBinaryData(´CHAVE´,?????,?????);
end;
valeu
Adriano Santos
Curtir tópico
+ 0Posts
01/07/2003
Marcelo Saviski
ReadBinaryData ( NomeDoValor ; var Buffer ; TamBuffer : Integer): Integer;
no seu exemplo fica :
Reg.ReadBinaryData(´Dados´, Valor, SizeOf(Valor));
Gostei + 0
01/07/2003
Marcelo Saviski
ReadBinaryData ( NomeDoValor ; var Buffer ; TamBuffer : Integer): Integer;
no seu exemplo fica :
Reg.ReadBinaryData(´Dados´, Valor, SizeOf(Valor));
[color=#444444:90bedfa7cd]Hum... ,se der erro tente >>[/color:90bedfa7cd] [u:90bedfa7cd] SizeOf(integer)[/u:90bedfa7cd]
Gostei + 0
01/07/2003
Marcelo Saviski
ReadBinaryData ( NomeDoValor ; var Buffer ; TamBuffer : Integer): Integer;
no seu exemplo fica :
Reg.ReadBinaryData(´Dados´, Valor, SizeOf(Valor));
[color=#444444:faf02b2501]Hum... ,se der erro tente >>[/color:faf02b2501] [u:faf02b2501] SizeOf(integer)[/u:faf02b2501]
Gostei + 0
01/07/2003
Thaisandrade
procedure TForm1.Button1Click(Sender: TObject);
var
Reg :TRegistry;
Val: integer;
begin
Reg:= TRegistry.Create;
try
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey(´Teste´,False);
Reg.ReadBinaryData(´Teste1´,Val,10);
// O 10 é o tamanho do Buffer
finally
Reg.Free;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)