🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message
news:45ec6a71@newsgroups.borland.com...

> You don't.  That box is not for your code to use at all.  It is only
> for the user to use.

I stand corrected.  Bob's approach is the key.  It just needs some
cleaning up.  The following code works fine for me:

    int CALLBACK mjBrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM
lParam, LPARAM lpData)
    {
        switch( uMsg )
        {
            case BFFM_INITIALIZED:
            {
                LPTSTR ptr = reinterpret_cast<LPTSTR>(lpData);
                if( ptr[0] != 0 )
                {
                    SendMessage(hwnd, BFFM_SETSELECTION, TRUE,
lpData);
                    ptr[0] = 0;
                }
                break;
            }

            case BFFM_VALIDATEFAILED:
            {
                lstrcpyn(reinterpret_cast<LPTSTR>(lpData),
reinterpret_cast<LPTSTR>(lParam), MAX_PATH);
                break;
            }
        }

        return 0;
    }

    void __fastcall Tmjgrabstr::xbtnClick(TObject *Sender)
    {
        AnsiString Dir = Edit1->Text;
        if( !DirectoryExists(Dir) )
            Dir = GetCurrentDir();

        TCHAR rcvdir[MAX_PATH+1] = {0};
        lstrcpy(rcvdir, Dir.c_str(), MAX_PATH);

        BROWSEINFO mjbi = {0};
        mjbi.hwndOwner = Application->Handle;
        mjbi.lpszTitle = TEXT("Choose a Directory :-");
        mjbi.ulFlags = BIF_EDITBOX | BIF_VALIDATE;
        mjbi.lpfn = mjBrowseCallbackProc;
        mjbi.lParam = reinterpret_cast<LPARAM>(rcvdir);

        LPITEMIDLIST mjites = SHBrowseForFolder(&mjbi);
        if( mjites )
        {
            rcvdir[0] = 0;
            SHGetPathFromIDList(mjites, rcvdir);
            CoTaskMemFree(mjites);
        }

        if( rcvdir[0] != 0 )
            Edit1->Text = rcvdir;
    }


Gambit