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

[dec]

Hola,

Para crear carpetas puedes valerte de la función "CreateDir()" y otras relacionadas, como "ForceDirectories()"

[xio]

Creo que no he realizado bien mi pregunta, quiero poder crear una carpeta desde la ventana del SelectDirectory se podria hacer?

[dec]

Hola,

No entendí bien. Disculpa. Pero sí que es posible. En el enlace de más arriba Delfino apuntaba a un artículo en Delphi.About. Allí verás que se usa la función "SHBrowseForFolder()" del API de Windows. Esta función permite especificar (más concretamente en el parámetro de tipo "TBrowseInfo" que recibe la función) algunas "banderas" (opciones) y entre ellas: BIF_NEWDIALOGSTYLE, que, como la ayuda dice:

Setting this flag provides the user with a larger dialog box that can be resized. The dialog box has several new capabilities including: drag-and-drop capability within the dialog box, reordering, shortcut menus, new folders, delete, and other shortcut menu commands. To use this flag, you must call OleInitialize or CoInitialize before calling SHBrowseForFolder.

[xio]

Pues justo en la linea que aparece esta variable me da un error de UNDECLARED IDENTIFIER: 'BIF_NEWDIALOGSTYLE'. Sabes a que es debido?

Si comento esta linea me aparece el mismo cuadro de dialogo que con SelectDirectory.

[dec]

Hola,

Lo que ocurre es que esa constante en concreto se encuentra definida en la unidad "ShlObj", que, seguramente no incluiste en la cláusula "uses" correspondiente. Encontré esta función por aquí, que, tal vez pueda echarte una mano. Funciona bien en Windows XP SP2, y, lo digo porque no sigue al cien por cien lo que refiere la ayuda de la función de que hablamos: tal vez Delphi se encarga de lo que no se encarga esta función. Tú verás.

Código Delphi [-]
uses
  ShlObj;

function ChooseFolderDlg(const subtitle: string;
  const newStyle: boolean) : string;
var
  BI: TBrowseInfo;
  IL: PItemIDList;
begin
  Result := '';
  with BI do begin
    lpfn:= nil;
    lParam:= 0;
    iImage:= 0;
    pidlRoot:= nil;
    hwndOwner:= GetActiveWindow;
    lpszTitle:= PChar(subtitle);
    GetMem(pszDisplayName, MAX_PATH);
    ulFlags := BIF_RETURNONLYFSDIRS;
    if newStyle then
      ulFlags := BIF_NEWDIALOGSTYLE;
  end;
  IL := SHBrowseForFolder(BI);
  if SHGetPathFromIDList(IL, BI.pszDisplayName)
    then Result := StrPas(BI.pszDisplayName);
  FreeMem(BI.pszDisplayName);
  GlobalFreePtr(IL);
end;

[xio]

Pues si que he incluido en el uses esa unidad y he sobreescrito la funcion anterior por la que me has enviado y me sigue dando ese mismo error. Nose por que puede ser.

[dec]

Hola,

Es extraño, porque, el mismo error lo dice: "Identificador sin declarar"; ahora bien, si incluyes la unidad donde se declara dicha constante... pues no sé, es extraño, me parece a mí. ¿Qué versión de Delphi usas? Yo uso Delphi 2007, y, juraría que la función que has visto la "cociné" en Delphi 7 además. ¿Seguro que se trata del mismo identificador sin declarar? A ver si va a ser otro que se encuentre en otra unidad... (ShellApi, por ejemplo...)

[ixMike]

Donde esté una buena búsqueda, que se quite lo demás

http://www.clubdelphi.com/foros/showthread.php?t=36664


Salu2.

[xio]

Antes de nada, utilizo Delphi 4.

He probado las diferentes opciones pero no funciona con ninguna. Me aparece el cuadro de dialogo pero cuando intento dentro de alguna carpeta pinchar con el boton derecho del raton para que aparezcan las opciones de nuevo y las demas pues aparece el mensaje "Que es eso?". Como podria hacerlo??

[dec]

Hola,

En realidad debería aparecerte un botón en la esquina inferior izquierda del cuadro de diálogo cuyo "Caption" dijera más o menos "Nueva carpeta...". Algo se nos está escapando... ¿puedes copiar aquí el código que estás usando? ¿Puedes decir si ahora tienes algún error o advertencia, o, si simplemente el diálogo aparece pero sin la opción que nos ocupa?

[xio]

Dec ahora mismo estoy utilizando esta sentencia:

Código SQL [-]
SelectDirectory('Seleccione una carpeta', 'C:\Carpeta', Carpeta)

Con esta sentencia se abre el cuadro de dialogo y solo aparecen el boton Aceptar y Cancelar.

Lo intenté con:

Código SQL [-]
SelectDirectory('C:\Carpeta', [sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP)

pero esta me da el error siguiente:

[Error] Unidad.pas(390): There is no overloaded version of 'SelectDirectory' that can be called with these arguments

[dec]

Hola,

Un momento. Yo estaba en que usabas una función similar a la que mostré en un mensaje más arriba.

El problema que tienes con "SelectDirectory()" parece relacionado conque hay un par de versiones de esa función, la que venga en Delphi y otra de terceros. ¿Cuál usas? ¿De dónde sale "sdAllowCreate"?

Tienes que asegurarte de usar la versión correcta de "SelectDirectory()", puesto que parece que podría servirte, o probar con la función que propongo más arriba en el mensaje que enlacé antes.

[ixMike]

Si hubieras seguido el link que te puesto habrías llegado aquí:
http://www.q3.nu/trucomania/truco.cgi?105&esp

el último método lo hace lo que pide, pero como dice dec, te aparece un botón abajo a la izquierda donde pone "Crear nueva carpeta".


Salu2.

[xio]

Perdon, ya he probado este ultimo link y he conseguido lo que buscaba. Muchisimas gracias a todos!
Dec! Eres super atento muchas gracias!