inno setup检查是否已经安装

inno setup检查是否已经安装

 

inno setup没有installshield那么智能，会自动帮你检测软件是否安装，安装就弹出提示框，提示卸载。

但是有相关的脚本可以做这个事情：

function InitializeSetup():Boolean;   

var  

  KeynotExist:boolean;   

  ResultCode: Integer;   

  uicmd: String;   

begin   

  KeynotExist::= true;   

  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWAREMicrosoftWindowsCurrentVersionUninstall{82F7DF54-E485-4011-83FE-FFC558F3DB86}_is1', 'UninstallString', uicmd) then   

  begin   

  KeynotExist:= false;   

  Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);   

  end;   

  Result:= KeynotExist   

end;  

记得将红色部分替换成你的appid就可以，appid是inno setup为你的程序生成的id是唯一的。不要将上面的function改成procedure。

完

 

版权所有，禁止转载. 如需转载，请先征得博主的同意，并且表明文章出处，否则按侵权处理.