Description: If you want to add a "New Folder" button to the above dialog then add the flag BIF_NEWDIALOGSTYLE, e.g.:
browse_info.ulFlags := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE
If you find that the unit shlobj doe not include the necessary definition for BIF_NEWDIALOGSTYLE then you will need to provide your own definition:
const BIF_NEWDIALOGSTYLE=$40
The BIF_NEWDIALOGSTYLE tip was contributed by Santiago Vila (www.dvwiz.com).
I also gratefully acknowledge the help of Martin Birk for suggesting the addition of the line "browse_info.hwndOwner := Application.Handle ". Without that the browse dialog pops up in the corner of the screen, with the line the dialog pops up over the application.
These notes are believed to be correct for Delphi 6 and Delphi 7, and may apply to other versions as well.
To Search:
File list (Check if you may need any files):
BrowseForFolderU.pas
Download