开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 系统/网络安全 > 杀毒 > 查看源码
Setup.iss
资源名称：10040637740.zip　[点击查看]
上传用户：lswyart
上传日期：2008-06-12
资源大小：3441k
文件大小：39k
源码类别：

杀毒

开发平台：

Visual C++

Setup.iss：源码内容
  1. ; Script generated by the Inno Setup Script Wizard.
  2. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
  4. [Setup]
  5. AppName=ClamWin Free Antivirus
  6. AppVerName=ClamWin Free Antivirus 0.88.1
  7. AppPublisher=alch
  8. AppPublisherURL=http://clamwin.sourceforge.net/
  9. AppSupportURL=http://clamwin.sourceforge.net/
  10. AppUpdatesURL=http://clamwin.sourceforge.net/
  11. DefaultDirName={code:BaseDir}ClamWin
  12. DefaultGroupName=ClamWin Antivirus
  13. LicenseFile=SetupFilesLicense.rtf
  14. AllowNoIcons=true
  15. MinVersion=4.1.1998,5.0.2195
  17. ShowLanguageDialog=no
  18. LanguageDetectionMethod=none
  19. OutputDir=Output
  20. Compression=lzma/ultra
  21. InternalCompressLevel=max
  23. SolidCompression=true
  24. WizardImageFile=SetupfilesWizModernImage.bmp
  25. WizardSmallImageFile=SetupfilesWizModernSmallImage.bmp
  26. [Files]
  27. ; NOTE: Don't use "Flags: ignoreversion" on any shared system files
  28. ;Source: cygwincygwin1.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion
  29. ;Source: cygwincygbz2-1.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion
  30. ;Source: cygwincyggmp-3.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion
  31. ;Source: cygwincygminires.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion
  32. ;Source: cygwincygz.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion
  33. ;Source: cygwincygcrypto-0.9.7.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion replacesameversion
  34. ;Source: cygwincygssl-0.9.7.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion replacesameversion
  35. ;Source: cygwincygcurl-2.dll; DestDir: {app}bin; Components: Cygwin; Flags: restartreplace uninsrestartdelete replacesameversion replacesameversion
  36. Source: py2exedistbinpython23.dll; DestDir: {app}bin; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  37. Source: py2exedistbinClamTray.exe; DestDir: {app}bin; Components: ClamWin; Flags: restartreplace uninsrestartdelete replacesameversion
  38. Source: py2exedistbinClamWin.exe; DestDir: {app}bin; Components: ClamWin; Flags: restartreplace uninsrestartdelete replacesameversion
  39. Source: ..docHTMLclam.chm; DestDir: {app}bin; Components: ClamWin; Flags: ignoreversion; DestName: manual.chm
  40. Source: ..docl10nRussianManual.chm; DestDir: {app}bin; Components: InternationalHelpRussian; Flags: ignoreversion
  41. ;Source: ..docl10nItalianManual.chm; DestDir: {app}bin; Components: InternationalHelpItalian; Flags: replacesameversion
  42. Source: ..docmanual.pdf; DestDir: {app}bin; Components: ClamWin; Flags: ignoreversion
  43. Source: ..docl10nFrenchManual.pdf; DestDir: {app}bin; Components: InternationalHelpFrench; Flags: ignoreversion
  44. Source: py2exedistbinimgClam.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  45. Source: py2exedistbinimgClamAV.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  46. Source: py2exedistbinimgControl.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  47. Source: py2exedistbinimgScan.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  48. Source: py2exedistbinimgFrameIcon.ico; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  49. Source: py2exedistbinimgTrayIcon.ico; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  50. Source: py2exedistbinimgTitle.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  51. Source: py2exedistbinimgFD-logo.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  52. Source: py2exedistbinimgPythonPowered.gif; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  53. Source: py2exedistbinimgWorld.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  54. Source: py2exedistbinimgSupport.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  55. Source: py2exedistbinimgListScan.png; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  56. Source: py2exedistbinimgSplash.bmp; DestDir: {app}binimg; Components: ClamWin; Flags: ignoreversion
  57. Source: ..clamav-releasecontribmsvcReleaseclamscan.exe; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete replacesameversion
  58. Source: ..clamav-releasecontribmsvcReleasefreshclam.exe; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete replacesameversion
  59. Source: ..clamav-releasecontribmsvcReleasesigtool.exe; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete replacesameversion
  60. Source: ..clamav-releasecontribmsvcReleaselibclamav.dll; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete replacesameversion
  62. ; on xp and greater VC80 CRT needs to be installed in Microsoft.VC80.CRT
  63. Source: Microsoft.VC80.CRTMicrosoft.VC80.CRT.manifest; DestDir: {app}binMicrosoft.VC80.CRT; Components: ClamAV; Check: IsXPOrLater
  64. Source: Microsoft.VC80.CRTmsvcm80.dll; DestDir: {app}binMicrosoft.VC80.CRT; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: IsXPOrLater
  65. Source: Microsoft.VC80.CRTmsvcr80.dll; DestDir: {app}binMicrosoft.VC80.CRT; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: IsXPOrLater
  66. Source: Microsoft.VC80.CRTmsvcp80.dll; DestDir: {app}binMicrosoft.VC80.CRT; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: IsXPOrLater
  67. ; on 2000 and 98 VC80 CRT needs to be installed in the same dir; no manifest
  68. Source: Microsoft.VC80.CRTmsvcm80.dll; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: NotIsXPOrLater
  69. Source: Microsoft.VC80.CRTmsvcr80.dll; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: NotIsXPOrLater
  70. Source: Microsoft.VC80.CRTmsvcp80.dll; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete; Check: NotIsXPOrLater
  73. ;Source: ..clamav-stablesigtoolsigtool.exe; DestDir: {app}bin; Components: ClamAV; Flags: restartreplace uninsrestartdelete replacesameversion
  74. ; Copy Unicode build in NT and ANSI in 9x
  75. Source: ..cppReleaseExpShell.dll; DestDir: {app}bin; Components: ExplorerShell; Flags: restartreplace uninsrestartdelete; Check: IsWin9x
  76. Source: ..cppRelease_UnicodeExpShell.dll; DestDir: {app}bin; Components: ExplorerShell; Flags: restartreplace uninsrestartdelete; Check: UsingWinNT
  78. Source: py2exedistbinWClose.exe; DestDir: {app}bin; Components: ClamWin; Flags: restartreplace uninsrestartdelete replacesameversion
  79. Source: py2exedistlibw9xpopen.exe; DestDir: {app}bin; Components: ClamWin; Flags: restartreplace uninsrestartdelete replacesameversion
  80. Source: py2exedistbinOlAddin.exe; DestDir: {app}bin; Components: OutlookAddin; Flags: restartreplace uninsrestartdelete replacesameversion
  81. Source: {%TEMP|{localappdata}}clamwin-src.zip; DestDir: {app}src; Components: Sources; Flags: external ignoreversion
  82. Source: {%TEMP|{localappdata}}clamav-src.tar.gz; DestDir: {app}src; Components: Sources; Flags: external ignoreversion
  83. ;Source: {%TEMP|{localappdata}}cygwin-src.tar.bz2; DestDir: {app}src; Components: Sources; Flags: external replacesameversion
  85. Source: py2exedistlib_socket.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  86. Source: py2exedistlib_sre.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  87. Source: py2exedistlib_ssl.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  88. Source: py2exedistlib_bsddb.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  89. Source: py2exedistlib_winreg.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  90. Source: py2exedistlibclamwin.zip; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  91. Source: py2exedistlibdatetime.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  92. Source: py2exedistlibmxDateTime.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  93. Source: py2exedistlibexchange.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  94. Source: py2exedistlibexchdapi.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  95. Source: py2exedistlibshell.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  96. Source: py2exedistlibhtmlc.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  97. Source: py2exedistlibgizmosc.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  98. Source: py2exedistlibmapi.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  99. Source: py2exedistlibpythoncom23.dll; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  100. Source: py2exedistlibpywintypes23.dll; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  101. Source: py2exedistlibunicodedata.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  102. Source: py2exedistlibw9xpopen.exe; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  103. Source: py2exedistlibwin32api.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  104. Source: py2exedistlibwin32clipboard.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  105. Source: py2exedistlibwin32event.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  106. Source: py2exedistlibwin32file.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  107. Source: py2exedistlibwin32gui.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  108. Source: py2exedistlibwin32pipe.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  109. Source: py2exedistlibwin32process.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  110. Source: py2exedistlibwin32trace.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  111. Source: py2exedistlibwin32security.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  112. Source: py2exedistlibwxc.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  113. Source: py2exedistlibwxmsw24h.dll; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  114. Source: py2exedistlibzlib.pyd; DestDir: {app}lib; Components: ClamWin; Flags: restartreplace uninsrestartdelete
  115. Source: py2exedistlibBalloonTip.pyd; DestDir: {app}lib; Components: ClamWin; Check: IsWin9x; Flags: restartreplace uninsrestartdelete
  116. [Icons]
  117. Name: {group}Virus Scanner; Filename: {app}binClamWin.exe; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: ClamWin
  118. Name: {code:DesktopDir}ClamWin Antivirus; Filename: {app}binClamWin.exe; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: ClamWin; Tasks: desktopicon
  119. Name: {group}HelpPrintable Manual; Filename: {app}binmanual.pdf; Components: ; WorkingDir: {app}bin
  120. Name: {group}HelpOnline Help; Filename: {app}binmanual.chm; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: ClamWin
  121. Name: {group}HelpInternationalRussian Help; Filename: {app}binRussianManual.chm; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: InternationalHelpRussian
  122. Name: {group}HelpInternationalFrench Help; Filename: {app}binFrenchManual.pdf; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: InternationalHelpFrench
  123. ;Name: {group}HelpInternationalItalian Help; Filename: {app}binItalianManual.chm; WorkingDir: {app}bin; Comment: ClamWin Antivirus; Components: InternationalHelpItalian
  125. [Run]
  126. ; NOTE: The following entry contains an English phrase ("Launch"). You are free to translate it into another language if required.
  127. Filename: {app}binClamWin.exe; Parameters: --mode=update --close; WorkingDir: {app}bin; StatusMsg: Downloading Virus Database Files.; Components: ClamWin; Tasks: DownloadDB
  128. Filename: {app}binClamTray.exe; WorkingDir: {app}bin; Flags: nowait; Components: ClamWin
  129. [Dirs]
  130. ; create clamwin folders in common profiles dir if all users is selected and set permissions so that other users can modify
  131. Name: {code:CommonProfileDir}.clamwindb; Components: ClamAV; Permissions: authusers-full; Check: IsAllUsers
  132. Name: {code:CommonProfileDir}.clamwinlog; Components: ClamAV; Permissions: authusers-full; Check: IsAllUsers
  133. Name: {code:CommonProfileDir}.clamwinquarantine; Components: ClamAV; Permissions: authusers-full; Check: IsAllUsers
  134. ;for non-admin user create tese folders in user's profile dir, don't modify security
  135. Name: {code:CommonProfileDir}.clamwindb; Components: ClamAV; Check: NotIsAllUsers
  136. Name: {code:CommonProfileDir}.clamwinlog; Components: ClamAV; Check: NotIsAllUsers
  137. Name: {code:CommonProfileDir}.clamwinquarantine; Components: ClamAV; Check: NotIsAllUsers
  138. Name: {app}bin; Components: ExplorerShell ClamWin
  139. Name: {app}lib; Components: ClamWin
  140. Name: {app}binimg; Components: ClamWin
  142. Name: {app}src; Components: Sources
  143. [_ISTool]
  144. OutputExeFilename=L:ProjectsClamWinSetupOutputsetup.exe
  145. [Components]
  146. ;Name: Cygwin; Description: Cygwin Files; Flags: fixed; Types: full custom typical
  147. Name: ClamAV; Description: ClamAV Files; Flags: fixed; Types: full custom typical
  148. Name: ClamWin; Description: ClamWin Files; Flags: fixed; Types: full custom typical
  149. Name: ExplorerShell; Description: Integration with Windows Explorer; Types: full custom typical
  150. Name: OutlookAddin; Description: Integration with Microsoft Outlook; Types: full custom typical; Check: IsOutlookInstalled
  151. Name: InternationalHelp; Description: International Help Files; Types: full
  152. Name: InternationalHelpRussian; Description: Russian Help Files; Types: full
  153. Name: InternationalHelpFrench; Description: French Help Files; Types: full
  154. ;Name: InternationalHelpItalian; Description: Italian Help Files; Types: full
  155. Name: Sources; Description: Download Source Code; ExtraDiskSpaceRequired: 9437184; Types: full
  156. [INI]
  157. Filename: {app}binClamWin.conf; Section: ClamAV; Key: clamscan; String: {app}binclamscan.exe; Check: IsIniValueEmpty(ExpandConstant('ClamAV*clamscan*{app}binClamWin.conf'))
  158. Filename: {app}binClamWin.conf; Section: ClamAV; Key: freshclam; String: {app}binfreshclam.exe; Check: IsIniValueEmpty(ExpandConstant('ClamAV*freshclam*{app}binClamWin.conf'))
  159. Filename: {app}binClamWin.conf; Section: ClamAV; Key: database; String: {code:CommonProfileDir}.clamwindb; Check: IsIniValueEmpty(ExpandConstant('ClamAV*database*{app}binClamWin.conf'))
  160. Filename: {app}binClamWin.conf; Section: ClamAV; Key: quarantinedir; String: {code:CommonProfileDir}.clamwinquarantine; Check: IsIniValueEmpty(ExpandConstant('ClamAV*quarantinedir*{app}binClamWin.conf'))
  161. Filename: {app}binClamWin.conf; Section: ClamAV; Key: logfile; String: {code:CommonProfileDir}.clamwinlogClamScanLog.txt; Check: IsIniValueEmpty(ExpandConstant('ClamAV*logfile*{app}binClamWin.conf'))
  162. Filename: {app}binClamWin.conf; Section: Updates; Key: dbupdatelogfile; String: {code:CommonProfileDir}.clamwinlogClamUpdateLog.txt; Check: IsIniValueEmpty(ExpandConstant('Updates*dbupdatelogfile*{app}binClamWin.conf'))
  163. Filename: {app}binClamWin.conf; Section: Updates; Key: time; String: {code:CurTime}; Check: IsIniValueEmpty(ExpandConstant('Updates*time*{app}binClamWin.conf'))
  165. [_ISToolDownload]
  166. Name: Sources_ClamWin; Description: ClamWin Source Code; GroupDescription: Source Code; Flags: unchecked; Source: http://osdn.dl.sourceforge.net/sourceforge/clamwin/clamwin-0.88.1-src.zip; DestDir: {%TEMP|{localappdata}}; DestName: clamwin-src.zip; Components: Sources
  167. Name: Sources_ClamAV; Description: ClamAV Source Code; GroupDescription: Source Code; Flags: unchecked; Source: http://osdn.dl.sourceforge.net/sourceforge/clamav/clamav-0.88.1.tar.gz; DestDir: {%TEMP|{localappdata}}; DestName: clamav-src.tar.gz; Components: Sources
  168. ;Name: Sources_Cygwin; Description: Cygwin Source Code; GroupDescription: Source Codes; Flags: unchecked; Source: http://mirrors.kernel.org/sources.redhat.com/cygwin/release/cygwin/cygwin-1.5.18-1-src.tar.bz2; DestDir: {%TEMP|{localappdata}}; DestName: cygwin-src.tar.bz2; Components: Sources
  170. [Types]
  171. Name: typical; Description: Typical Installation
  172. Name: custom; Description: Custom Installation; Flags: iscustom
  173. Name: full; Description: Full Installation
  174. [UninstallDelete]
  175. Name: {tmp}ClamWin_Scheduler_Info; Type: files; Components: ClamWin
  176. Name: {tmp}ClamWin_Upadte_Time; Type: files; Components: ClamWin
  177. Name: {app}binClamWin.conf; Type: files
  178. Name: {userappdata}.clamwin; Type: filesandordirs
  179. Name: {code:CommonProfileDir}.clamwin; Type: filesandordirs
  181. [Registry]
  182. ; write to HKLM and HKCR when user is admin
  183. ; and to HKCU when not
  185. ; ClamWin entries
  186. Root: HKLM; Subkey: SoftwareMicrosoftWindowsCurrentVersionRun; ValueType: string; ValueName: ClamWin; ValueData: """{app}binClamTray.exe"" --logon"; Flags: uninsdeletevalue; Components: ClamWin; Check: IsAllUsers
  187. Root: HKLM; Subkey: SoftwareClamWin; ValueType: string; ValueName: Path; ValueData: {app}bin; Flags: uninsdeletekey deletevalue; Components: ClamWin; Check: IsAllUsers
  188. Root: HKLM; Subkey: SoftwareClamWin; ValueType: dword; ValueName: Version; ValueData: 881; Flags: uninsdeletekey deletevalue; Components: ClamWin; Check: IsAllUsers
  189. Root: HKCU; Subkey: SoftwareMicrosoftWindowsCurrentVersionRun; ValueType: string; ValueName: ClamWin; ValueData: """{app}binClamTray.exe"" --logon"; Flags: uninsdeletevalue; Components: ClamWin; Check: NotIsAllUsers
  190. Root: HKCU; Subkey: SoftwareClamWin; ValueType: string; ValueName: Path; ValueData: {app}bin; Flags: uninsdeletekey deletevalue; Components: ClamWin; Check: NotIsAllUsers
  191. Root: HKCU; Subkey: SoftwareClamWin; ValueType: dword; ValueName: Version; ValueData: 374; Flags: uninsdeletekey deletevalue; Components: ClamWin; Check: NotIsAllUsers
  193. ; ExplorerShell entries
  194. Root: HKCR; Subkey: CLSID{{65713842-C410-4f44-8383-BFE01A398C90}InProcServer32; ValueType: string; ValueData: {app}binExpShell.dll; Flags: uninsdeletekey; Components: ExplorerShell; Check: IsAllUsers
  195. Root: HKCR; Subkey: CLSID{{65713842-C410-4f44-8383-BFE01A398C90}InProcServer32; ValueType: string; ValueData: Apartment; Flags: uninsdeletekey; ValueName: ThreadingModel; Components: ExplorerShell; Check: IsAllUsers
  196. Root: HKCR; Subkey: *shellexContextMenuHandlersClamWin; ValueType: string; ValueData: {{65713842-C410-4f44-8383-BFE01A398C90}; Flags: uninsdeletekey; Components: ExplorerShell; Check: IsAllUsers
  197. Root: HKCR; Subkey: FoldershellexContextMenuHandlersClamWin; ValueType: string; ValueData: {{65713842-C410-4f44-8383-BFE01A398C90}; Flags: uninsdeletekey; Components: ExplorerShell; Check: IsAllUsers
  198. Root: HKCU; Subkey: SoftwareClassesCLSID{{65713842-C410-4f44-8383-BFE01A398C90}InProcServer32; ValueType: string; ValueData: {app}binExpShell.dll; Flags: uninsdeletekey; Components: ExplorerShell; Check: NotIsAllUsers
  199. Root: HKCU; Subkey: SoftwareClassesCLSID{{65713842-C410-4f44-8383-BFE01A398C90}InProcServer32; ValueType: string; ValueData: Apartment; Flags: uninsdeletekey; ValueName: ThreadingModel; Components: ExplorerShell; Check: NotIsAllUsers
  200. Root: HKCU; Subkey: SoftwareClasses*shellexContextMenuHandlersClamWin; ValueType: string; ValueData: {{65713842-C410-4f44-8383-BFE01A398C90}; Flags: uninsdeletekey; Components: ExplorerShell; Check: NotIsAllUsers
  201. Root: HKCU; Subkey: SoftwareClassesFoldershellexContextMenuHandlersClamWin; ValueType: string; ValueData: {{65713842-C410-4f44-8383-BFE01A398C90}; Flags: uninsdeletekey; Components: ExplorerShell; Check: NotIsAllUsers
  203. ; Cygwin entries
  204. ;Root: HKLM; Subkey: SoftwareCygnus Solutions; Flags: uninsdeletekeyifempty; Check: NoCygWinAllUsers
  205. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwin; Flags: uninsdeletekeyifempty; Check: NoCygWinAllUsers
  206. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwinProgram Options; Flags: uninsdeletekeyifempty; Check: NoCygWinAllUsers
  207. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwinmounts v2; Flags: uninsdeletekeyifempty; Check: NoCygWinAllUsers
  208. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwinmounts v2/tmp; ValueType: string; ValueName: native; ValueData: {code:TempDir}; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: NoCygWinAllUsers
  209. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwinmounts v2/tmp; ValueType: dword; ValueName: flags; ValueData: 10; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: NoCygWinAllUsers
  210. ;Root: HKCU; Subkey: SoftwareCygnus Solutions; Flags: uninsdeletekeyifempty; Check: NoCygWinNotAllUsers
  211. ;Root: HKCU; Subkey: SoftwareCygnus SolutionsCygwin; Flags: uninsdeletekeyifempty; Check: NoCygWinNotAllUsers
  212. ;Root: HKCU; Subkey: SoftwareCygnus SolutionsCygwinProgram Options; Flags: uninsdeletekeyifempty; Check: NoCygWinNotAllUsers
  213. ;Root: HKCU; Subkey: SoftwareCygnus SolutionsCygwinmounts v2; Flags: uninsdeletekeyifempty; Check: NoCygWinNotAllUsers
  214. ;Root: HKCU; Subkey: SoftwareCygnus SolutionsCygwinmounts v2/tmp; ValueType: string; ValueName: native; ValueData: {code:TempDir}; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: NoCygWinNotAllUsers
  215. ;Root: HKCU; Subkey: SoftwareCygnus SolutionsCygwinmounts v2/tmp; ValueType: dword; ValueName: flags; ValueData: 10; Flags: uninsdeletekeyifempty uninsdeletevalue; Check: NoCygWinNotAllUsers
  216. ;Root: HKLM; Subkey: SoftwareCygnus SolutionsCygwinProgram Options; Flags: uninsdeletekeyifempty; Check: NoCygWinAllUsers
  218. ; OutlookAddin entries for all users
  219. ;delete COM InprocServer32 key if present (we moved to EXE COM server)
  220. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}InprocServer32; Components: OutlookAddin; Check: IsAllUsers; Flags: deletekey noerror dontcreatekey
  221. ;install new EXE COM server
  222. Root: HKCR; Subkey: AppID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  223. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  224. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}LocalServer32; ValueType: string; ValueData: {app}binOlAddin.exe /Automate; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  225. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOM; ValueType: string; ValueData: OlAddin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  226. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOMPolicy; ValueType: string; ValueData: win32com.server.policy.EventHandlerPolicy; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  227. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOMPath; ValueType: string; ValueData: {app}bin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  228. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}Implemented Categories{{B3EF80D0-68E2-11D0-A689-00C04FD658FF}; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  229. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}Debugging; ValueType: string; ValueData: 0; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  230. Root: HKCR; Subkey: CLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}ProgID; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  231. Root: HKCR; Subkey: ClamWin.OutlookAddin; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  232. Root: HKCR; Subkey: ClamWin.OutlookAddinCLSID; ValueType: string; ValueData: {{E77FA584-1433-4af3-800D-AEC49BCCCB11}; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  234. Root: HKLM; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: dword; ValueName: CommandLineSafe; ValueData: 0; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  235. Root: HKLM; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: dword; ValueName: LoadBehavior; ValueData: 3; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  236. Root: HKLM; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: string; ValueName: Description; ValueData: ClamWin Antivirus; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  237. Root: HKLM; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: string; ValueName: FriendlyName; ValueData: ClamWin Antivirus; Flags: uninsdeletekey; Components: OutlookAddin; Check: IsAllUsers
  239. ; OutlookAddin entries for current user
  240. ;delete COM InprocServer32 key if present (we moved to EXE COM server)
  241. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}InprocServer32; Components: OutlookAddin; Check: NotIsAllUsers; Flags: deletekey dontcreatekey noerror
  242. ;install new COM EXE server
  243. Root: HKCU; Subkey: SoftwareClassesAppID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  244. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  245. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}LocalServer32; ValueType: string; ValueData: {app}binOlAddin.exe /Automate; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  246. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOM; ValueType: string; ValueData: OlAddin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  247. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOMPolicy; ValueType: string; ValueData: win32com.server.policy.EventHandlerPolicy; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  248. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}PythonCOMPath; ValueType: string; ValueData: {app}bin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  249. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}Implemented Categories{{B3EF80D0-68E2-11D0-A689-00C04FD658FF}; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  250. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}Debugging; ValueType: string; ValueData: 0; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  251. Root: HKCU; Subkey: SoftwareClassesCLSID{{E77FA584-1433-4af3-800D-AEC49BCCCB11}ProgID; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  252. Root: HKCU; Subkey: SoftwareClassesClamWin.OutlookAddin; ValueType: string; ValueData: ClamWin.OutlookAddin; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  253. Root: HKCU; Subkey: SoftwareClassesClamWin.OutlookAddinCLSID; ValueType: string; ValueData: {{E77FA584-1433-4af3-800D-AEC49BCCCB11}; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  255. Root: HKCU; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: dword; ValueName: CommandLineSafe; ValueData: 0; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  256. Root: HKCU; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: dword; ValueName: LoadBehavior; ValueData: 3; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  257. Root: HKCU; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: string; ValueName: Description; ValueData: ClamWin Antivirus; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  258. Root: HKCU; Subkey: SoftwareMicrosoftOfficeOutlookAddinsClamWin.OutlookAddin; ValueType: string; ValueName: FriendlyName; ValueData: ClamWin Antivirus; Flags: uninsdeletekey; Components: OutlookAddin; Check: NotIsAllUsers
  260. [Tasks]
  261. Name: DownloadDB; Description: Download Virus Database Files. (Do Not Select if you connect via a Proxy Server); GroupDescription: Download; Components: ClamAV
  262. ; NOTE: The following entry contains English phrases ("Create a desktop icon" and "Additional icons"). You are free to translate them into another language if required.
  263. Name: desktopicon; Description: Create a &desktop icon; GroupDescription: Additional icons:; Flags: unchecked
  264. [UninstallRun]
  265. Filename: {app}binWClose.exe; WorkingDir: {app}bin
  267. [Code]
  268. var
  269.   //CygwinChecked, CygwinFound: Boolean;
  270.   AllUsers: Boolean;
  271.   SetupCompleted: Boolean;
  272.   Time: String;
  273.   PreviousVersion, ThisVersion: Integer;
  274.   AllUsersPage: TInputOptionWizardPage;
  276. procedure InitializeWizard;
  277. begin
  278.   // Create the pages
  279.   AllUsersPage := CreateInputOptionPage(wpLicense,
  280.     'Select Installation Options', 'Who should this application be installed for?',
  281.     'Please select whether you wish to make this software available to all users or just yourself.',
  282.     True, False);
  283.   AllUsersPage.Add('&Anyone who uses this computer (all users)');
  284.   AllUsersPage.Add('Only for &me (' + GetUserNameString() + ')');
  287.   // Set default values, using settings that were stored last time if possible
  288.   case GetPreviousData('AllUsersMode', '') of
  289.     'anyone': AllUsers := True;
  290.     'onlyme': AllUsers := False;
  291.   end;
  292.   if (AllUsers) then
  293.     AllUsersPage.SelectedValueIndex := 0
  294.   else
  295.     AllUsersPage.SelectedValueIndex := 1;
  296. end;
  298. procedure RegisterPreviousData(PreviousDataKey: Integer);
  299. var
  300.   AllUsersModeStr: String;
  301. begin
  302.   // Store the settings so we can restore them next time
  303.   case AllUsersPage.SelectedValueIndex of
  304.     0: AllUsersModeStr := 'anyone';
  305.     1: AllUsersModeStr := 'onlyme';
  306.   end;
  307.   SetPreviousData(PreviousDataKey, 'AllUsersMode', AllUsersModeStr);
  308. end;
  310. function RemoveSetup(keyname: String): Boolean;
  311. var
  312. uninstall: String;
  313. resultcode: Integer;
  314. begin
  315. if not RegKeyExists(HKEY_LOCAL_MACHINE, keyname) then begin
  316. Result := True;
  317. exit;
  318. end;
  319. if not RegQueryStringValue(HKEY_LOCAL_MACHINE, keyname, 'UninstallString',  uninstall) then begin
  320. Result := True;
  321. exit;
  322. end;
  323. if SuppressibleMsgBox('The Setup detected previous version of the software is already installed on this computer. Cick Yes to uninstall it now.',
  324.               mbConfirmation, MB_YESNO, IDYES) = idYes then begin
  325. Result := Exec(RemoveQuotes(uninstall), ' /SILENT', '', SW_SHOWNORMAL, ewWaitUntilTerminated, resultcode);
  326. end else begin
  327. Result := False;
  328. end;
  329. end;
  331. function ShouldSkipPage(PageID: Integer): Boolean;
  332. begin
  333.   // Skip pages that shouldn't be shown
  334.   // in win 98/me we don't ask for all users nor we do if an admin is not logged on
  335.   if (PageID = AllUsersPage.ID) then begin
  336.     if (not UsingWinNT()) then
  337.   Result := True
  338. else if (not IsAdminLoggedOn()) then begin
  339.   Result := True;
  340. end;
  341.   end else
  342.     Result := False;
  343. end;
  345. function NextButtonClick(CurPage: Integer): Boolean;
  346. begin
  347. Result := istool_download(CurPage);
  348. if CurPage = wpFinished then
  349. SetupCompleted := True
  350. else if CurPage = AllUsersPage.ID then begin
  351. case AllUsersPage.SelectedValueIndex of
  352. 0: AllUsers := True;
  353. 1: AllUsers := False;
  354. end;
  355. if ((not IsAdminLoggedOn()) and (not AllUsers)) then
  356. RemoveSetup('SOFTWAREMicrosoftWindowsCurrentVersionUninstallClamWin Antivirus_is1');
  357. end;
  358. end;
  361. function IsOutlookInstalled() : Boolean;
  362. begin
  363.     Result := RegKeyExists( HKCU, 'SoftwareMicrosoftOfficeOutlook') or
  364. RegKeyExists( HKLM, 'SoftwareMicrosoftOfficeOutlook') or
  365. RegKeyExists( HKLM, 'SoftwareMicrosoftOffice9.0Outlook') or
  366. RegKeyExists( HKLM, 'SoftwareMicrosoftOffice10.0Outlook') or
  367. RegKeyExists( HKLM, 'SoftwareMicrosoftOffice11.0Outlook');
  368. end;
  372. function CheckNoAppMutex( mutexName: String; closeMsg: String) : Boolean;
  373. begin
  374.     Result := true;
  375.     if Pos('/SUPPRESSMSGBOXES', Uppercase(GetCmdTail())) = 0 then begin
  376. while Result do begin
  377. if not CheckForMutexes(mutexName) then
  378. break;
  379. Result := MsgBox(closeMsg, mbConfirmation, MB_RETRYCANCEL) = idRetry;
  380. end;
  381. end;
  382. end;
  384. function NoOutlookRunning(): Boolean;
  385. var
  386.   closeit: String;
  387. begin
  388.     // Check if Outlook is running.
  389.     closeit:= 'You must close Outlook before ClamWin can be installed.' + #13 + #13 +
  390.               'Please close all Outlook Windows (using "File->Exit and Log off"' + #13 +
  391.               'if available) and click Retry, or click Cancel to exit the installation.'+ #13 + #13 +
  392.               'If this message persists after closing all Outlook windows, you may' + #13 +
  393.               'need to log off from Windows, and try again.'
  394.     Result := CheckNoAppMutex('_outlook_mutex_', closeit);
  395.     // Check if MAPISP32.EXE is running - if it is, it implies something is screwey
  396.     // with Outlook.
  397.     if Result then begin
  398.       closeit := 'The Outlook mail delivery agent is still running.' + #13 + #13 +
  399.                  'If you only recently closed Outlook, wait a few seconds and click Retry.' + #13 + #13 +
  400.                  'If this message persists, you may need to log off from Windows, and try again.'
  401.       Result := CheckNoAppMutex('InternetMailTransport', closeit);
  402.     end;
  403. end;
  405. function IsWin9x(): Boolean;
  406. begin
  407. Result := not UsingWinNT();
  408. end;
  410. function IsXPOrLater(): Boolean;
  411. begin
  412. Result:= (GetWindowsVersion() >= $05010000);
  413. end;
  415. function NotIsXPOrLater(): Boolean;
  416. begin
  417. Result := not IsXPOrLater();
  418. end;
  421. function IsAllUsers(): Boolean;
  422. begin
  423. if not UsingWinNT() then
  424. Result := True
  425. else
  426. Result := AllUsers;
  427. end;
  429. function NotIsAllUsers(): Boolean;
  430. begin
  431. Result := not IsAllUsers();
  432. end;
  434. procedure CloseClamWin();
  435. var
  436. path, keyname: String;
  437. resultcode: Integer;
  438. begin
  439. keyname := 'SOFTWAREClamWin';
  440. path := ''
  441. if not RegQueryStringValue(HKEY_CURRENT_USER, keyname, 'path',  path) then begin
  442. RegQueryStringValue(HKEY_LOCAL_MACHINE, keyname, 'path',  path)
  443. end;
  444. if path = '' then begin
  445. exit;
  446. end;
  447. if not CheckForMutexes('ClamWinTrayMutex01') then
  448.         exit;
  449. if SuppressibleMsgBox('The Setup detected previous version of the software is installed.' + #13 +
  450.  'Would you like to close the program now? (Recommended)',
  451.               mbConfirmation, MB_YESNO, IDYES) = idYes then begin
  452.     path := RemoveQuotes(path)+'WClose.exe';
  453. Exec(path, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, resultcode);
  454. end;
  455. end;
  458. function InitializeSetup(): Boolean;
  459. var
  460. value: Cardinal;
  461. begin
  462. if (not UsingWinNT()) then
  463. AllUsers := True
  464. else
  465. AllUsers := IsAdminLoggedOn();
  467. ThisVersion := 881;
  468. value := 0;
  469. if not RegQueryDWordValue(HKEY_CURRENT_USER, 'SOFTWAREClamwin', 'Version',  value) then begin
  470. value := 0;
  471. RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWAREClamwin', 'Version',  value)
  472. end;
  473. PreviousVersion := value;
  474. if PreviousVersion > ThisVersion then begin
  475. SuppressibleMsgBox('Setup detected that newer version of the software is already installed.' + #13 +
  476.  'Setup will terminate now.', mbError, MB_OK, IDOK);
  477. Result := False;
  478. exit;
  479. end;
  482. SetupCompleted := False;
  483. Time := GetDateTimeString('hh:nn', #0, ':') + ':00';
  484. Result := NoOutlookRunning();
  485. if Result then CloseClamWin();
  486. end;
  488. procedure DeInitializeSetup();
  489. var
  490. filename: String;
  491. begin
  492. DeleteFile(ExpandConstant('{%TEMP|{localappdata}}clamwin-src.zip'));
  493. DeleteFile(ExpandConstant('{%TEMP|{localappdata}}clamav-src.tar.gz'));
  494. //DeleteFile(ExpandConstant('{%TEMP|{localappdata}}cygwin-src.tar.bz2'));
  495. if (SetupCompleted) and (PreviousVersion < 35) then begin
  496. filename := ExpandConstant('{app}binTray.exe');
  497. if (FileExists(filename)) then begin
  498. DeleteFile(filename);
  499. end;
  500. filename := ExpandConstant('{app}binOutlookAddin.exe');
  501. if (FileExists(filename)) then begin
  502. DeleteFile(filename);
  503. end;
  504. filename := ExpandConstant('{app}binExplorerShell.dll');
  505. if (FileExists(filename)) then begin
  506. RestartReplace(filename, '');
  507. SuppressibleMsgBox('Please restart your computer in order to complete the installation of ClamWin Antivirus.',
  508. mbInformation, MB_OK, IDOK);
  509. end;
  510. end;
  511. end;
  514. //function NoCygwin(): Boolean;
  515. //begin
  516. // if not CygWinChecked then begin
  517. // CygwinFound := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARECygnus SolutionsCygwinmounts v2/');
  518. // CygwinChecked := True;
  519. // Result := not CygwinFound;
  520. // end
  521. // else begin
  522. // Result := not CygwinFound;
  523. // end
  524. //end;
  526. //function NoCygwinAllUsers(): Boolean;
  527. //begin
  528. // Result := NoCygWin() and IsAllUsers();
  529. //end;
  531. //function NoCygwinNotAllUsers(): Boolean;
  532. //begin
  533. // Result := NoCygWin() and not IsAllUsers();
  534. //end;
  536. function
  537. BaseDir(Default: String): String;
  538. begin
  539. if IsAllUsers() then begin
  540. Result := ExpandConstant('{pf}');
  541. end else begin
  542. Result := ExpandConstant('{userappdata}');
  543. end;
  544. end;
  546. function CurTime(Default: String): String;
  547. begin
  548. Result := Time;
  549. end;
  551. function TempDir(Default: String): String;
  552. begin
  553. Result := GetTempDir();
  554. end;
  556. function CommonProfileDir(Default: String): String;
  557. var
  558. AppData, Tmp: String;
  559. i, position: Integer;
  560. begin
  561. if IsAllUsers() then begin
  562. AppData := RemoveBackslash(ExpandConstant('{commonappdata}'));
  563. end else begin
  564. AppData := ExpandConstant('{userappdata}');
  565. end;
  566. // remove last directory from the path (Ususally Application Data)
  567. Tmp := AppData;
  568. While True do begin
  569. i := Pos('', Tmp);
  570. if i <> 0 then begin
  571. Tmp := Copy(Tmp, i + 1, Length(Tmp) - i);
  572. end else begin
  573. Break;
  574. end;
  575. end;
  576. position := Length(AppData) - Length(Tmp);
  577. if position > 0 then begin
  578. Result := RemoveBackslash(Copy(AppData, 0, position));
  579. end else begin
  580. Result := AppData;
  581. end;
  582. end;
  585. function DesktopDir(Default: String): String;
  586. begin
  587. if IsAllUsers() then begin
  588. Result := ExpandConstant('{commondesktop}');
  589. end else begin
  590. Result := ExpandConstant('{userdesktop}');
  591. end;
  592. end;
  596. function IsIniValueEmpty(Param : String): Boolean;
  597. var
  598. Section, Key, Filename, Val, TempStr, Default : String;
  599. EndPos: Integer;
  600. begin
  601. Default := '';
  602. TempStr := Param;
  604. EndPos := Pos('*', TempStr);
  605. Section := Copy(TempStr, 0, EndPos - 1);
  606. TempStr := Copy(TempStr, EndPos + 1, Length(TempStr) - EndPos)
  608. EndPos := Pos('*', TempStr);
  609. Key := Copy(TempStr, 0, EndPos - 1);
  610. TempStr := Copy(TempStr, EndPos + 1, Length(TempStr) - EndPos)
  612. Filename := TempStr;
  614. Val:= Trim(GetIniString(Section, Key, Default, Filename));
  615. Result := (Val = '')
  617. end;
  619. function IsTemplateConfig(Filename: String): Boolean;
  620. begin
  621. Result := (not IsWin9x()) and (not FileExists(Filename));
  622. end;