Registrar chave no regedit ?

03/11/2005

0

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

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar