Prüfen, ob RegistryKey vorhanden ist?

[Jamah]

Delphi-Quellcode:

function RegCheck():Boolean;
begin
  result:= false;
  reg:= TRegistry.Create(Key_Read);
  try
    reg.RootKey:= (HKEY_LOCAL_MACHINE);
    try
    if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', False) then
    begin
      if reg.ValueExists('KeyName') then
          begin
            Names:= ('HKEY_Local_Machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
            result:= True;
            x:= 1;
          end;
      end;
      if reg.LastError<>0 then
  begin
   ShowMessage(reg.LastErrorMsg);
  end;
      finally
        reg.CloseKey;
      end;
    reg.RootKey:= HKEY_Current_User;
    try
    if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', False) then
    begin
      if reg.ValueExists('KeyName') then
          begin
            Names:= ('HKEY_Current_User\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\KeyName');
            result:= True;
            x:= 2;
          end;
    end;
    finally
      Reg.CloseKey;
    end;
  finally
     reg.Free;
  end;
end;

Die obere Schleife