Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Registry lesen

   
    by Delphi.Narium, 4. Sep 2020
  Beim Programmende wird der Zweig sowieso angelegt, da kommt es auf ein paar Minuten früher nicht an.
  
  Und für die anderen Werte muss ja auch was geliefert werden. Man könnte das Ganze natürlich auch so machen:procedure Registry_lesen;
  var
  reg : TRegistry;
  begin
  reg := TRegistry.Create;
  try
  reg.Rootkey := HKEY_CURRENT_USER;
  if reg.OpenKey('Software\Windaxlg',False) then begin
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Registry lesen

   
    by Delphi.Narium, 4. Sep 2020
  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 := '';