Rubem, valew, eu dei uma pesquisada no Google e descobri isso abaixo que
testei e funcionou beleza.
Para quem tiver uma dúvida semelhante a minha como inserir um valor em
Binary no Registro do Windows:
=========================================================
procedure TForm1.Button1Click(Sender: TObject);
var
R7 : TRegistry;
RegVal : String;
begin
RegVal := #$05 + #$00 + #$00 + #$00 + #$00 + #$01 + #$00 + #$00 + #$00
+ #$00 + #$00 + #$00 + #$00 + #$00 + #$00 + #$00 + #$3F + #$42 + #$0F +
#$00;
R7 := TRegistry.Create;
try
R7.RootKey := HKEY_LOCAL_MACHINE;
R7.OpenKey('SYSTEM\CurrentControlSet\Control\Session
Manager\Power',True);
R7.WriteBinaryData('Heuristics', RegVal[1], length(RegVal));
finally
R7.CloseKey;
R7.Free;
end;
end;
=======================================================
Rubem Nascimento da Rocha escreveu:
>
>
> Uma coisa é a representação do dados, e outra coisa é como esses dados
> serão gravados. No seu caso, vc necessita gravar uma seqüência de
> bytes em uma chave do registry do Windows. Ou seja, dados binários,
> bytes puros. Existem dicas na Internet que mostram como gravar dados
> binários no registry do Windows. Pra vc começar a fuçar sobre o
> assunto: http://delphi.about.com/cs/adptips2002/a/bltip1002_4.htm
> <http://delphi.about.com/cs/adptips2002/a/bltip1002_4.htm>
>
> Boa sorte.
> Sds.
>
> ________________________________
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> From: [EMAIL PROTECTED] <mailto:onjahyr%40gmail.com>
> Date: Fri, 29 Aug 2008 16:18:08 -0300
> Subject: [delphi-br] Registry - Como gravar um dado hexadecimal?
>
> Olá pessoal...
>
> Queria gravar um valor em hexadecimal no registro do windows:
>
> Reg.RootKey = HKEY_LOCAL_MACHINE;
> Reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Power');
>
> [b] O valor é[/b] = Heuristics
>
> [b]Quero escrever os dados do valor acima em hex escrito abaixo:[/b]
> hex:05,00,00,00,00,01,00,00,00,00,00,00,00,00,00,00,3f,42,0f,00
>
> Agradeço quem puder me ajudar.
>
> __________________________________________________________
> Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
> relacionamentos com até 6,000 fotos!
> http://www.amigosdomessenger.com.br <http://www.amigosdomessenger.com.br>
>
>
