@@ -112,61 +112,9 @@ Name: "lithuanian"; MessagesFile: "compiler:Languages\Lithuanian.isl"
112
112
Name : " icelandic" ; MessagesFile : " compiler:Languages\Icelandic.isl"
113
113
Name : " slovak" ; MessagesFile : " compiler:Languages\Slovak.isl"
114
114
115
- [Tasks]
116
- Name : " desktopicon" ; Description : " {cm:CreateDesktopIcon}" ; GroupDescription: " {cm:AdditionalIcons}" ; Flags : unchecked
117
- Name : " fileassoc" ; Description : " {cm:AssocFileExtension,{#MyAppName},.osp}" ; GroupDescription: " {cm:AdditionalIcons}" ;
118
- Name : " firewall" ; Description : " Add an exception to the Windows Firewall for optionally sending anonymized usage and error information." ; GroupDescription: " {cm:AdditionalIcons}" ;
119
-
120
- [InstallDelete]
121
- ; Remove previous installed versions of OpenShot
122
- Type : filesandordirs ; Name : " {app} \*"
123
- Type : dirifempty ; Name : " {app} \*"
124
- Type : files ; Name : " {group} \OpenShot Video Editor" ; BeforeInstall : DeleteInvalidFiles
125
-
126
- [Registry]
127
- ; Associate .osp files with the installed application. Uninstaller will clean them up, when run.
128
-
129
- ; Filename extension .osp
130
- Root : HKLM; Subkey : " Software\Classes\.osp" ; ValueType : string ; ValueName : " " ; ValueData : " OpenShotProject" ; Flags : uninsdeletevalue ; Tasks: fileassoc
131
- ; .osp file description, "OpenShot Project File" (OpenShotProject, internally)
132
- Root : HKLM; Subkey : " Software\Classes\OpenShotProject" ; ValueType : string ; ValueName : " " ; ValueData : " {#MyAppProjectFileDesc}" ; Flags : uninsdeletekey ; Tasks: fileassoc
133
- ; Launcher association for data files of type OpenShotProject
134
- Root : HKLM; Subkey : " Software\Classes\OpenShotProject\shell\open\command" ; ValueType : string ; ValueName : " " ; ValueData : " " " {app} \{#MyAppExeName}" " " " %1 " " " ; Tasks: fileassoc
135
- ;
136
- ; NOT setting an icon for project files seems best, as we don't currently have one,
137
- ; and if omitted Windows seems to generate a perfectly acceptable default.
138
- ; (The OpenShot logo on a sheet of paper.) So, the line below is commented out.
139
- ;
140
- ; Root: HKLM; Subkey: "Software\Classes\OpenShotProject\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{app}\{#MyAppExeName},0"
141
-
142
115
[Files]
143
116
; Add all frozen files from cx_Freeze build
144
117
Source : " ..\build\{#PY_EXE_DIR}\*" ; DestDir : " {app} " ; Flags : ignoreversion recursesubdirs
145
118
146
- [Icons]
147
- Name : " {commonprograms}\{#MyAppName}" ; Filename : " {app} \{#MyAppExeName}"
148
- Name : " {commondesktop}\{#MyAppName}" ; Filename : " {app} \{#MyAppExeName}" ; Tasks: desktopicon
149
-
150
119
[Run]
151
- Filename : " {sys} \netsh.exe" ; Parameters : " advfirewall firewall add rule name=" " {#MyAppName}" " program=" " {app} \{#MyAppExeName}" " dir=in action=allow enable=yes" ; Flags : runhidden ; Tasks: firewall;
152
120
Filename : " {app} \{#MyAppExeName}" ; Description : " {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}" ; Flags : nowait postinstall skipifsilent
153
-
154
- [UninstallRun]
155
- Filename : " {sys} \netsh.exe" ; Parameters : " advfirewall firewall delete rule name=" " {#MyAppName}" " " ; Flags : runhidden ; Tasks: firewall;
156
-
157
- [Code]
158
- procedure DeleteInvalidFiles ();
159
- begin
160
- if (FileExists (ExpandConstant(' {sys}\zlib1.dll' ))) then
161
- begin
162
- RenameFile(ExpandConstant(' {sys}\zlib1.dll' ), ExpandConstant(' {sys}\zlib1.DELETE' ));
163
- end ;
164
- if (FileExists (ExpandConstant(' {win}\system32\zlib1.dll' ))) then
165
- begin
166
- RenameFile(ExpandConstant(' {win}\system32\zlib1.dll' ), ExpandConstant(' {win}\system32\zlib1.DELETE' ));
167
- end ;
168
- if (FileExists (ExpandConstant(' {syswow64}\zlib1.dll' ))) then
169
- begin
170
- RenameFile(ExpandConstant(' {syswow64}\zlib1.dll' ), ExpandConstant(' {syswow64}\zlib1.DELETE' ));
171
- end ;
172
- end ;
0 commit comments