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;
opendialog1.Options:=[ofAllowMultiSelect]; if opendialog1.Execute then listbox1.Items.Assign(opendialog1.files);
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;
if opendialog1.Execute then
listbox1.Items.Assign(opendialog1.files);