Registrar chave no regedit ?
03/11/2005
0
[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
Posts
03/11/2005
Marlon Spiess
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;
03/11/2005
Renatacoimbra
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;
Clique aqui para fazer login e interagir na Comunidade :)