杉宫竹苑工作室

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2262|回复: 0

inno setup 跳过(Welcome)欢迎界面

[复制链接]
发表于 2015-2-6 13:02:14 | 显示全部楼层 |阅读模式

正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!

您需要 登录 才可以下载或查看,没有账号?立即注册

x
在InnoSetup中,我们很容易用 function ShouldSkipPage(CurPage: Integer): Boolean; 来跳过一些页面,但是Welcome Page是无法用这个函数来跳过的。如果一定要实现这样的功能,可以用消息来模拟鼠标按键,参考下面例程:

  1. [Code]

  2. const
  3.   WM_LBUTTONDOWN = 513;
  4.   WM_LBUTTONUP = 514;

  5. procedure InitializeWizard();
  6. begin
  7.   if (Pos('/SP-', UpperCase(GetCmdTail)) > 0) then
  8.   begin
  9.     PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONDOWN,0,0);
  10.     PostMessage(WizardForm.NextButton.Handle,WM_LBUTTONUP,0,0);
  11.   end;
  12. end;

  13. procedure CurPageChanged(CurPageID: Integer);
  14. begin
  15.   if (Pos('/SP-', UpperCase(GetCmdTail)) > 0) and
  16.      (CurPageID = wpSelectComponents) then
  17.     WizardForm.BackButton.Visible := False;
  18. end;
复制代码


或者:方案二:

  1. [Code]
  2. procedure CurPageChanged(CurPageID: Integer);
  3. begin
  4.     if CurPageID = wpWelcome then
  5.     WizardForm.NextButton.OnClick(WizardForm);
  6. end;
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|手机版|Archiver|SgzyStudio

GMT+8, 2024-5-7 17:27 , Processed in 0.109297 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表