🚀 go-pugleaf

"Hans Galema" <dontusethis@dontusethis.nl> wrote in message
news:40c5a181$1@newsgroups.borland.com...

> You are the first one here, who succeeds setting the
> initial directory, as far as I know. Compliments.

Here is the code that I have been using for several years now:

    #include <shlobj.h>

    int __stdcall BrowseProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM
lpData)
    {
        if( uMsg == BFFM_INITIALIZED )
        {
            AnsiString *asTemp = reinterpret_cast<AnsiString*>(lpData);
            if( (asTemp) && (!asTemp->IsEmpty()) )
            {
                // the browse dialog will not correctly set the desired
                // path if there's a trailing '\' at the end of it when it's
                // not a root path

                if( asTemp->Length() > 3 )
                {
                    while( asTemp->IsPathDelimiter(asTemp->Length()) )
                        asTemp->Delete(asTemp->Length(), 1);
                }

                SendMessage(hwnd, BFFM_SETSELECTION, TRUE,
reinterpret_cast<LPARAM>(asTemp->c_str()));
            }
        }
        return 0;
    }


    AnsiString asCurrentDataDir;

    void __fastcall TEventLogSettingsForm::Button1Click(TObject *Sender)
    {
        LPITEMIDLIST pRoot = NULL;
        SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, &pRoot);

        BROWSEINFO bi = {0};
        bi.lpszTitle = "Pick a folder:";
        bi.hwndOwner = Handle;
        bi.pidlRoot = pRoot;
        bi.ulFlags = BIF_STATUSTEXT | BIF_RETURNONLYFSDIRS | BIF_EDITBOX;
        bi.lpfn = (BFFCALLBACK)BrowseProc;
        bi.lParam = reinterpret_cast<LPARAM>(&asCurrentDataDir);

        this->Enabled = false;
        Application->ProcessMessages();

        LPITEMIDLIST lpItemList = SHBrowseForFolder(&bi);
        if( lpItemList != NULL )
        {
            char buffer[MAX_PATH] = {0};
            //...
            asCurrentDataDir = buffer;
            CoTaskMemFree(lpItemList);
        }

        this->Enabled = true;

        if( pRoot )
            CoTaskMemFree(pRoot);
    }


Gambit