Para mostrar al usuario una ventana para que seleccione una carpeta del PC:

uses 
  ShlObj, activex;

...


procedure TformConfiguracion.bSeleccionarRutaClick(Sender: TObject);
var
  Inf: TBrowseInfo;
  Identificador: PItemIDList;
  Gestor: IMalloc;
  Carpeta: Array[0..MAX_PATH] Of Char;
begin
  With Inf Do
  Begin
    hwndOwner := Handle;
    pidlRoot := Nil;
    pszDisplayName := Carpeta;
    lpszTitle := 'Seleccione la ruta donde se encuentren los ficheros para exportar...';
    ulFlags := BIF_BROWSEINCLUDEFILES;
    lpfn := Nil;
  End;
  Identificador := SHBrowseForFolder(Inf);
  If Identificador <> Nil Then
  Begin
    SHGetPathFromIDList(Identificador, Carpeta);
    SHGetMalloc(Gestor);
    Gestor.Free(Identificador);
    if Carpeta <> '' then
      txtRutaExportar.Text := Carpeta;
  end;
end;

procedure TformImportar.bSelOrigenClick(Sender: TObject);
begin
  txtOrigen.Text := SeleccionarCarpeta ('Seleccione la carpeta origen:',
      formImportar);
end;

Publicado el: 2004-08-09