🚀 go-pugleaf

"Mike Collins" <its@TheBottomOfThePost.com> wrote in message
news:45c9eb0a@newsgroups.borland.com...

> I want to limit the users display to only removale drives, CD / DVD
> drives and folders within these drives.

SHBrowseForFolder() does not support that.  You can use the pidlRoot
member of the BROWSEINFO structure to limit the dialog to drive
letters only by setting it to the ITEMIDLIST returned by
SHGetSpecialFolderLocation(CSIDL_DRIVES).  But you cannot filter out
which individual drives are actually displayed.  The only thing you
can do is use the callback function to prevent the dialog from being
closed if the user tries to select an incorrect drive/folder.

> I've coded a custome callback for the browser but i'm not sure what
> messages to look for and how to process then.

For example:

    int CALLBACK BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM
lParam, LPARAM lpData)
    {
        if( uMsg == BFFM_SELCHANGED )
        {
            LPITEMIDLIST pidl = (LPITEMIDLIST) lpData;
            TCHAR path[MAX_PATH+1] = {0};

            if( SHGetPathFromIDList(pidl, path) )
            {
                if( path[1] == TEXT(':') )
                {
                    path[2] = 0;

                    UINT type = GetDriveType(path);
                    if( (type == DRIVE_REMOVABLE) || (type ==
DRIVE_CDROM) )
                    {
                        SendMessage(hwnd, BFFM_ENABLEOK, TRUE, 0);
                        SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0,
(LPARAM) TEXT(""));
                        return 0;
                    }
            }

            SendMessage(hwnd, BFFM_ENABLEOK, FALSE, 0);
            SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0, (LPARAM)
TEXT("Select a removable drive/folder only!"));
        }

        return 0;
    }

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        TCHAR buffer[MAX_PATH+1];

        LPITEMIDLIST pidlRoot = NULL;
        SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, &pidlRoot);

        BROWSEINFO bi = {0};
        bi.hwndOwner = Handle;
        bi.pidlRoot = pidlRoot;
        bi.pszDisplayName = buffer;
        bi.lpszTitle = TEXT("Select a removalbe drive/folder");
        bi.ulFlags = BIF_STATUSTEXT | BIF_RETURNONLYFSDIRS;
        bi.lpfn = &BrowseCallbackProc;

        LPITEMIDLIST pidl = SHBrowseForFolder(&bi);
        if( pidlRoot ) CoTaskMemFree(pidlRoot);

        if( pidl )
        {
            //...
            CoTaskMemFree(pidl);
        }
    }


Gambit