"Pedir directorio" inicializado

[ixMike]

Muy buenas días/tardes/noches a todos.

Todo el mundo conoce esos cuadros de diálogo que nos aparece en un millón de programas para pedir un directorio ("carpeta", como le gusta llamarlo Windows). Pues tengo uno de esos diálogos en mi programa, pero siempre que lo llamo me aparece en "Mis Documentos" (otro nombrecito de Windows), y me gustaría saber cómo hacer para que me aparezca en el directorio que yo elija (por ejemplo, el que tengo escrito en el Edit1.Text).

Muchas gracias.

P.D: El código que utilizo para mostrar el diálogo es el que aparece en el truco 105 de Trucomanía (http://www.q3.nu/trucomania/truco.cgi?105&esp).

[dec]

Hola,


P.D: El código que utilizo para mostrar el diálogo es el que aparece en el truco 105 de Trucomanía.


¿Cuál de ellos?

[ixMike]

Ups!!

Perdón, pues el último de ellos, que se supone es el que mejor funciona.

[dec]

Hola,

Puedes hacer algo así, parece ser:


var
{...}
root: PItemIDList;
{...}
begin
{...}
SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DESKTOP, root);
{...}
BrowseInfo.pidlRoot := root;
{...}
end;



Echa un vistazo a las constantes "CSIDL_..." conque cuentas. Por otro lado, tal vez te interese este componente (http://koders.com/delphi/fid5F7097586B2DCCA0C7384B35A185C92F8AFF5DE5.aspx?s=pidlRoot) que encontré en Koders.com (http://koders.com/), precisamente, a raíz de tu pregunta.