Registrar chave no regedit ?

Delphi

03/11/2005

Olá Pessoal, como registrar essa chave no regedit ?


[list=]REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
´Scancode Map´=hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,\00,00,00,00[/list]


Eu tentei assim mais não deu certo:

var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.OpenKey(´SYSTEM´, True);
  reg.OpenKey(´CurrentControlSet´, True);
  reg.OpenKey(´Control´, True);
  reg.OpenKey(´Keyboard Layout´, True);

  if Status = True then begin
    reg.WriteBinaryData(´Scancode Map´,´hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,\00,00,00,00´);
  end
  else if Status = False then begin
    reg.DeleteValue(´Scancode Map´);
  end;
    reg.CloseKey;
end;



Obrigada.


Renatacoimbra

Renatacoimbra

Curtidas 0

Respostas

Marlon Spiess

Marlon Spiess

03/11/2005

procedure TForm1l.SaveToRegistry;
var
Registry : TRegistry;
Path : string;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
Path := ´\SOFTWARE\local_onde_quero_salvar´;
if (Registry.KeyExists(Path)) then
Registry.OpenKey(Path, False)
Else Registry.OpenKey(Path, True);
Registry.WriteInteger(´xxxx´,12345);
Registry.CloseKey;
finally
Registry.Destroy;
end;
end;


GOSTEI 0
Renatacoimbra

Renatacoimbra

03/11/2005

Obrigada, mais é uma chave binária, não inteiro.



var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;

  reg.OpenKey(´SYSTEM´, True);
  reg.OpenKey(´CurrentControlSet´, True);
  reg.OpenKey(´Control´, True);
  reg.OpenKey(´Keyboard Layout´, True);

  if Status = True then begin
    reg.WriteBinaryData(´Scancode Map´,´hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5b,e0,00,00,5c,e0,\00,00,00,00´);
  end
  else if Status = False then begin
    reg.DeleteValue(´Scancode Map´);
  end;
    reg.CloseKey;
end;



GOSTEI 0
POSTAR