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:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:

unit scandirs_t;

interface

uses
  Classes, Windows, SysUtils, StdCtrls;

type
  TStringDynArray = array of string;

type
  scandirs = class(TThread)
  private
    drs : String;
    memFiles : TMemo;
    drives : TStringDynArray;
    dList : TStringList;
    { Private-Deklarationen }
  protected
    procedure Execute; override;
    procedure UpdateList;
  public
    constructor Create(dr : String; memF : TMemo);
  end;

implementation

{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen 
  nur in einer Methode namens Synchronize aufgerufen werden, z.B.

      Synchronize(UpdateCaption);

  und UpdateCaption könnte folgendermaßen aussehen:

    procedure scandirs.UpdateCaption;
    begin
      Form1.Caption := 'Aktualisiert in einem Thread';
    end; }

{ scandirs }

{explode funktion aus der faq vom df:}

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := StrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5); // mehrere auf einmal um schneller arbeiten zu können
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index); // wirkliche Länge festlegen
end;

procedure GetFilesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean);
var  
  SR: TSearchRec;  
begin  
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then  
    ADirectory:=ADirectory+'\';  

 
  if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin  
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          AList.Add(ADirectory+SR.Name)  
    until FindNext(SR)<>0;
  end;



  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then  
    begin  
      repeat  
        if (SR.Name<>'.') and (SR.Name<>'..') then  
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);  
      until FindNext(SR)<>0;
    end;
    FindClose(SR);
end;


constructor scandirs.Create(dr : String; memF : TMemo);
begin
    memFiles := memF;
    drs := dr;
    FreeOnTerminate := True;
    inherited Create(False);
end;

procedure scandirs.UpdateList;
begin
    memFiles.Lines.AddStrings(dList);
end;

procedure scandirs.Execute;
var i : Integer;
begin
    drives := explode(',',drs);
    dList := TStringList.Create;
    for i := 0 to High(drives) do
      begin
          GetFilesInDirectory(drives[i],'*',dList,True);
          Synchronize(UpdateList);
          dList.Clear;
      end;
    dList.Free;
end;

end.