🚀 go-pugleaf

> I'd really
> appreciate a short sample code which does only
> the stuff I mentioned. Thank you.
>

#include <Registry.hpp>

void __fastcall TFrom1::CreateKeys()
{
  TRegistry* registry = new TRegistry;
  try
  {
    registry->RootKey = HKEY_LOCAL_MACHINE;
    registry->Access = KEY_ALL_ACCESS;

    AnsiString cKey = "\\Software\\BLA";

    for(int i=1; i<=2; i++)
    {
      AnsiString cSubKey = cKey + "\\BLA_" + IntToStr(i);

      if(!registry->OpenKey(cSubKey,  true))
        throw Exception("Cannot open/create key " + cSubKey);

      registry->WriteInteger("Value1", 1);
      registry->WriteInteger("Value2", 2);

      for(int j=1; j<=2; j++)
      {
        AnsiString cSubKey2 = cSubKey + "\\BLA_" + IntToStr(i) + "+" +
IntToStr(j);
        if(!registry->OpenKey(cSubKey2,  true))
          throw Exception("Cannot open/create key " + cSubKey2);
        registry->WriteInteger("Value1", 1);
        registry->WriteInteger("Value2", 2);
      }
    }
  }
  __finally
  {
    delete registry;
  }
}

void __fastcall TFrom1::ReadKeys()
{
  TRegistry* registry = new TRegistry;
  try
  {
    registry->RootKey = HKEY_LOCAL_MACHINE;
    registry->Access = KEY_READ;

    AnsiString cKey = "\\Software\\BLA";

    for(int i=1; i<=2; i++)
    {
      AnsiString cSubKey = cKey + "\\BLA_" + IntToStr(i);

      if(!registry->OpenKey(cSubKey,  false))
        throw Exception("Cannot open key " + cSubKey);

      if(registry->ValueExists("Value1"))
        int nValue1 = registry->ReadInteger("Value1");
      if(registry->ValueExists("Value2"))
        int nValue2 = registry->ReadInteger("Value2");

      for(int j=1; j<=2; j++)
      {
        AnsiString cSubKey2 = cSubKey + "\\BLA_" + IntToStr(i) + "+" +
IntToStr(j);
        if(!registry->OpenKey(cSubKey2,  true))
          throw Exception("Cannot open/create key " + cSubKey2);

        if(registry->ValueExists("Value1"))
          int nSubValue1 = registry->ReadInteger("Value1");
        if(registry->ValueExists("Value2"))
          int nSubValue2 = registry->ReadInteger("Value2");
      }
    }
  }
  __finally
  {
    delete registry;
  }
}

Mark