Registry lesen

[Delphi.Narium]

Delphi-Quellcode:

procedure Registry_lesen;
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.Rootkey := HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Windaxlg',True) then begin
      if reg.ValueExists('Win1') then test.str_1 := reg.ReadString('Win1')  else test.str_1 := '';
      if reg.ValueExists('Win2') then test.str_2 := reg.ReadString('Win2')  else test.str_2 := '';
      if reg.ValueExists('Win3') then aufrufe    := reg.ReadInteger('Win3') else aufrufe    := 0;
      if reg.ValueExists('Win4') then test.Tage  := reg.ReadInteger('Win4') else test.Tage  := 0;
      if reg.ValueExists('Win4') then test.str_4 := reg.ReadString('Win4')  else test.str_4 := '';
    end;
  finally
    reg.Free;
  end;
end;

ungetestet hingedaddelt.