🚀 go-pugleaf

"poojo hackma" <poojo.com/mail> wrote in message
news:44592306$1@newsgroups.borland.com...

>     ::GetFileVersionInfoSize(ParamStr(0).c_str(), &dwHandle);

ParamStr(0) returns the filename for the calling process (the .exe), not the
calling module (the .dll in this case).  In order to get the filename of the
DLL from inside the DLL itself, you have to call the Win32 API
GetModuleFileName() function directly, specifying the HINSTANCE that is
given to the DLL as a parameter to its DllEntryPoint() function.  For
example:

    char szVersion[64] = {0};

    BOOL WINAPI DllEntryPoint(HINSTANCE hinst, DWORD fdwReason, LPVOID
lpvReserved)
    {
        if( fdwReason == DLL_PROCESS_ATTACH )
        {
            TCHAR szFileName[MAX_PATH+1] = {0};
            if( ::GetModuleFileName(hinst, szFileName, MAX_PATH) )
            {
                DWORD dwHandle = 0;

                DWORD dwSize = ::GetFileVersionInfoSize(szFileName,
&dwHandle);
                if( dwSize )
                {
                    LPVOID lpData = ::LocalAlloc(LMEM_FIXED, dwSize);
                    if( lpData )
                    {
                        if( ::GetFileVersionInfo(szFileName, dwHandle,
dwSize, lpData) )
                        {
                            VS_FIXEDFILEINFO *pVersion = NULL;
                            UINT uLen = 0;

                            if( ::VerQueryValue(lpData, TEXT("\\"),
(LPVOID*)&pVersion, &uLen) )
                            {
                                sprintf(szVersion, "%hu.%hu.%hu.%hu",
HIWORD(pVersion->dwFileVersionMS), LOWORD(pVersion->dwFileVersionMS),
HIWORD(pVersion->dwFileVersionLS), LOWORD(pVersion->dwFileVersionLS));
                            }
                        }

                        ::LocalFree(lpData);
                    }
                }
        }

        return TRUE;
    }

    extern "C" void __stdcall GetVersion(char *Buffer, int BufSize)
    {
        strncpy(Buffer, szVersion, BufSize);
    }


>     ::GetFileVersionInfoSize(Application->ExeName.c_str(), &dwHandle);

The ExeName property calls ParamStr(0) internally, so the above applies here
as well.


Gambit