怎样把一文件夹的文件一次读入到listbox,不打开文件夹!

解决方案 »

  1.   

    var
        SearchRec: TSearchRec;
      begin
        if FindFirst('C:\*.*', faAnyFile, SearchRec) = 0 then
        begin
          repeat
           listbox1.Items.Add(SearchRec.Name);
          until FindNext(SearchRec) <> 0;
          FindClose(SearchRec);
        end;
      end;
      

  2.   

    opendialog1.Options:=[ofAllowMultiSelect];
    if opendialog1.Execute then
      listbox1.Items.Assign(opendialog1.files);