Seleccionar una carpeta

[miguelb]

Hola a todos:
Necesito seleccionar una carpeta desde delphi 5,
probe a utilizar un TOpenDialog, pero solo puedo seleccionar archivos y no carpetas.
No encontre otro componente que me sirva, bueno estan los de win 3.1 pero tienen el estilo de windows viejo, y ademas no reconoce por ejemplo Escritorio, Mis Documentos, etc,

Existe algun otro componente que me solucione este problema? o se puede configurar el TOpenDialog?
Gracias
Miguel

[roman]

No recuerdo si ya viene en Delphi 5 pero intenta incluir la unidad FileCtrl en tu proyecto. En dicha unidad viene una función que se llama SelectDirectory que te abre la ventana de selección de carpetas usual desde Windows95. Sería algo asi como:

var
  Carpeta: String;

begin
  if SelectDirectory(
    'Seleccione una carpeta', // Texto de la ventana
    'c:\documentos',  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  )
  then
    Application.MessageBox(PChar(Carpeta), 'Carpeta' , 0);

// Saludos

[miguelb]

Roman: gracias por tu ayuda.
Funciono exactamente como yo necesitaba.
Muchas gracias
Miguel