如何浏览文件

Share

1. #ifdef Unicode
   
2. #define A "W"
   
3. #else
   
4. #define A "A"
   
5. #endif
   
6. 
   
7. [Setup]
   
8. AppName=BrowseFile
   
9. AppVerName=BrowseFile
   
10. DefaultDirName=BrowseFile
    
11. DisableStartupPrompt=true
    
12. Uninstallable=false
    
13. Compression=bzip
    
14. CreateAppDir=false
    
15. DisableProgramGroupPage=true
    
16. 
    
17. [Tasks]
    
18. Name: askini; Description: 选择一个自定义 INI 文件; GroupDescription: 配置:
    
19. 
    
20. [Code]
    
21. type
    
22.   TOpenFileName = record
    
23.     lStructSize: Longint;
    
24.     hwndOwner: Longint;
    
25.     hInstance: Longint;
    
26.     lpstrFilter: String;
    
27.     lpstrCustomFilter: String;
    
28.     nMaxCustFilter: Longint;
    
29.     nFilterIndex: Longint;
    
30.     lpstrFile: String;
    
31.     nMaxFile: Longint;
    
32.     lpstrFileTitle: String;
    
33.     nMaxFileTitle: Longint;
    
34.     lpstrInitialDir: String;
    
35.     lpstrTitle: String;
    
36.     Flags: Longint;
    
37.     nFileOffset: Word;
    
38.     nFileExtension: Word;
    
39.     lpstrDefExt: String;
    
40.     lCustData: Longint;
    
41.     lpfnHook: Longint;
    
42.     lpTemplateName: String;
    
43.   end;
    
44. 
    
45. function GetOpenFileName(var lpofn: TOpenFileName): Boolean; external
    
46. 'GetOpenFileName{#A}@comdlg32.dll';
    
47. 
    
48. Const OFN_HIDEREADONLY = $4;
    
49. 
    
50. function NextButtonClick(CurPage: Integer): Boolean;
    
51. var
    
52.   F: TOpenFileName;
    
53.   S: String;
    
54.   z : char;
    
55.   hwnd: Longint;
    
56. begin
    
57.   // by default go to next page
    
58.   Result := true;
    
59.   z := Chr(0);
    
60.   hwnd := StrToInt(ExpandConstant('{wizardhwnd}'));
    
61.   // if curpage is wpSelectTasks
    
62.   if CurPage = wpSelectTasks then
    
63.   begin
    
64.     if IsTaskSelected('askini') then
    
65. begin
    
66.       // set defailt file
    
67.       S := 'config.ini';
    
68.       // get enough space
    
69.       SetLength(S, 512);
    
70.       // set wizard HWND as owner
    
71.       F.hwndOwner := hwnd;
    
72.       // set structure size
    
73.       F.lStructSize := 76;
    
74.       // set S buffer for filename
    
75.       F.lpstrFile := S;
    
76.       F.nMaxFile := Length(S);
    
77.       // set dialog title
    
78.       F.lpstrTitle := '选择配置文件';
    
79.       // set filters
    
80.       F.lpstrFilter := 'INI 文件 (*.ini)' + z + '*.ini' + z +
    
81.                        '所有文件 (*.*)' + z + '*.*' + z + z ;
    
82.       // set flags
    
83.       F.Flags := OFN_HIDEREADONLY;
    
84.       // set initial dir as system
    
85.       F.lpstrInitialDir := ExpandConstant('{sys}');
    
86.       if GetOpenFileName(F) then begin
    
87.         MsgBox( '你选择的文件是:'+ #13#10 + #13#10 + S , mbInformation, MB_OK );
    
88.         Result := true;
    
89.       end
    
90.       else
    
91.        Result := false;
    
92.     end;
    
93.   end;
    
94. end;

复制代码