Opendialog de carpetas

[Iuconlas]

Hola, me gustaría saber la forma para que mediante el Opendialog pueda seleccionar carpetas y no solo ficheros. Para que pueda seleccionar la carpeta y cuando de a "Abrir" se cierre el opendialog. Porque unicamente se cierra si seleccionamos un archivo. Se que seleccionado el archivo puedo extraer la ruta y la carpeta, pero no necesito que sea al seleccionar el archivo sino la carpeta. Gracias de antemano.

[dec]

Hola,

Código Delphi [-]
uses
   ShlObj;
 
 // Mostrar el diálogo estándar de Windows que
 // permite elegir un determinado directorio.
 //
 // Basado en ciertas funciones recogidas de las
 // "Delphi Works 1.2" (http://delphiworks.sf.net).
 //
 function DlgElegirDirectorio(subtitulo: string;
   nuevoEstilo: boolean) : string;
 var
   BI: TBrowseInfo;
   IL: PItemIDList;
 begin
   Result := EmptyStr;
   with BI do begin
     lpfn:= nil;
     lParam:= 0;
     iImage:= 0;
     pidlRoot:= nil;
     hwndOwner:= GetActiveWindow;
     lpszTitle:= PChar(subtitulo);
     GetMem(pszDisplayName, MAX_PATH);
     ulFlags := BIF_RETURNONLYFSDIRS;
     if nuevoEstilo then
       ulFlags := ulFlags or BIF_NEWDIALOGSTYLE;
   end;
   IL := SHBrowseForFolder(BI);
   if SHGetPathFromIDList(IL, BI.pszDisplayName) then
     Result := IncludeTrailingPathDelimiter(
       StrPas(BI.pszDisplayName));
   FreeMem(BI.pszDisplayName);
   GlobalFreePtr(IL);
 end;

[roman]

No recuerdo la sintaxis exacta, pero en la unidad FileCtrls viene una función SelectDirectory, o algo parecido, que ya implementa lo que comenta dec.

// Saludos

[dec]

Hola,

Así es la verdad roman. La función se llama como dices y se encuentra en la unidad que mencionas... ¡joroba qué memoria! ¡para mí la quisiera!

[Delfino]

La funcion Selectdirectory tiene un inconveniente, no es possible personalizar la position del dialogo y este aparece abajo a la derecha siempre. Para personalizarlo hay q usar la complicada API shBrowseForFolder. Aqui hay un detallado ejemplo de su uso. Pero la JVCL contiene un componente potente q la encapsula llamado JvBrowseForFolderDialog (tb contiene JvSelectDirectory)..

[xio]

Yo utilizo la funcion SelectDirectory pero no permite crear carpetas como podira conseguir esto??

[roman]

Empezado por dec

Hola,

Código Delphi [-]
uses
   ShlObj;
 
 // Mostrar el diálogo estándar de Windows que
 // permite elegir un determinado directorio.
 //
 // Basado en ciertas funciones recogidas de las
 // "Delphi Works 1.2" (http://delphiworks.sf.net).
 //
 function DlgElegirDirectorio(subtitulo: string;
   nuevoEstilo: boolean) : string;
 var
   BI: TBrowseInfo;
   IL: PItemIDList;
 begin
   Result := EmptyStr;
   with BI do begin
     lpfn:= nil;
     lParam:= 0;
     iImage:= 0;
     pidlRoot:= nil;
     hwndOwner:= GetActiveWindow;
     lpszTitle:= PChar(subtitulo);
     GetMem(pszDisplayName, MAX_PATH);
     ulFlags := BIF_RETURNONLYFSDIRS;
     if nuevoEstilo then
       ulFlags := ulFlags or BIF_NEWDIALOGSTYLE;
   end;
   IL := SHBrowseForFolder(BI);
   if SHGetPathFromIDList(IL, BI.pszDisplayName) then
     Result := IncludeTrailingPathDelimiter(
       StrPas(BI.pszDisplayName));
   FreeMem(BI.pszDisplayName);
   GlobalFreePtr(IL);
 end;

Gracias dec

// Saludos