🚀 go-pugleaf

"mike" <mfbrowne@earthlink.net> wrote in message
news:41ae3911@newsgroups.borland.com...

>     while ( true )

Why are you looping?  You should not be doing that.

>          hFileMapHandle     = OpenFileMap()
<snip>
>          lpFileMapAddress      = MapFile( hFileMapHandle )

Why are you retrieving the file mapping every time the hook is called?  You
should be retrieving it only once, when the DLL is first loaded.

>    cds.dwData = 10000
>    cds.cbData = 0
>    cds.lpData = NameVal.c_str()

You are speciying 0 for cbData when you should be specifying
NameVal.Length() instead.  By setting it to 0, WM_COPYDATA wo't be able to
actually copy any data - you told it there isn't any data to copy.

BTW, you should give dwData a more unique value.  You shouldn't hard-code
it, unless you can 100% guarantee that it will always be unique.  10000 is
not likely to always be unique.  Something more like this will be, though:

    cds.dwData = 0x4D696B65; // "Mike" in hex

Now, with all of that said, try this code instead:


    HANDLE hFileMapHandle = NULL;
    tagMemoryFileDefinition *MyMemoryFile = NULL;

    BOOL WINAPI DllEntryPoint(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID
lpvReserved)
    {
        switch( fdwReason )
        {
            case DLL_PROCESS_ATTACH:
            {
                hFileMapHandle = OpenFileMap();
                if( !hFileMapHandle )
                    return FALSE;

                MyMemoryFile = static_cast<tagMemoryFileDefinition*>(
MapFile(hFileMapHandle) );
                if( !MyMemoryFile )
                {
                    CloseHandle(hFileMapHandle);
                    return FALSE;
                }

                break;
            }

            case DLL_PROCESS_DETACH:
            {
                if( MyMemoryFile ) UnmapViewOfFile(MyMemoryFile);
                if( hFileMapHandle ) CloseHandle(hFileMapHandle);
                break;
            }
        }

        return TRUE;
    }

    LRESULT CALLBACK CBTProc(int nCode, WPARAM wParam, LPARAM lParam)
    {
        if( (nCode >= 0) && (nCode == HCBT_CREATEWND) )
        {
            HWND hWndCreate = reinterpret_cast<HWND>(wParam);
            AnsiString ClassVal =
reinterpret_cast<LPCBT_CREATEWND>(lParam)->lpcs->lpszClass;
            AnsiString DataVal = ("Class " + ClassVal);

            COPYDATASTRUCT cds = {0};
            cds.dwData = 0x4D696B65;
            cds.cbData = DataVal.Length();
            cds.lpData = DataVal.c_str();

            ::SendMessage(MyMemoryFile->hWindowForMessages, WM_COPYDATA, 0,
reinterpret_cast<LPARAM>(&cds));
        }

        return CallNextHookEx(MyMemoryFile->hMsgHook, nCode, wParam,
lParam);
    }


Gambit