🚀 go-pugleaf

"Richard Bradbrook" <dont@spamme.com> wrote in message
news:437f42a4@newsgroups.borland.com...

> if(Registry->OpenKey("Software\Company\Product\Key1", false))

Don't forget that you need to double up on backslashes:

    if( Registry->OpenKey("Software\\Company\\Product\\Key1", false) )

>   somestring = Registry->ReadString("somevalue");
>   Registry->WriteString("somevalue", somestring);

Also, do note that reading and writing to the same key can fail on NT-based
systems that have security turned on.  You should never open a key for
read/write access.  Open the key for read-only and write-only access
instead, ie:

    TRegistry *Registry = new TRegistry;
    try
    {
        Registry->RootKey = HKEY_CURRENT_USER;
        AnsiString somestring;

        Registry->Access = KEY_QUERY_VALUE;
        if( Registry->OpenKey("Software\\Company\\Product\\Key1", false) )
        {
            somestring = Registry->ReadString("somevalue");
            Registry->CloseKey();
        }

        Register->Access = KEY_SET_VALUE;
        if( Registry->OpenKey("Software\\Company\\Product\\Key1", false) )
        {
            Registry->WriteString("somevalue", somestring);
            Register->CloseKey();
        }
    }
    __finally {
        delete Registry;
    }


Gambit