Foros Club Delphi - Elegir Carpeta

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Elegir Carpeta (https://www.clubdelphi.com/foros/showthread.php?t=60737)

Hola a todos,
para elegir una carpeta dentro del disco duro, utilizo:

Código:

var

  BrowseInfo  : TBrowseInfo;

  PIDL        : PItemIDList;

  DisplayName : array[0..MAX_PATH] of Char;

....



begin

   FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);

   BrowseInfo.hwndOwner      := Handle;

   BrowseInfo.pszDisplayName := @DisplayName[0];

   BrowseInfo.lpszTitle      := PAnsiChar(MensajeLW24);

   BrowseInfo.ulFlags        := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE;

   PIDL := SHBrowseForFolder(BrowseInfo);

   if Assigned(PIDL) then

   if SHGetPathFromIDList(PIDL, DisplayName) then

   begin

     NuevaCarpeta := DisplayName;

......

¿Saben cómo podría indicar una ruta inicial?

Saludos...

¿Porque no utilizas la función SelectDirectory? Creo que el parámetro indica el dirctorio inicial.

Muchas gracias. No conocía esta función
Saludos...

Hola, tengo una dificultad. Si selecciono una carpeta (por ejemplo, D:\Mis Documentos\Mis Imagenes\Prueba) aparece dicha carpeta Prueba en el DialogBox como Raiz, y no me permite bajar a los niveles inferiores (Mis Imágenes, Mis Documentos, D).
Tampoco me permite crear nuevas carpetas.

¿Hay alguna forma de solucionar esto?

Saludos...
Miguel Angel