استعمال FindFirst للبحث في جميع المجلدات

كود :

procedure TForm1.Button1Click(Sender: TObject);

function SearchForFile( aDir: string; aFileName: string ): string;
var
tmpSearchRec: TSearchRec;
begin
Label1.Caption := 'Searching: ' + aDir;
Label1.Repaint;

Result := '';
if FindFirst( aDir + '*', faDirectory, tmpSearchRec ) = 0 then
repeat
if faDirectory = tmpSearchRec.Attr then
begin
if ( tmpSearchRec.name <> '.' ) and ( tmpSearchRec.name <> '..' ) then
Result := SearchForFile( aDir + tmpSearchRec.name + '\', aFileName )
end
else
if SameText( ExtractFileName( tmpSearchRec.Name ), aFileName ) then
Result := aDir + tmpSearchRec.Name;
until ( FindNext( tmpSearchRec ) <> 0 ) or ( Result <> '' );
FindClose( tmpSearchRec );
end;

begin
ShowMessage( SearchForFile( 'c:\', 'calc.exe' ));
end;

كود :

ShowMessage( SearchForFile( 'c:\', 'calc.exe' ));

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  I: Integer;
begin
  List := TStringList.Create;
  try
    for i := 0 to List.Count - 1 do
    ShowMessage(SearchForFile(List[i], 'calc.exe' ));
  finally
    List.Free;
  end;
end;

procedure GetDriveLetters(AList: TStrings);
var
  vDrivesSize: Cardinal;
  vDrives	: array[0..128] of Char;
  vDrive	 : PChar;
begin
  AList.BeginUpdate;
  try
	// clear the list from possible leftover from prior operations
	AList.Clear;
	vDrivesSize := GetLogicalDriveStrings(SizeOf(vDrives), vDrives);
	if vDrivesSize=0 then Exit; // no drive found, no further processing needed

	vDrive := vDrives;
	while vDrive^ <> #0 do
	begin
	  AList.Add(StrPas(vDrive));
	  Inc(vDrive, SizeOf(vDrive));
	end;
  finally
	AList.EndUpdate;
  end;
end;

كود :

يقوم البرنامج بلبحث عنه بداخل الجهاز كله

PHP كود :

procedure TSearchThread.FindAllFiles(const Path: string);
{ procedure searches Path subdir for files matching filespec }
var
SR: TSearchRec;
Advanced Techniques
PARTII
222
LISTING 5.9 Continued
begin
{ find first file matching spec }
if FindFirst(Path + FileSpec, faArchive, SR) = 0 then
try
repeat
SearchFile(Path + SR.Name); // process file
until (FindNext(SR) <> 0) or Terminated; // find next file
finally
SysUtils.FindClose(SR); // clean up
end;
end;
procedure TSearchThread.DoSearch(const Path: string);
{ procedure recurses through a subdirectory tree starting at Path }
var
SR: TSearchRec;
begin
{ look for directories }
if FindFirst(Path + ‘*.*’, faDirectory, SR) = 0 then
try
repeat
{ if it’s a directory and not ‘.’ or ‘..’ then... }
if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> ‘.’) and
not Terminated then
begin
FindAllFiles(Path + SR.Name + ‘\’); // process directory
DoSearch(Path + SR.Name + ‘\’); // recurse
end;
until (FindNext(SR) <> 0) or Terminated; // find next directory
finally
SysUtils.FindClose(SR); // clean up
end;
end;
end.