Delphi - diálogo seleccionar carpeta

qué tal, ¿alguien tiene un ejemplo de cómo mostrar el diálogo de selección de carpeta (BrowseForFolder)?
En mi aplicación necesito seleccionar varias carpetas, lo estoy haciendo con un form extra que contiene un control DirectoryListBox , pero he visto otras aplicaciones que parecen emplear una llamada a un diálogo por defecto de windows, y me gustaría saber cómo llamar esa ventana desde Delphi.

Saludos.

Con el componente ShellTreeView de la paleta Samples puedes armar un cuadro de dialogo para elegir carpetas.
Sino te recomiendo que uses un componente llamado TdsfBrowseDirectoryDlg que realiza la llamada al cuadro de dialogo estandar de Windows al que hace referencia. Es gratuito con código fuente:
www.delphifreestuff.com

En la unit FileCtrl tienes la función:

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;

Que creo que es lo que buscas.

Saludos

Diego: esa solución es parecida a la que había empleado, me parece buena. El componente ya no lo descargué porque Fer me dió la respuesta que buscaba.

Fer: Gracias, era justo lo que buscaba :-).

Muy bueno, era lo que estaba buscando. Gracias!!