Opendialog de carpetas

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

[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