1:
2:
3:
4:

procedure findFiles(root, mask: string);
asm 
  nop
end;					

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:

unit Unit1;

interface

uses
  Windows, SysUtils, Forms, Dialogs, StdCtrls, Classes, Controls;

type
  TForm1 = class(TForm)
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
  uses mpuDriveTools, SearchTool, retFileSearch;
{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
var
  i: Integer;
  Zeit1, Zeit2, Zeit3, StartZeit: Cardinal;
  ST: TStringArray;
  FS: TArray;
  FindFiles: TFindFiles;
  Found: Integer;
begin
  SetLength(ST, 1);
  ST[0]:='*.MP3';
  FindFiles:=TFindFiles.Create(Form1.Handle, 'C:\', '*.MP3', true, false);
  for i:=0 to 1 do
  begin
    SearchTool.SearchFiles('C:\', ST, true);
    FindFiles.Init;
    FindFiles.FindFiles;
    Found:=retfilesearch.FindAllFiles('C:\', '*.MP3', FS, nil, true, false, true);
  end;
  Zeit1:=0;
  Zeit2:=0;
  Zeit3:=0;
  for i:=0 to 1 do
  begin
    StartZeit:=GetCurrentTime;
    SearchTool.SearchFiles('C:\', ST, true);
    inc(Zeit1, GetCurrentTime-StartZeit);

    StartZeit:=GetCurrentTime;
    FindFiles.Init;
    FindFiles.FindFiles;
    inc(Zeit2, GetCurrentTime-StartZeit);

    StartZeit:=GetCurrentTime;
    Found:=retfilesearch.FindAllFiles('C:\', '*.MP3', FS, nil, true, false, true);
    inc(Zeit3, GetCurrentTime-StartZeit);
  end;
  ShowMessage('ST: '+IntToStr(Zeit1 div 2)+' ms'+#13+
              'gefundene Dateien: '+IntToStr(SearchTool.cntFoundFiles)+#13+
              'DT: '+IntToStr(Zeit2 div 2)+' ms'+#13+
              'gefundene Dateien: '+IntToStr(FindFiles.InstanceSize)+#13+
              'FS: '+IntToStr(Zeit3 div 2)+' ms'+#13+
              'gefundene Dateien: '+IntToStr(Found));
end;

end.					

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

procedure callback (x:integer;t:tarray);
begin
   form1.Memo1.Lines.add(t[x]);
   application.ProcessMessages;
end;

procedure TForm1.Button2Click(Sender: TObject);
var liste: retfilesearch.tarray;
begin
  retfilesearch.FindAllFiles('C:\winxp\','*.mid',liste,callback,true);
end;