Registrar chave no regedit ?

03/11/2005

1

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.


Responder

Posts

03/11/2005

Marlon Spiess

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;


Responder

03/11/2005

Renatacoimbra

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; 




Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira