.net框架检测,重复安装检测

admin

1. ; 脚本由 Inno Setup 脚本向导 生成！
   
2. ; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！
   
3. 
   
4. #define MyAppName "小小鸟软件"
   
5. #define MyAppVersion "2012.2.29"
   
6. #define MyAppPublisher "小小鸟科技"
   
7. #define MyAppURL "http://www.cnblogs.com/IT-SmallBird/"
   
8. #define MyAppExeName "IT.exe"
   
9. #define MyWebName "访问小小鸟博客"
   
10. 
    
11. [Setup]
    
12. ; 注: AppId的值为单独标识该应用程序。
    
13. ; 不要为其他安装程序使用相同的AppId值。
    
14. ; (生成新的GUID，点击 工具|在IDE中生成GUID。)
    
15. AppId={{F5F13326-A1B3-4AB9-9254-325D1B88913E}
    
16. AppName={#MyAppName}
    
17. AppVersion={#MyAppVersion}
    
18. ;AppVerName={#MyAppName} {#MyAppVersion}
    
19. AppPublisher={#MyAppPublisher}
    
20. AppPublisherURL={#MyAppURL}
    
21. AppSupportURL={#MyAppURL}
    
22. AppUpdatesURL={#MyAppURL}
    
23. DefaultDirName=D:\Program Files\小小鸟软件
    
24. DefaultGroupName={#MyAppName}
    
25. DisableProgramGroupPage=yes
    
26. OutputDir=C:\Documents and Settings\Administrator\桌面
    
27. OutputBaseFilename=zlMember
    
28. SetupIconFile=F:\IT\logo.ico
    
29. Compression=lzma
    
30. SolidCompression=yes
    
31. 
    
32. [Languages]
    
33. Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
    
34. 
    
35. ;资源文件 包括安装包必需的文件，如.dll、配置文件等
    
36. [Files]
    
37. Source: "F:\IT\IT.exe"; DestDir: "{app}"; Flags: ignoreversion
    
38. 
    
39. [Messages]
    
40. BeveledLabel=-----------------------------------------------------------------小小鸟制作
    
41. ; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
    
42. 
    
43. ;这里为检测.net2.0框架的代码，//判断程序是否存在//初始华程序事件
    
44. 
    
45. [code]
    
46. function InitializeSetup: Boolean;
    
47. var Isbl: boolean; //声明变量
    
48. var Isstr: string;
    
49. //全局变量
    
50. var MyProgChecked: Boolean;
    
51. var Path:string ;
    
52. ResultCode: Integer;
    
53. begin
    
54. if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy\v2.0') then
    
55. begin
    
56. Result := true;
    
57. end
    
58. else
    
59. begin
    
60. if MsgBox('系统检测到您没有安装.Net Framework2.0，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then
    
61. begin
    
62. Path := ExpandConstant('{pf}\Internet Explorer\iexplore.exe');
    
63. Exec(Path, 'http://data.zhiluo.net/soft/Microsoft_DotNet2.0.rar', '' , SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
    
64. MsgBox('请安装好.Net Framework2.0环境后，再运行本安装包程序！',mbInformation,MB_OK);
    
65. Result := false;
    
66. end
    
67. else
    
68. begin
    
69. MsgBox('没有安装.Net Framework2.0环境，无法运行程序，本安装程序即将退出！',mbInformation,MB_OK);
    
70. Result := false;
    
71. end;
    
72. end;
    
73. 
    
74. begin //开始
    
75. Isbl := true; //变量赋值 注意下方的“SOFTWARE\IT_soft”要与安装时创建的注册表信息一致
    
76. Isstr := '欢迎';
    
77. if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\IT_soft', 'config') then
    
78. begin
    
79. MsgBox('软件已安装过，如果需要重新安装,请先卸载再安装！',mbConfirmation, MB_OK);
    
80. isbl := false;
    
81. end
    
82. else
    
83. begin
    
84. //MsgBox('无值',mbConfirmation, MB_OK);
    
85. isbl := true;
    
86. end;
    
87. Result := Isbl;
    
88. end; //结束
    
89. end;
    
90. 
    
91. [Icons]
    
92. ;Commonprograms 程序菜单
    
93. ;Userdesktop 桌面
    
94. ;Group程序菜单的文件夹里
    
95. 
    
96. Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
    
97. Name: "{group}\{cm:ProgramOnTheWeb,{#MyWebName}}"; Filename: "{#MyAppURL}"
    
98. Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
    
99. Name: "{userdesktop}\小小鸟软件"; Filename: "{app}\{#MyAppExeName}"; IconFilename: "{app}\logo.ico";
    
100. 
     
101. ;用于在用户系统中创建，修改或删除注册表健值
     
102. [Registry]
     
103. Root: HKLM ;SubKey:"Software\IT_soft";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue
     
104. 
     
105. ;安装结束后要运行的选项,可选
     
106. [Run]
     
107. Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent

复制代码