查找文件路径-送分50(FindFileInTree函数如何使用？) (50分)

tianlianglm · 2001-11-15

FindFileInTreeh函数如何使用？

zhihuali · 2001-11-15

有这个函数吗？

卷起千堆雪tyn · 2001-11-15

>查找文件路径：   用ExtractFilePath(....);

duckstar · 2001-11-15

你是不是想查找一个文件在磁盘中的路径？这里有一个函数，你可以试试看（作者不是我， 我只是作了一点改动）。 function TMyProc.SearchFile(mainpath, filename: string;   var foundresult: TStrings): Boolean; var   i: integer;   Found: Boolean;   subdir1: TStrings;   searchRec: TsearchRec; begin   if GetStrRight(mainpath, 1) <> '/' then mainpath := mainpath + '/';//实际上就是看最后是否是“/”符号，你可以自己写一个   found := False;   if Trim(filename) <> '' then   begin     subdir1 := TStringList.Create;     if (FindFirst(mainpath + '*.*', faDirectory, SearchRec) = 0) then     begin       if (DirectoryExists(mainpath + SearchRec.Name)) and (SearchRec.Name <> '.')         and (SearchRec.Name <> '..') then subdir1.Add(SearchRec.Name);       while (FindNext(SearchRec) = 0) do       begin         if (DirectoryExists(mainpath + SearchRec.Name)) and (SearchRec.Name <> '.')           and (SearchRec.Name <> '..') then subdir1.Add(SearchRec.Name);       end;     end;     FindClose(SearchRec);     //查找当前目录。     if (FindFirst(mainpath + filename, faAnyFile - faDirectory, SearchRec) = 0) then     begin       foundresult.Add(mainpath + SearchRec.Name);       while (FindNext(SearchRec) = 0) do       begin         foundresult.Add(mainpath + SearchRec.Name);       end;     end;     FindClose(SearchRec);     for i := 0 to subdir1.Count - 1 do       found := Searchfile(mainpath + subdir1.Strings + '/', Filename, foundresult) or found;     subdir1.Free;   end;   Result := found; end;

antic_ant · 2001-11-15

阿笨瓜 · 2001-11-15

GetCurrentDir 就可以取到可知行文见得路径啊！

tianlianglm · 2001-11-15

函数（？）应该是FindFileInTree，我是在delphi帮助windows SDK中找到的， 我是想在某个目录下查找一个绝对文件名的路径，千堆雪兄的用法不可行，我早试过， duckstar兄的段子是否太累？Thanks!

duckstar · 2001-11-15

呵呵，SDK里的确有这个函数，不过我也不知道该怎么用，那段程序的确有点浪费，见笑了。

牧羊狐 · 2001-11-16

procedure TForm1.Button1Click(Sender: TObject); begin   label1.Caption := FindFileInTree('example.dll); end; 报错： [Error] Unit1.pas(28): 未说明标识符: 'FindFileInTree' 是不是要引用什么？

chur · 2001-11-17

1．获取当前目录下的所有下一级子目录，2．存入字符串列表中（Tstrings）。 其中，用到了几个API函数。 FindFirst是找出指定目录下第一个文件或目录。 FindNext一般和FindFirst配合使用，用来找出下一个文件或目录。 FindClose用来关闭查询。 （以上函数Delphi在线帮助中有详尽解释，在此不赘述）； 3．用FileExists函数查找当前目录， 4．寻找是否有满足条件的文件存在。 5．依次使各个子目录成为当前目录， 6．递归调用本函数。 7．释放资源， 8．返回查询结果。 代码如下： 1．从搜索记录中判断是否是子目录。 function IsValidDir(SearchRec:TSearchRec):Boolean; begin  if (SearchRec.Attr=16)and(SearchRec.Name<>'.')and(SearchRec.Name<>'..') then   Result:=True  else   Result:=False; end; 2．这是查询主体函数。 参数介绍： Mainpath：指定的查询目录。 Filename：欲查询的文件。 Foundresult：返回的含完整路径的匹配文件（可能有多个）。 如果有匹配文件，函数返回True，否则，返回False; function SearchFile(mainpath:string;filename:string; var foundresult:TStrings):Boolean; var  i:integer;  Found:Boolean;  subdir1:TStrings;  searchRec:TsearchRec; begin  found:=false;  if Trim(filename)<>'' then  begin   subdir1:=TStringList.Create;//字符串列表必须动态生成   //找出所有下级子目录。  if (FindFirst(mainpath+'*.*',faDirectory,SearchRec)=0) then  begin   if IsValidDir(SearchRec) then    subdir1.Add(SearchRec.Name);   while (FindNext(SearchRec) = 0) do   begin    if IsValidDir(SearchRec) then     subdir1.Add(SearchRec.Name);   end;  end;  FindClose(SearchRec);  //查找当前目录。  if FileExists(mainpath+filename) then  begin   found:=true;   foundresult.Add(mainpath+filename);  end;  //这是递归部分，查找各子目录。  for i:=0 to subdir1.Count-1 do  found:=Searchfile(mainpath+subdir1.Strings+,'/',Filename,foundresult)or found;  //资源释放并返回结果。  subdir1.Free;  end;  result:=found; end;

花 儿 · 2001-11-17

给你一个我以前做过的查找软件的一部分。 这种查找的最好用多线程！：） unit SrchU; interface uses Classes, StdCtrls,ComCtrls; type   TSearchThread = class(TThread)   private     CaseSens: Boolean;     FileNames: Boolean;     Recurse: Boolean;     SearchStr: string;     SearchPath: string;     FileSpec: string;     AddStr: string;     FSearchFile: string;     procedure AddToList;     procedure DoSearch(const Path: string);     procedure FindAllFiles(const Path: string);     procedure FixControls;     procedure ScanForStr(const FName: string; var FileStr: string);     procedure SearchFile(const FName: string);     procedure SetSearchFile;   protected     procedure Execute; override;   public     constructor Create(CaseS, FName, Rec: Boolean; const Str, SPath,       FSpec: string);     destructor Destroy; override;   end; implementation uses SysUtils, StrUtils, Windows, Forms, Main,shellapi; constructor TSearchThread.Create(CaseS, FName, Rec: Boolean; const Str,   SPath, FSpec: string); begin   CaseSens := CaseS;   FileNames := FName;   Recurse := Rec;   SearchStr := Str;   SearchPath := AddBackSlash(SPath);   FileSpec := FSpec;   inherited Create(False); end; destructor TSearchThread.Destroy; begin   FSearchFile := '';   Synchronize(SetSearchFile);   Synchronize(FixControls);   inherited Destroy; end; procedure TSearchThread.Execute; begin   FreeOnTerminate := True;   Priority := TThreadPriority(MainForm.SearchPri);   if not CaseSens then SearchStr := UpperCase(SearchStr);   FindAllFiles(SearchPath);   if Recurse then     DoSearch(SearchPath); end; procedure TSearchThread.FixControls; begin   MainForm.EnableSearchControls(True);   mainform.PB.Position :=0; end; procedure TSearchThread.SetSearchFile; begin   MainForm.StatusBar.Panels[0].Text := '搜索到符合条件的文件有:'+inttostr(MainForm.lbFiles.Items.count)+'个';   MainForm.StatusBar.Panels[1].Text := FSearchFile;   mainform.PB.Max :=mainform.lbFiles.Items.Count;   mainform.PB.StepIt; end; procedure TSearchThread.AddToList; var   Listitem:TlistItem;   PcAddStr

char; begin   listitem:=mainform.lbFiles.Items.Add;   if ExtractFileExt(StrUpper(Pchar(AddStr)))='.TXT' then   Listitem.ImageIndex:=2;   listitem.SubItems.Add(ExtractFileName(AddStr));   listitem.SubItems.Add(AddStr);   PcAddStr:=Pchar(AddStr);     if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_READONLY then   Listitem.SubItems.Add('只读');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_HIDDEN then   Listitem.SubItems.Add('隐藏');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_ARCHIVE then   Listitem.SubItems.Add('存档');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_ARCHIVE then   Listitem.SubItems.Add('隐藏+存档');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_READONLY+FILE_ATTRIBUTE_HIDDEN then   Listitem.SubItems.Add('只读+隐藏');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_READONLY+FILE_ATTRIBUTE_ARCHIVE then   Listitem.SubItems.Add('只读+存档');   if GetFileAttributes(PcAddStr)=FILE_ATTRIBUTE_READONLY+FILE_ATTRIBUTE_ARCHIVE+FILE_ATTRIBUTE_HIDDEN then   Listitem.SubItems.Add('只读+存档+隐藏'); end; procedure TSearchThread.ScanForStr(const FName: string;   var FileStr: string); var   Marker: string[1];   FoundOnce: Boolean;   FindPos: integer; begin   FindPos := Pos(SearchStr, FileStr);   FoundOnce := False;   while (FindPos <> 0) and not Terminated do   begin     if not FoundOnce then     begin       if FileNames then         Marker := ''       else         Marker := ':';       AddStr := Format('%s%s', [FName, Marker]);       Synchronize(AddToList);       FoundOnce := True;     end;     if FileNames then Exit;     AddStr := GetCurLine(FileStr, FindPos);     Synchronize(AddToList);     FileStr := Copy(FileStr, FindPos + Length(SearchStr),       Length(FileStr));     FindPos := Pos(SearchStr, FileStr);   end; end; procedure TSearchThread.SearchFile(const FName: string); var   DataFile: THandle;   FileSize: Integer;   SearchString: string; begin   FSearchFile := FName;   Synchronize(SetSearchFile);   try     DataFile := FileOpen(FName, fmOpenRead or fmShareDenyWrite);     if DataFile = 0 then raise Exception.Create('');     try       FileSize := GetFileSize(DataFile, nil);       SetLength(SearchString, FileSize);       FileRead(DataFile, Pointer(SearchString)^, FileSize);     finally       CloseHandle(DataFile);     end;     if not CaseSens then SearchString := UpperCase(SearchString);     ScanForStr(FName, SearchString);   except     on Exception do     begin       AddStr := Format('Error reading file: %s', [FName]);       Synchronize(AddToList);     end;   end; end; procedure TSearchThread.FindAllFiles(const Path: string); var   SR: TSearchRec; begin   if FindFirst(Path + FileSpec, faArchive+faHidden, SR) = 0 then     try       repeat         SearchFile(Path + SR.Name);       until (FindNext(SR) <> 0) or Terminated;     finally       SysUtils.FindClose(SR);     end; end; procedure TSearchThread.DoSearch(const Path: string); var   SR: TSearchRec; begin   if FindFirst(Path + '*.*', faDirectory, SR) = 0 then     try       repeat         if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') and           not Terminated then         begin           FindAllFiles(Path + SR.Name + '/');           DoSearch(Path + SR.Name + '/');         end;       until (FindNext(SR) <> 0) or Terminated;     finally       SysUtils.FindClose(SR);     end; end; end.

tianlianglm · 2001-11-17

难道FindFileInTree函数真的不可用？？？

YB_unique · 2001-11-17

没见过这个函数！ 给你一个等效函数： uses SysUtils; function GetFileLocation(const Filename: string; StartAt: string): string;   procedure Traverse(const AFolder: string);   var SearchRec: TSearchRec;   begin     if Result <> '' then Exit;     if FindFirst(AFolder+'*', faAnyFile, SearchRec) = 0 then     try       repeat         if (SearchRec.Name[1] <> '.') then           if SearchRec.Attr AND faDirectory > 0 then             Traverse(AFolder + SearchRec.Name + '/')          else           if AnsiCompareText(SearchRec.Name, Filename) = 0 then             Result := AFolder + SearchRec.Name;       until (FindNext(SearchRec) <> 0) or (Result <> '');     finally       FindClose(SearchRec);     end;   end; begin   Result := '';   if StartAt[Length(StartAt)] <> '/' then StartAt := StartAt + '/';   Traverse(StartAt); end; Example: GetFileLocation('find.me', 'C:/')

tianlianglm · 2001-11-17

上面说过了，FindFileInTree函数是SDK里提供的，说明非常清楚的，只是使用时提示未说明标识符，我在use 中把含api的pas 都试加了一次，都不行，Why?

delphiwolf · 2001-11-18

FindFileInPath The FindFileInPath function is used to locate a symbol file. BOOL FindFileInPath(   HANDLE hprocess,   LPSTR  SearchPath,   LPSTR  FileName,   PVOID  id,   DWORD  two,   DWORD  three,   DWORD  flags,   LPSTR  FilePath ); Parameters hprocess [in] Handle to the process that was originally passed to the SymInitialize function. SearchPath [in] Pointer to a null-terminated string that specifies the path where symbol files are located. This can be multiple paths separated by semicolons. If this parameter is NULL, the function uses the symbol path set using the SymSetSearchPath function. FileName [in] Pointer to a null-terminated string that specifies the name of the file. You can use a partial path. id [in] The first of three identifying parameters (see Remarks). two [in] The second of three identifying parameters (see Remarks). three [in] The third of three identifying parameters (see Remarks). flags [in] Specifies the format of the id parameter. This parameter can be one of the following values. Value Meaning SSRVOPT_DWORD The id parameter is a DWORD. SSRVOPT_DWORDPTR The id parameter is a pointer to a DWORD. SSRVOPT_GUIDPTR The id parameter is a pointer to a GUID. FilePath [out] A buffer of _MAX_PATH bytes that receives the fully qualified path to the symbol file. Return Values If the server locates a valid symbol file, it returns TRUE; otherwise, it returns FALSE and GetLastError returns a value that indicates why the symbol file was not returned. Remarks The identifying parameters are filled in as follows: If DbgHelp is looking for a .dbg file, the id parameter specifies the TimeDateStamp of the original image as found in its PE header. Parameter two specifies the SizeOfImage field, also extracted from the PE header. Parameter three is unused and set to zero. If DbgHelp is looking for a .pdb file, the id parameter specifies the PDB signature as found in the codeview debug directory of the original image. Parameter two specifies the PDB age. Parameter three is unused and set to zero. If DbgHelp is looking for any other type of image, such as an executable file, the id parameter specifies the TimeDateStamp of the original image as found in its PE header. Parameter two specifies the SizeOfImage field, also extracted from the PE header. Parameter three is unused and set to zero. Requirements   Windows NT/2000: Requires Windows NT 4.0 or later.   Windows 95/98: Requires Windows 95 or later.   Version: Requires Whistler DbgHelp.dll.   Header: Declared in DbgHelp.h.   Library: Use Dbghelp.lib. See Also Debug Help Library Overview, DbgHelp Functions, SymInitialize, SymSetSearchPath Built on Monday, July 24, 2000

tianlianglm · 2001-12-11

过几天结束此问题，不过想不通，难道FindFileInTree函数真的不可用？？？

zzjat · 2002-08-01

加入shellapi就可以了

查找文件路径-送分50(FindFileInTree函数如何使用？) (50分)

tianlianglm

Unregistered / Unconfirmed

zhihuali

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

duckstar

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

阿笨瓜

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

duckstar

Unregistered / Unconfirmed

牧羊狐

Unregistered / Unconfirmed

chur

Unregistered / Unconfirmed

花儿

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

zzjat

Unregistered / Unconfirmed

Similar threads

查找文件路径-送分50(FindFileInTree函数如何使用？) (50分)

tianlianglm

Unregistered / Unconfirmed

zhihuali

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

duckstar

Unregistered / Unconfirmed

antic_ant

Unregistered / Unconfirmed

阿笨瓜

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

duckstar

Unregistered / Unconfirmed

牧羊狐

Unregistered / Unconfirmed

chur

Unregistered / Unconfirmed

花 儿

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

delphiwolf

Unregistered / Unconfirmed

tianlianglm

Unregistered / Unconfirmed

zzjat

Unregistered / Unconfirmed

Similar threads

花儿