Inno Setup 安装时隐藏安装路径

Share

在 InitializeWizard 里面放置WizardForm.FilenameLabel.Visible := false;


不要显示安装路径，但是只要显示文件名，则请参考以下代码。

1. [Files]
   
2. Source: "E:iles*.*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs; AfterInstall: DisplayFileName
   
3. 
   
4. [Code]
   
5. var
   
6.   myLabel: TNewStaticText;
   
7. 
   
8. procedure InitializeWizard();
   
9. begin
   
10.   WizardForm.FilenameLabel.Visible := false;
    
11.   MyLabel := TNewStaticText.Create(WizardForm.InstallingPage);
    
12.   MyLabel.Parent := WizardForm.InstallingPage;
    
13.   MyLabel.Top := WizardForm.FilenameLabel.Top;
    
14.   MyLabel.Left := WizardForm.FilenameLabel.Left;
    
15.   MyLabel.Width := WizardForm.FilenameLabel.Width;
    
16.   MyLabel.Visible := True;
    
17.   MyLabel.Caption := '';
    
18. end;
    
19. 
    
20. procedure DisplayFileName();
    
21. begin
    
22.   MyLabel.Caption := ExtractFileName(CurrentFileName);
    
23. end;
    

复制代码