解压外部加密文档

Share

1. [Files]
   
2. Source: is7z.dll; DestDir: {tmp}; Flags: dontcopy
   
3. 
   
4. [Code]
   
5. var
   
6. ProgressBar : TNewProgressBar;
   
7. ExtractFile:TNewStaticText;
   
8. Button1:TButton;
   
9. 
   
10. procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass:PAnsiChar); external 'Extract7z@files:is7z.dll stdcall';
    
11. 
    
12. procedure CancelExtract; external 'CancelExtract@files:is7z.dll stdcall';
    
13. 
    
14. procedure InitializeWizard();
    
15. begin
    
16.   ProgressBar := TNewProgressBar.Create(WizardForm);
    
17.   ExtractFile:=TNewStaticText.Create(WizardForm);
    
18.   with WizardForm.ProgressGauge do
    
19.     begin
    
20.       ProgressBar.Left := Left;
    
21.       ProgressBar.Top := Top + ScaleX(55);
    
22.       ProgressBar.Width := Width;
    
23.       ProgressBar.Height := Height;
    
24.       ProgressBar.Parent := WizardForm.InstallingPage;
    
25.       ProgressBar.max := 100;
    
26.       ProgressBar.Position := 0;
    
27.       ExtractFile.parent:= WizardForm.InstallingPage;
    
28.       ExtractFile.autosize:= false;
    
29.       ExtractFile.Width := Width;
    
30.       ExtractFile.top:=Top + ScaleX(35);
    
31.       ExtractFile.caption:='解压 7zip';
    
32.     end;
    
33. end;
    
34. 
    
35. procedure Button1OnClick(Sender: TObject);
    
36. begin
    
37. CancelExtract;
    
38. end;
    
39. 
    
40. procedure CurStepChanged(CurStep: TSetupStep);
    
41. begin
    
42.   If CurStep=ssPostInstall then
    
43.    begin
    
44.     Button1:=TButton.create(WizardForm);
    
45.     Button1.parent:=WizardForm;
    
46.     Button1.width:=135;
    
47.     Button1.caption:='取消解压';
    
48.     Button1.left:=260;
    
49.     Button1.top:=WizardForm.cancelbutton.top;
    
50.     Button1.OnClick:=@Button1OnClick;
    
51.     try
    
52.      Extract7z (wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{src}') + '\1.7z', ExpandConstant('{app}'), 'mypass');    // 外部文件 1.7z，最后这个参数是它的解压密码
    
53.      Button1.visible:=false;
    
54.     except
    
55.      MsgBox('密码错误！', mbInformation, MB_OK);
    
56.      Button1.visible:=false;
    
57.     end;
    
58.    end;
    
59. end;
    

复制代码

上面的例子中，外部文件为 1.7z，它位于安装程序 setup.exe 所在的文件夹。1.7z 文件的解压密码是 mypass


不添加第二个进度条，而是直接在原来第一个进度条中显示解压外部文件进度的代码：

1. [Setup]
   
2. AppName=My Program
   
3. AppVerName=My Program version 1.5
   
4. DefaultDirName={pf}\My Program
   
5. DefaultGroupName=My Program
   
6. 
   
7. [Files]
   
8. Source: is7z.dll; DestDir: {tmp}; Flags: dontcopy
   
9. 
   
10. [Code]
    
11. var
    
12. Button1:TButton;
    
13. 
    
14. procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass:PAnsiChar); external 'Extract7z@files:is7z.dll stdcall';
    
15. procedure CancelExtract; external 'CancelExtract@files:is7z.dll stdcall';
    
16. 
    
17. procedure Button1OnClick(Sender: TObject);
    
18. begin
    
19. CancelExtract;
    
20. end;
    
21. 
    
22. procedure CurStepChanged(CurStep: TSetupStep);
    
23. begin
    
24.   If CurStep=ssPostInstall then
    
25.    begin
    
26.     Button1:=TButton.create(WizardForm);
    
27.     Button1.parent:=WizardForm;
    
28.     Button1.width:= WizardForm.cancelbutton.width;
    
29.     Button1.Height:= WizardForm.cancelbutton.Height;
    
30.     Button1.caption:='取消解压';
    
31.     Button1.left:= 290;
    
32.     Button1.top:=WizardForm.cancelbutton.top;
    
33.     Button1.OnClick:=@Button1OnClick;
    
34.     WizardForm.StatusLabel.Caption:= '正在解压外部 7zip 文件，请稍候...';
    
35.     try
    
36.      Extract7z (wizardform.handle, WizardForm.ProgressGauge.handle, WizardForm.FileNameLabel.handle, ExpandConstant('{src}') + '\1.7z', ExpandConstant('{app}'), 'mypass');    // 外部文件 1.7z，最后这个参数是它的解压密码
    
37.      Button1.visible:=false;
    
38.     except
    
39.      MsgBox('密码错误！', mbInformation, MB_OK);
    
40.      Button1.visible:=false;
    
41.     end;
    
42.    end;
    
43. end;

复制代码