论坛风格切换切换到宽版
  • 2895阅读
  • 7回复

虎版主,怎么隐藏inno安装进度的文件名和安装路径。 [复制链接]

上一主题 下一主题
离线magicfish
 

发帖
1
金钱
10
威望
1
只看楼主 倒序阅读 0 发表于: 2015-01-06

我想隐藏进度条上方的,安装路径有办法实现吗?谢谢斑竹大人。
离线spser

发帖
30
金钱
300
威望
30
只看该作者 1 发表于: 2015-02-02
WizardForm.FilenameLabel.Visible := false;

放在 InitializeWizard里面.
离线qqjszl

发帖
123
金钱
1180
威望
118
只看该作者 2 发表于: 2015-02-22
回 1楼(spser) 的帖子
spser:WizardForm.FilenameLabel.Visible := false;放在 InitializeWizard里面. (2015-02-02 20:11) 

能否给一个具体的脚本示例?
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 3 发表于: 2015-02-23
1 楼的方法是完全隐藏所安装的文件的信息。
但是如果楼主的意思是不要显示安装路径,但是只要显示文件名,则请参考以下代码。

[Files]
Source: "E:\files\*.*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs; AfterInstall: DisplayFileName

[Code]
var
  myLabel: TNewStaticText;

procedure InitializeWizard();
begin
  WizardForm.FilenameLabel.Visible := false;
  MyLabel := TNewStaticText.Create(WizardForm.InstallingPage);
  MyLabel.Parent := WizardForm.InstallingPage;
  MyLabel.Top := WizardForm.FilenameLabel.Top;
  MyLabel.Left := WizardForm.FilenameLabel.Left;
  MyLabel.Width := WizardForm.FilenameLabel.Width;
  MyLabel.Visible := True;
  MyLabel.Caption := '';

end;

procedure DisplayFileName();
begin
  MyLabel.Caption := ExtractFileName(CurrentFileName);
end;

离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 4 发表于: 2015-02-23

离线2015

发帖
48
金钱
459
威望
46
只看该作者 5 发表于: 2015-07-06
回 4楼(gnatix) 的帖子
版主,WizardForm.FilenameLabel.Visible := false;用这个方法会隐藏进度条吗?文件信息可以不要的,但要保留进度条可以吗




离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 6 发表于: 2015-07-07
WizardForm.FilenameLabel.Visible := false;
用于隐藏所安装的文件的信息,进度条还是显示。
离线2015

发帖
48
金钱
459
威望
46
只看该作者 7 发表于: 2015-07-07
回 6楼(gnatix) 的帖子
嗯,确定是这样的,谢啦