(Inno setup打包)检测系统是否已安装程序,若已安装则弹出卸载提示的代码

原文 http://bbs.itiankong.com/thread-30983-1-5.html

有6天没研究pascal代码了,昨天晚上突然来了灵感,终于解决了苦思冥想好几天没能解决的问题,
因此将代码贴出来供大家批评指正,用Inno Setup打包时用得上。

  1. function InitializeSetup():boolean;
  2. var
  3. MykeynotExist:boolean;
  4. ResultCode: Integer;
  5. uicmd: String;
  6. begin
  7. MykeynotExist:= true;
  8. if RegQueryStringValue(HKEY_LOCAL_MACHINE,
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{49D79F54-D485-4011-83FE-FFC938F3DB86}_is1',
    'UninstallString', uicmd) then
  9. begin
  10. MyKeynotExist:= false;
  11. Exec(RemoveQuotes(uicmd), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  12. end;
  13. Result:= MykeynotExist
  14. end;

复制代码

原理是探测HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
(也即是反映在“添加/删除程序”中的卸载项目)中的卸载项目,若检测到则启动卸载确认对话框。
在实际应用的时候,各位需要将我代码中“{49D79F54-D485-4011-83FE-FFC938F3DB86}”,
修改成自己脚本中的AppId。

上一篇:GoogLeNet解读


下一篇:变量声明内表操作