Czy mogłby mi ktoś napisać kod który by tą procedurke wykonał tyle razy ile jest napędów w listbox2 i za kazdym razem zeby ta procedura zmieniała napęd na którym mają zostać wyszukiwane pliki i zeby wyszukane pliki z kolejnych dysków również dopisały się do listbox2. A w napędzię lista woluminów wygląda tak:
c:\
d:\
e:\
A to jest sam kod wyszukiwania:
procedure TForm1.Button1Click(Sender: TObject);
var
Pliki: TStringList;
gdzie: string;
co: string;
begin
co:='*.bat';
gdzie:='c:';
Pliki:=TStringList.Create;
Pliki.Text:=Szukaj(co,gdzie);
ListBox1.Items.Text:=Pliki.Text;
Pliki.Free;
end;