Código Delphi [-] ListBox1.Perform(LB_DIR, 0, Integer(PChar('C:\ruta\al\directorio\*.*')));
ListBox1.Perform(LB_DIR, 0, Integer(PChar('C:\ruta\al\directorio\*.*')));