1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure GetFilesInDirectory(Directory: string; const Mask: string;
List: TStrings;
WithSubDirs, ClearList: Boolean);

procedure ScanDir(const Directory: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name)
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
          ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;					

1:

GetFilesInDirectory(Pfad, '*-2010_*', Listbox1.Items, True, True);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
begin
Pfad:=Edit1.Text;
Timer1.Enabled:=true;
ProgressBar1.Visible:=true;
GetFilesInDirectory(Pfad, '*-2010_*', Listbox1.Items, True, True);
listcount:=ListBox1.Count;
Timer1.Enabled:=false;
ProgressBar1.Visible:=false;
ProgressBar1.Position :=0;
ShowMessage('Es wurden: '+ IntToStr(listcount)+ ' passende Datensätze gefunden!');
end;					

1:
2:
3:
4:
5:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position :=ProgressBar1.Position +1;
ProgressBar1.Update ;
end;					

1:

GetFilesInDirectory(Pfad, '*-2010_*', Listbox1.Items, True, True);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

procedure GetFilesInDirectory(Directory: string; const Mask: string;
List: TStrings;
WithSubDirs, ClearList: Boolean;PG:TProgressbar);
var
    Cur:TCursor;

Function CountDir(const Directory: string):Integer;
var
  SR: TSearchRec;
begin
  Result := 0;

  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      inc(result);
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
           Result := Result + CountDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

procedure ScanDir(const Directory: string);
var
  SR: TSearchRec;
begin


  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name);
      if Assigned(PG) then
        begin
            pg.Position := List.Count;
        end;

    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
           ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  Cur := Screen.Cursor;
  try
  Screen.Cursor := crHourGlass;
  if Assigned(PG) then pg.State := pbsNormal;
  List.BeginUpdate;

    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    if Assigned(PG) then pg.Max := CountDir(Directory);
    ScanDir(Directory);
  finally
    List.EndUpdate;
    if Assigned(PG) then pg.State := pbsPaused;

  end;
  Screen.Cursor := Cur;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure ProgStarten(const DateiName: String; const Parameter: String=''; const immer : boolean = FALSE);
var
  Erg    : integer;
begin
  if not(FileExists(Dateiname)) and not(immer) then begin
    Fehler('Das Programm ['+Dateiname+'] existiert nicht! In den Optionen bitte korrigieren.');
    Exit;
  end;
  Erg := ShellExecute(Application.Handle,'open',PChar(DateiName),PChar(Parameter),PChar(ExtractFilePath(DateiName)),SW_SHOW);
  if Erg<32 then Mitteilung('Beim Start des Programms '+Dateiname+' ist ein Fehler aufgetreten!');
end;					

1:

Progstarten('DIR','/S > '+Dateiname,TRUE);					

1:

Restzeit := (now - Startzeit)*(Anzahl - n)/Anzahl;					

1:

FortschrittBeginnen(Anzahl, TRUE/FALSE);					

1:

FortschrittAktualisieren(Text);					

1:

FortschrittBeenden;					

1:
2:
3:

Aktuelles Verzeichnis: c:\programme\borland
Anzahl Dateien: 2197
gefundene Dateien: 12