🚀 go-pugleaf

"Mark Jacobs" <http://www.jacobsm.com/mjmsg?Borland%20Newsgroup> wrote in
message news:41a72da6$1@newsgroups.borland.com...

> To get the full path to the default .PDF handling application,
> read the relevant Registry key, like this :-

You should use FindExecutable() instead of reading the Registry manually.
The settings could be stored in multiple Registry keys that Windows chooses
from when launching the file.

> TRegistry *mjtreg=new TRegistry();
> mjtreg->RootKey=HKEY_CLASSES_ROOT;
> if
>
(mjtreg->OpenKeyReadOnly("AcroExch.Document\\protocol\\StdFileEditing\\serve
r"
> ))
>   ShowMessage("Acrobat is "+mjtreg->ReadString(""));
> else ShowMessage("You have not installed Acrobat Reader.");
> delete mjtreg;

That is not the correct way to read the default application from the
Registry.  You need to read the ".pdf" key first to find out which other key
the settings are stored in.  Then you need to read the "shell\open\command"
key instead of the "protocol\StdFileEditing\server" key.  For example:

    TRegistry *mjtreg = new TRegistry;
    try
    {
        mjtreg->RootKey = HKEY_CLASSES_ROOT;
        AnsiString AcrobatPath;

        if( mjtreg->OpenKeyReadOnly("\\.pdf") )
        {
            AnsiString ProgID = mjtreg->ReadString("");
            if( !ProgID.IsEmpty() )
            {
                if( mjtreg->OpenKeyReadOnly("\\" + ProgID +
"\\shell\\open\\command") )
                    AcrobatPath = mjtreg->ReadString("");
            }
            mjtreg->CloseKey();
        }

        if( !AcrobatPath.IsEmpty() )
        {
            if( AcrobatPath.Pos("%1") == 0 )
                AcrobatPath += " \"your document here.pdf\"";
            else
                AcrobatPath = StringReplace(AcrobatPath, "%1", "your
document here.pdf", TReplaceFlags());

            // use AcrobatPath as neded...
        }
        else
            ShowMessage("You have not installed Acrobat Reader.");
    }
    __finally {
        delete mjtreg;
    }


Gambit