Win folder selection dialog

Hi,
I know how to use GetOpenFileName and GetSaveFileName in my program
(#pragma), but how to invoke the folder selection dialog (folder only, not
file)?
Thanks.
Anando.

Dear Anando:

"Anando" <anando63@yahoo.co.in> wrote in message
news:47e88904$0$1345$834e42db@reader.greatnowhere. com...
> Hi,
> I know how to use GetOpenFileName and GetSaveFileName
> in my program (#pragma), but how to invoke the folder
> selection dialog (folder only, not file)?

I found one for doing that on an FTP server on the old news
server, but not what you are asking for. Sorry.

David A. Smith

this may steer you in the right direction
http://j-walk.com/ss/excel/tips/tip29.htm


Anando wrote:
> Hi,
> I know how to use GetOpenFileName and GetSaveFileName in my program
> (#pragma), but how to invoke the folder selection dialog (folder only, not
> file)?
> Thanks.
> Anando.
>
>

Hi Daniel,
I have seen the references to SHBrowseForFolder and SHGetPath... on
the internet, but how is it implemented using #pragma in xHarbour?
Unfortunately, I'm not very good at C (yet).
Thanks.
Anando.



On Mar 26, 5:03*am, Daniel Skousen <d...@mobhill.com> wrote:
> this may steer you in the right directionhttp://j-walk.com/ss/excel/tips/tip29.htm
>
>
>
> Anando wrote:
> > Hi,
> > I know how to use GetOpenFileName and GetSaveFileName in my program
> > (#pragma), but how to invoke the folder selection dialog (folder only, not
> > file)?
> > Thanks.
> > Anando.- Hide quoted text -
>
> - Show quoted text -

On 26 Mar, 13:06, anandobanerjee <banerjee.ana...@gmail.com> wrote:

> I have seen the references to SHBrowseForFolder and SHGetPath... on
> the internet, but how is it implemented using #pragma in xHarbour?
> Unfortunately, I'm not very good at C (yet).

See at sources of hwGUI or miniGUI...
Below cut from shellapi.c ( hwGUI ) :

#ifndef BIF_USENEWUI
#ifndef BIF_NEWDIALOGSTYLE
#define BIF_NEWDIALOGSTYLE 0x0040 // Use the new dialog layout
with the ability to resize
#endif
#define BIF_USENEWUI (BIF_NEWDIALOGSTYLE | BIF_EDITBOX)
#endif

/*
* SelectFolder( cTitle )
*/

HB_FUNC( SELECTFOLDER )
{
BROWSEINFO bi;
char *lpBuffer = (char*) hb_xgrab( MAX_PATH+1 );
LPITEMIDLIST pidlBrowse; // PIDL selected by user

bi.hwndOwner = GetActiveWindow();
bi.pidlRoot = NULL;
bi.pszDisplayName = lpBuffer;
bi.lpszTitle = ( ISCHAR(1) )? hb_parc(1):"";
bi.ulFlags = BIF_USENEWUI;
bi.lpfn = NULL;
bi.lParam = 0;

// Browse for a folder and return its PIDL.
pidlBrowse = SHBrowseForFolder( &bi );
SHGetPathFromIDList( pidlBrowse,lpBuffer );
hb_retc( lpBuffer );
hb_xfree( lpBuffer );
}

----------------------

Regards
JoteR

>
> See at sources of hwGUI or miniGUI...
> Below cut from shellapi.c ( hwGUI ) :
>

or use
SHBrowseForFolder([<hWnd>],[<cTitle>],<nFlags>,[<nFolderType>])
from What32.lib

Regards,
Saulius

Anando ha scritto:
> Hi,
> I know how to use GetOpenFileName and GetSaveFileName in my program
> (#pragma), but how to invoke the folder selection dialog (folder only, not
> file)?
> Thanks.
> Anando.
>
>
try this (from what32)
//----------------------------------------------------------------------------

//SYNTAX: SHBrowseForFolder([<hWnd>],[<cTitle>],<nFlags>,[<nFolderType>])

HB_FUNC( SHBROWSEFORFOLDER )
{
HWND hwnd = ISNIL (1) ? GetActiveWindow() : (HWND) hb_parnl(1);
BROWSEINFO BrowseInfo;
char *lpBuffer = (char*) hb_xgrab( MAX_PATH + 1 );
LPITEMIDLIST pidlBrowse;

SHGetSpecialFolderLocation(hwnd, ISNIL(4) ? CSIDL_DRIVES :
hb_parni(4), &pidlBrowse) ;
BrowseInfo.hwndOwner = hwnd;
BrowseInfo.pidlRoot = pidlBrowse;
BrowseInfo.pszDisplayName = lpBuffer;
BrowseInfo.lpszTitle = ISNIL (2) ? "Select a Folder" : hb_parcx(2);
BrowseInfo.ulFlags = hb_parni(3);
BrowseInfo.lpfn = NULL;
BrowseInfo.lParam = 1;
BrowseInfo.iImage = 0;
pidlBrowse = SHBrowseForFolder(&BrowseInfo);

if ( pidlBrowse )
{
SHGetPathFromIDList(pidlBrowse,lpBuffer);
hb_retc( lpBuffer );
}
else
{
hb_retc( "" );
}

hb_xfree( lpBuffer);
}