Opendialog de carpetas

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