🚀 go-pugleaf

"Malte Persike" <me@privacy.net> wrote in message
news:uqrl909k4la2uga70tfr248ufjll2t6f6b@4ax.com...

> What I would like to do is to load the stringtable from
> the DLL if it exists somewhere in the search path. If not,
> the stringtable in the EXE should be used.
>
> Is there a "standard" way to accomplish this?

Simply give your DLL a specific filename that your code always looks for.
If the file exists, call LoadLibrary() and store the handle.  Then, when you
need a specific string, load the string from the DLL if available, otherwise
fallback to the EXE if not available or fails.  AnsiString has a LoadStr()
method that can help you.  For example (untested):

    HINSTANCE hSTModule = NULL;

    __fastcall TForm1::TForm1(TComponent *Owner)
        : TForm(Owner)
    {
        AnsiString filename = ExtractFilePath(Application->ExeName) +
"somefile.dll";
        if( FileExists(filename) )
            hSTModule = ::LoadLibrary(filename.c_str());
    }

    __fastcall TForm1::~TForm1()
    {
        if( hSTModule != NULL )
            ::FreeLibrary(hSTModule);
    }

    AnsiString __fastcall GetStringFromTable(UINT uID)
    {
        if( hSTModule != NULL )
        {
            AnsiString str = AnsiString::LoadStr(hSTModule, uID);
            if( str.Length() > 0 )
                return str;
        }
        return AnsiString::LoadStr((HINSTANCE)HInstance, uID);
    }


Gambit