Elegir Carpeta

[madiazg]

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

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...

[Neftali [Germán.Estévez]]

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

[madiazg]

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

[madiazg]

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