Buscar por:

Ler registro do windows sem problemas em delphi 7

Código

  Notei que após passar para o Delphi 7, uma rotina de ler registro da biblioteca de um amigo sempre retornava em branco. Depois de vários testes descobri, graças a Deus, que o Delphi 7, pelo menos, obriga que os parâmetros de leitura de registro sejam constantes. Ou seja:

=>Assim não funciona:

  function LeReg(root: HKey; key, field: string): string;

=>Assim funciona:

  function LeReg(const root: HKey; const key, field: string): string;

Exemplo da função:

function LerRegString(const Root: HKey; const key, campo:string): string;

var Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  try

    reg.rootKey := root;

    result := '';

    if Reg.OpenKey(Key, false) then

      result := Reg.ReadString(campo);

  finally

    Reg := nil;

    Reg.Free;

  end;

end;