Ler valor do tipo BinaryData do registro do windows
Galera,
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
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
Curtidas 0
Respostas
Marcelo Saviski
01/07/2003
ReadBinaryData ( NomeDoValor ; var Buffer ; TamBuffer : Integer): Integer;
no seu exemplo fica :
Reg.ReadBinaryData(´Dados´, Valor, SizeOf(Valor));
GOSTEI 0
Marcelo Saviski
01/07/2003
[quote:90bedfa7cd=´Marcelo Saviski´]
no seu exemplo fica :
[/quote:90bedfa7cd]
[color=#444444:90bedfa7cd]Hum... ,se der erro tente >>[/color:90bedfa7cd] [u:90bedfa7cd] SizeOf(integer)[/u:90bedfa7cd]
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
Marcelo Saviski
01/07/2003
[quote:faf02b2501=´Marcelo Saviski´]
no seu exemplo fica :
[/quote:faf02b2501]
[color=#444444:faf02b2501]Hum... ,se der erro tente >>[/color:faf02b2501] [u:faf02b2501] SizeOf(integer)[/u:faf02b2501]
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
Thaisandrade
01/07/2003
Tenta fazer dessa forma:
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;
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