Programación General > Delphi

 Registro De Windows -- Regedit

(1/1)

sergiotarrillo:
En la Ayuda del Delphi, te dan un ejemplo de como trabajr con el REgEdit, especificamente recuperar el valor de un registro y este es el codigo:

//--------------------------------------------
uses Registry;
function GetRegistryValue: string;
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;

  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  //False because we do not want to create it if it doesn’t exist
  Registry.OpenKey('MYKEY',False);
  Result :=Registry.ReadString('VALUE1');

  Registry.Free;
end;
//-------------------------------------------------

Claro tienes que cmabiar el valor de 'MIKEY', y el 'VALUE1', por tus datos, lo unico que conseguii era colgar mi maquina cuando lo corria ......
 :pensando:

vermicida:
Yo hace poco en una aplicación usé acceso al registro y es sencillísimo, lo que pasa que ahora mismo no recuerdo exactamente las sentencias. Básicamente es crear una variable de tipo TRegistry y trabajar con ella. Por este orden, creas el objeto y especificas el RootKey, que es el key que abrirá en primer lugar; seguidamente con Open abres la ruta completa del registro concreto que desees buscar, y con write/read escribes o lees valores de ese registro. Cuando llegue a casa después del curro te posteo el código exacto.

BlackTigerX:
esto:
Registry.OpenKey('MYKEY',False);
es una funcion booleana... entonces deberias llamarla asi:

if Registry.OpenKey('MYKEY',False) then
  Result :=Registry.ReadString('VALUE1')
else
  Result:='Default... o lo que sea aqui'

sergiotarrillo:
Estaba vagando por internet y encontre el siguiente codigo, que funciona de la patada
pruebenlo, esta todo correcto.............


--- Código: Text --- procedure TForm1.CmdFileProClick(Sender: TObject);  str : String;begin  with TRegistry.Create do    try      RootKey := HKEY_LOCAL_MACHINE;      //asiganado la KeyRoot       //ahora abriendo la clave o key      if OpenKey('\Software\Microsoft\Windows\CurrentVersion',                 false) then begin          str := ReadString('ProgramFilesDir');    ShowMessage(str);          CloseKey;      end;    finally      Free;    end;end;  

Navegación

[0] Índice de Mensajes