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.

BrowseForFolderU.pas

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．