Inno Setup 在目录或子文件夹中查找文件

admin

1. [Setup]
   
2. AppName=我的程序
   
3. AppVerName=我的程序 版本 1.5
   
4. DefaultDirName={pf}\我的程序
   
5. DefaultGroupName=我的程序
   
6. 
   
7. [Code]
   
8. var sDir: string;
   
9.   filefounded: boolean;
   
10. 
    
11. procedure RecursiveFileSearch(BeginDir, FilePattern: string);
    
12. var FR: TFindRec;
    
13. begin
    
14.   if FindFirst(BeginDir+'\'+FilePattern, FR) then begin  //搜索目录中的文件
    
15.       try
    
16.       repeat
    
17.         if FR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
    
18.           begin
    
19.           sDir:= BeginDir;
    
20.           filefounded:= true;
    
21.           Exit;
    
22.           end
    
23.       until not FindNext(FR);
    
24.       finally
    
25.         FindClose(FR);
    
26.     end;
    
27.   end;
    
28.   
    
29.   if FindFirst(BeginDir+'\*', FR) then begin   //搜索目录中的子目录
    
30.     try
    
31.       repeat
    
32.         if (FR.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FR.Name<>'.') and (FR.Name<>'..') then
    
33.             RecursiveFileSearch(BeginDir+'\'+FR.Name, FilePattern);      //在子目录中继续搜索文件
    
34.       until not FindNext(FR);
    
35.     finally
    
36.       FindClose(FR);
    
37.     end;
    
38.   end;
    
39. end;
    
40. 
    
41. procedure InitializeWizard ();
    
42. begin
    
43. sDir:= '';
    
44. filefounded:= false;
    
45. RecursiveFileSearch('E:\', '自定义窗口.iss');    // 开始搜寻的位置以及要搜寻的文件名
    
46. if filefounded then
    
47.   if MsgBox('找到文件在: ' + sDir + #10#13 + '你想要删除该文件夹吗？', mbConfirmation, MB_YESNO) = IDYES then
    
48.     DelTree(sDir, true, true, true);
    
49. end;

复制代码