Lenguaje de programación Borland Delphi
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;
Ejemplo de uso:
procedure TformImportar.bSelOrigenClick(Sender: TObject);
begin
txtOrigen.Text := SeleccionarCarpeta ('Seleccione la carpeta origen:',
formImportar);
end;
Publicado el: 2004-08-09