La invocación de las ventanas de diálogo buscar carpeta

La invocacion de las ventanas de dialogo buscar carpeta

La invocacion de las ventanas de dialogo buscar carpeta : Multi-millones de consejos para hacer su vida mas facil.

Borland SelectDirectory navegador es bastante feo, aqui es como invocar el Windows en su lugar.
usos
& nbsp & nbsp ShlObj, ShellAPI
......
funcion BrowseForFolder(mango : HWND strTitle : string var strPath : string) : boolean
var info : TBROWSEINFO
& nbsp & nbsp & nbsp & nbsp ruta de acceso : array[0..MAX_PATH] of Char
& nbsp & nbsp & nbsp & nbsp elementos : PITEMIDLIST
begin
& nbsp Resultado:=false
& nbsp ruta:='
& nbsp con informacion
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp hwndOwner:=identificador
& nbsp & nbsp & nbsp & nbsp pidlRoot:=nil
& nbsp & nbsp & nbsp & nbsp pszDisplayName:=nil
& nbsp & nbsp & nbsp & nbsp lpszTitle:=PChar(strTitle)
& nbsp & nbsp & nbsp & nbsp ulFlags:=BIF_RETURNONLYFSDIRS
& nbsp & nbsp & nbsp & nbsp lpfn:=nil
& nbsp & nbsp final
& nbsp elementos:=SHBrowseForFolder(info)
& nbsp si se ha asignado(puntos), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp SHGetPathFromIDList(articulos,ruta de acceso)
& nbsp & nbsp & nbsp & nbsp Resultado:=true
& nbsp & nbsp final
& nbsp strPath:=Ruta de acceso
fin