Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Mostrar ventana de selección de carpeta - Delphi
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+