注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

分享,态度 ·~~

—— 十年太长,五年;如果可以回到五年前,你最想对那时候的自己说什么?

 
 
 

日志

 
 

Inno Setup设定只运行一个安装包  

2010-03-09 14:52:06|  分类: InnoSetup |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

在安装包中,经常会有用户点击多次安装的情况发生,即运行了多个安装文件。

而InnoSetup可以判断安装包是否在运行,并退出重复的安装包程序,从而阻止了多个安装包同时运行的情况。

下面【Code】中,InitializeSetup为系统函数,'Setup - Startup Page' 即是你安装包的WindowName(Title),或者也可以用Window Spy之类的软件获取。

Inno Setup设定只运行一个安装包 - 乂乂 - 一个人,一支烟  ·~~

[Code]
function InitializeSetup(): boolean;
var
  SetupRunning: Integer;
begin
  result := true;
  SetupRunning:=FindWindowByWindowName('Setup - Startup Page');
  while SetupRunning<>0 do
  begin
    if Msgbox('The "Startup Page" Setup program is already running....', mbInformation, MB_OK) = IDOK then
      begin
        result := false;
        SetupRunning := 0;
      end else begin
        result := true;
        SetupRunning:=FindWindowByWindowName('Setup - Startup Page');
      end;
  end;
  end;

  评论这张
 
阅读(2468)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017