Opendialog de carpetas

[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