🚀 go-pugleaf

"han" <hanzhangusa@yahoo.com> wrote in message
news:465a6397@newsgroups.borland.com...

> I am trying to save a key to a file using SaveKey, but I always
> fail. The open key is successfull, but saveKey is not successful,
> The file is generated, but the size of the file is zero. The
following
> is my code.

The key you are specifying has no leading '\\' in it, so it is going
to be treated as relative to whatever the currently active key is.
When you call OpenKey(), there is no active key yet, so your key
string is relative to the RootKey and thus succeeds in being opened if
it exists.  But when you then call SaveKey() afterwards, TRegistry
tries to open your key again, but relative to the key you already
opened, and thus fails to find the new key.  In other words, SaveKey()
is looking for
"Software\\XXXCompany\\Settings\\ViewForms\\Software\\XXXCompany\\Sett
ings\\ViewForms", which obviously does not exist.

The best solution is to get rid of the OpenKey() altogether, since
SaveKey() opens the key anyway:

    TRegistry *myRegistry = new TRegistry;
    try
    {
        if(
!myRegistry->SaveKey("Software\\XXXCompany\\Settings\\ViewForms",
"tempReg") )
            Application->MessageBox("save key error", NULL, MB_OK);
    }
    __finally
    {
        delete myRegistry;
    }

If you want to use OpenKey() to validate the key's existance
beforehand, then specify an empty string when calling SaveKey() so
that it obtains a second handle to the same key that is already open:

    TRegistry *myRegistry = new TRegistry;
    try
    {
        if(
myRegistry->OpenKey("Software\\XXXCompany\\Settings\\ViewForms",
false) )
        {
            if( !myRegistry->SaveKey("", "tempReg") )
                Application->MessageBox("save key error", NULL,
MB_OK);
        }
        else
            Application->MessageBox("open key error", NULL, MB_OK);
    }
    __finally
    {
        delete myRegistry;
    }


Gambit