황현동 wrote:

> 어느 디렉토리안에서 파일을 찾는것이 아니라.

> 드라이브에 내가 원하는 파일을 모조리 찾아내고 싶은데..

> FINDFIRST 라는 함수가 있는데.. 이것은 디렉토리안에 있는것만이네여..

> 드라이브 전체에서 찾으려면..

> 드라이브에 있는 모든 디렉토리 알아네서.. 저기 FINDFIRST로 찾아야 하는건가요??

> (이건뭐지??)

> 하드에 있는거 찾고 싶은데..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

ListBox1: TListBox;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

FScanAborted: Boolean;

public

{ Public declarations }

function ScanDrive(root, filemask: String; hitlist: TStrings): Boolean;

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function TForm1.ScanDrive(root, filemask: String; hitlist: TStrings): Boolean;

function ScanDirectory(var path: String): Boolean;

var

SRec: TSearchRec;

pathlen: Integer;

res: Integer;

begin

Label1.caption := path;

pathlen:= Length(path);



res := FindFirst(path+filemask, faAnyfile, SRec);

if res = 0 then

try

while res = 0 do

begin

hitlist.Add(path + SRec.Name);

res := FindNext(SRec);

end;

finally

FindClose(SRec)

end;

Application.ProcessMessages;

Result := not (FScanAborted or Application.Terminated);

if not Result then Exit;



res := FindFirst(path+'*.*', faDirectory, SRec);

if res = 0 then

try

while (res = 0) and Result do

begin

if ((Srec.Attr and faDirectory) = faDirectory) and

(Srec.name <> '.') and

(Srec.name <> '..') then

begin

path := path + SRec.name + '';

Result := ScanDirectory(path);

SetLength(path, pathlen);

end;

res := FindNext(SRec);

end;

finally

FindClose(SRec)

end;

end;

begin

FScanAborted := False;

Screen.Cursor := crHourglass;

try

Result := ScanDirectory(root);

finally

Screen.Cursor := crDefault

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

ch: Char;

root: String;

begin

root := 'C:';

for ch := 'A' to 'Z' do

begin

root[1] := ch;

case GetDriveType(Pchar(root)) Of

DRIVE_FIXED, DRIVE_REMOTE:

if not ScanDrive(root, edit1.text, listbox1.items) then

Break;

end;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

fScanAborted := True;

end;



end.