(*| Copyright (c) 2005 Michael Puff                                      |*)

uses Windows, Messages;

type
  TStringArray = array of string;

const
    {...}
type
  TFindFiles = class(TObject)
  private
    fThread: THandle;
    fThreadID: Cardinal;
    {...}
    procedure ThreadProc;
    {...}
  public
    {...}
  end;

var
  FFTerminate: Boolean;

  {...}

implementation

function GlobalThreadProc(Ptr: Pointer): DWORD;
begin
  TFindFiles(Ptr).ThreadProc();
end;

constructor TFindFiles.Create(Handle: THandle; RootFolder: string; Mask: string; Recurse: Boolean; Progress: Boolean);
begin
  fThread := BeginThread(nil, 0, @GlobalThreadProc, Self, CREATE_SUSPENDED, fThreadID);
  FHandle := Handle;
  FProgress := Progress;
  FFTerminate := False;
  if FProgress then
    Init;
end;

procedure TFindFiles.Init;
begin
  FCntFolders := 0;
  FiFolder := 0;
  FLevel := 0;
  if FProgress then
  begin
    SendMessage(FHandle, FFM_INIT, 0, 0);
    CountFolders(FRootFolder, FRecurse);
    Sendmessage(FHandle, FFM_MAXFOLDERS, FCntFolders, 0);
  end;
end;

procedure TFindFiles.CountFolders(RootFolder: string; Recurse: Boolean);
var
  hFindFile : THandle;
  wfd : TWin32FindData;
begin
  {...}
end;

procedure TFindFiles.Find(Handle: THandle; RootFolder: string; Mask: string; Recurse: Boolean = True);
var
  hFindFile : THandle;
  wfd : TWin32FindData;
begin
  {...}
end;

procedure TFindFiles.ThreadProc;
begin
  Find(FHandle, FRootFolder, FMask, FRecurse);
  SendMessage(FHandle, FFM_FINISH, 0, 0);
end;

procedure TFindFiles.FindFiles;
begin
  ResumeThread(fThread);
end;

class procedure TFindFiles.Terminate;
begin
  FFTerminate := True;
  EndThread(0);
end;