Поток - Thread, как с ним работать - Delphi - Ответ 3267065

unit Unit2;
 
interface
 
uses
  Classes, ComCtrls;
 
type
  TMyThread = class(TThread)
  private
    FItem : TTreeNode;
    FStr : string;
    { Private declarations }
    procedure GetDirectories(Directory: string;
                             Item: TTreeNode; IncludeFiles: Boolean);
  protected
    procedure Execute; override;
 
    procedure SyncStart;
    procedure SyncWork;
    procedure SyncFinish;
  end;
 
implementation
uses SysUtils, Unit1;
 
{ TMyThread }
procedure TMyThread.SyncStart;
begin
   Form1.TreeView1.ClearSelection(False);
   Form1.TreeView1.Items.Clear;
   Form1.TreeView1.Items.BeginUpdate;
end;
procedure TMyThread.SyncWork;
begin
   FItem := Form1.TreeView1.Items.AddChild(FItem, FStr);
end;
 
procedure TMyThread.SyncFinish;
begin
   Form1.TreeView1.Items.EndUpdate;
   Form1.StatusBar1.Panels[4].Text := 'Автопоиск - завершен!';
end;
 
procedure TMyThread.Execute;
var
   Dirt : string;
begin
   Synchronize(SyncStart);
   Dirt := 'С:\';
 
   GetDirectories(Dirt, nil, True);
   Synchronize(SyncFinish);
end;
 
procedure TMyThread.GetDirectories(Directory: string;
                    Item: TTreeNode; IncludeFiles: Boolean);
var
  SearchRec: TSearchRec;
  ItemTemp: TTreeNode;
begin
   Directory := IncludeTrailingPathDelimiter(Directory);
   if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then
   begin
      repeat
         if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
         begin
            if (SearchRec.Attr and faDirectory > 0) then
            begin
               FItem := Item; FStr := SearchRec.Name;
               Synchronize(SyncWork);
               // Item := Tree.Items.AddChild(Item, SearchRec.Name);
               Item := FItem;
            end;
            ItemTemp := Item.Parent;
            GetDirectories(Directory + SearchRec.Name, Item, IncludeFiles);
            Item := ItemTemp;
         end
         else if IncludeFiles then
            if SearchRec.Name[1] <> '.' then
            begin
               FItem := Item; FStr := Copy(SearchRec.Name, 1, Length(SearchRec.Name) - 4);
               Synchronize(SyncWork);
               // Tree.Items.AddChild(Item, Copy(SearchRec.Name,1,length(SearchRec.Name)-4));
            end;
      until FindNext(SearchRec) <> 0;
      FindClose(SearchRec);
   end;
end;
 
end.