function Szukaj(Czego, Gdzie: String): String;
function FindIt(Dir, Maska: String; Rodzaj: Integer) : TStringList;
var
Found : Integer;
SR: TSearchRec;
begin
Result := TStringList.Create;
try
if Dir[Length(Dir)]<> '\' then Dir:= Dir + '\';
Found := FindFirst(Dir + Maska, Rodzaj, SR);
while ( Found = 0 ) do
begin
if (SR.Name <> '.') and (SR.Name <> '..') then
Result.Add(Dir + SR.Name);
Found := FindNext(SR);
end;
finally
FindClose(SR);
end;
end;
var
tmp: string;
n: Integer;
Katalogi: TStringList;
begin
Katalogi:=TStringList.Create;
tmp:=FindIt(Gdzie,Czego,faAnyFile).Text;
Katalogi.Text:=FindIt(Gdzie,'.',faAnyFile and faDirectory).Text;
for n:=0 to Katalogi.Count-1 do
begin
tmp:=tmp+#13+Szukaj(Czego,Katalogi.Strings[n]);
end;
Katalogi.Free;
Result:=tmp
end;
Zmodyfikuj to. Ten kod przeszukuje dany katalog i pod katalogi [zmienna Gdzie] w poszukiwaniu plikow pasujacych do maski [zmienna Czego]. --sys:> logout....