Procedure TMainForm.SearchFile(way,mask:string);
Var SR:TSearchRec;
FindRes:Integer;
begin
FindRes:=FindFirst(way+mask,faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory)=faDirectory) and
((SR.Name='.')or(SR.Name='..')) then
begin
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then
begin
SearchFile(way+SR.Name+'\','*.*');
FindRes:=FindNext(SR);
Continue;
end;
FileBox.Items.Add(SR.Name);
FindRes:=FindNext(SR);
with ProgressBar1 do
begin
Position:=Position+1;
if Position = Max then
position:=min;
end;
end;
FindClose(SR);
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.