procedure TForm1.Button1Click(Sender: TObject);
begin
ScanDir(''); // Директория вывода
end;
procedure TForm1.ScanDir(Dir: string);
var
SearchRec: TSearchRec;
F: File;
begin
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst(Dir+'*.jpg', faAnyFile, SearchRec)=0 then
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if (SearchRec.Attr and faDirectory)<>0 then
ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"
else
AssignFile(F,SearchRec.name);
Rename(F,'0001.jpg') until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;
|