Como listar los archivos de un determinado directorio al dar click en un boton?

[Missael]

Empezado por ecfisa

Hola nuevamente.

Un ejemplo que implementa el procedimiento de dec en el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ArchivosDirectorio('C:\Windows\', '*.*',  TS, True);
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;

Saludos

Gracias por la respuesta, lo que me tiene mas en duda es revisar los subdirectorios, como tengo un path especifico, hay dos tipos de archivos, uno contiene mas subcarpetas que el otro, pero ambos tienen el mismo path hasta cierta carpeta, y solo quiero que me mande un mensaje nombrando todos los archivos encontrados en las subcarpetas.

esta el codigo de la seccion trucos pero como lo implemento en un boton?