"Pedir directorio" inicializado

[dec]

Hola,

Puedes hacer algo así, parece ser:

Código Delphi [-]
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 que encontré en Koders.com, precisamente, a raíz de tu pregunta.