├── .gitignore ├── Bin ├── Empty.res └── MultiInstaller.exe ├── LICENSE ├── README.md └── Source ├── Empty.res ├── MultiInstaller.dpr ├── MultiInstaller.dproj ├── MultiInstaller.res ├── MultiInstaller_Icon.ico ├── SpComponentInstaller.pas ├── unit1.dfm └── unit1.pas /.gitignore: -------------------------------------------------------------------------------- 1 | # Uncomment these types if you want even more clean repository. But be careful. 2 | # It can make harm to an existing project source. Read explanations below. 3 | # 4 | # Resource files are binaries containing manifest, project icon and version info. 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files. 6 | #*.res 7 | # 8 | # Type library file (binary). In old Delphi versions it should be stored. 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored. 10 | #*.tlb 11 | # 12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7. 13 | # Uncomment this if you are not using diagrams or use newer Delphi version. 14 | #*.ddp 15 | # 16 | # Visual LiveBindings file. Added in Delphi XE2. 17 | # Uncomment this if you are not using LiveBindings Designer. 18 | #*.vlb 19 | # 20 | # Deployment Manager configuration file for your project. Added in Delphi XE2. 21 | # Uncomment this if it is not mobile development and you do not use remote debug feature. 22 | #*.deployproj 23 | # 24 | # C++ object files produced when C/C++ Output file generation is configured. 25 | # Uncomment this if you are not using external objects (zlib library for example). 26 | #*.obj 27 | # 28 | 29 | # Delphi compiler-generated binaries (safe to delete) 30 | *.exe 31 | *.dll 32 | *.bpl 33 | *.bpi 34 | *.dcp 35 | *.so 36 | *.apk 37 | *.drc 38 | *.map 39 | *.dres 40 | *.rsm 41 | *.tds 42 | *.dcu 43 | *.lib 44 | *.a 45 | *.o 46 | *.ocx 47 | 48 | # Delphi autogenerated files (duplicated info) 49 | *.cfg 50 | *.hpp 51 | *Resource.rc 52 | 53 | # Delphi local files (user-specific info) 54 | *.local 55 | *.identcache 56 | *.projdata 57 | *.tvsconfig 58 | *.dsk 59 | 60 | # Delphi history and backups 61 | __history/ 62 | __recovery/ 63 | *.~* 64 | 65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi) 66 | *.stat 67 | -------------------------------------------------------------------------------- /Bin/Empty.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Bin/Empty.res -------------------------------------------------------------------------------- /Bin/MultiInstaller.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Bin/MultiInstaller.exe -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | GNU LESSER GENERAL PUBLIC LICENSE 2 | Version 2.1, February 1999 3 | 4 | Copyright (C) 1991, 1999 Free Software Foundation, Inc. 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | [This is the first released version of the Lesser GPL. It also counts 10 | as the successor of the GNU Library Public License, version 2, hence 11 | the version number 2.1.] 12 | 13 | Preamble 14 | 15 | The licenses for most software are designed to take away your 16 | freedom to share and change it. By contrast, the GNU General Public 17 | Licenses are intended to guarantee your freedom to share and change 18 | free software--to make sure the software is free for all its users. 19 | 20 | This license, the Lesser General Public License, applies to some 21 | specially designated software packages--typically libraries--of the 22 | Free Software Foundation and other authors who decide to use it. You 23 | can use it too, but we suggest you first think carefully about whether 24 | this license or the ordinary General Public License is the better 25 | strategy to use in any particular case, based on the explanations below. 26 | 27 | When we speak of free software, we are referring to freedom of use, 28 | not price. Our General Public Licenses are designed to make sure that 29 | you have the freedom to distribute copies of free software (and charge 30 | for this service if you wish); that you receive source code or can get 31 | it if you want it; that you can change the software and use pieces of 32 | it in new free programs; and that you are informed that you can do 33 | these things. 34 | 35 | To protect your rights, we need to make restrictions that forbid 36 | distributors to deny you these rights or to ask you to surrender these 37 | rights. These restrictions translate to certain responsibilities for 38 | you if you distribute copies of the library or if you modify it. 39 | 40 | For example, if you distribute copies of the library, whether gratis 41 | or for a fee, you must give the recipients all the rights that we gave 42 | you. You must make sure that they, too, receive or can get the source 43 | code. If you link other code with the library, you must provide 44 | complete object files to the recipients, so that they can relink them 45 | with the library after making changes to the library and recompiling 46 | it. And you must show them these terms so they know their rights. 47 | 48 | We protect your rights with a two-step method: (1) we copyright the 49 | library, and (2) we offer you this license, which gives you legal 50 | permission to copy, distribute and/or modify the library. 51 | 52 | To protect each distributor, we want to make it very clear that 53 | there is no warranty for the free library. Also, if the library is 54 | modified by someone else and passed on, the recipients should know 55 | that what they have is not the original version, so that the original 56 | author's reputation will not be affected by problems that might be 57 | introduced by others. 58 | 59 | Finally, software patents pose a constant threat to the existence of 60 | any free program. We wish to make sure that a company cannot 61 | effectively restrict the users of a free program by obtaining a 62 | restrictive license from a patent holder. Therefore, we insist that 63 | any patent license obtained for a version of the library must be 64 | consistent with the full freedom of use specified in this license. 65 | 66 | Most GNU software, including some libraries, is covered by the 67 | ordinary GNU General Public License. This license, the GNU Lesser 68 | General Public License, applies to certain designated libraries, and 69 | is quite different from the ordinary General Public License. We use 70 | this license for certain libraries in order to permit linking those 71 | libraries into non-free programs. 72 | 73 | When a program is linked with a library, whether statically or using 74 | a shared library, the combination of the two is legally speaking a 75 | combined work, a derivative of the original library. The ordinary 76 | General Public License therefore permits such linking only if the 77 | entire combination fits its criteria of freedom. The Lesser General 78 | Public License permits more lax criteria for linking other code with 79 | the library. 80 | 81 | We call this license the "Lesser" General Public License because it 82 | does Less to protect the user's freedom than the ordinary General 83 | Public License. It also provides other free software developers Less 84 | of an advantage over competing non-free programs. These disadvantages 85 | are the reason we use the ordinary General Public License for many 86 | libraries. However, the Lesser license provides advantages in certain 87 | special circumstances. 88 | 89 | For example, on rare occasions, there may be a special need to 90 | encourage the widest possible use of a certain library, so that it becomes 91 | a de-facto standard. To achieve this, non-free programs must be 92 | allowed to use the library. A more frequent case is that a free 93 | library does the same job as widely used non-free libraries. In this 94 | case, there is little to gain by limiting the free library to free 95 | software only, so we use the Lesser General Public License. 96 | 97 | In other cases, permission to use a particular library in non-free 98 | programs enables a greater number of people to use a large body of 99 | free software. For example, permission to use the GNU C Library in 100 | non-free programs enables many more people to use the whole GNU 101 | operating system, as well as its variant, the GNU/Linux operating 102 | system. 103 | 104 | Although the Lesser General Public License is Less protective of the 105 | users' freedom, it does ensure that the user of a program that is 106 | linked with the Library has the freedom and the wherewithal to run 107 | that program using a modified version of the Library. 108 | 109 | The precise terms and conditions for copying, distribution and 110 | modification follow. Pay close attention to the difference between a 111 | "work based on the library" and a "work that uses the library". The 112 | former contains code derived from the library, whereas the latter must 113 | be combined with the library in order to run. 114 | 115 | GNU LESSER GENERAL PUBLIC LICENSE 116 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 117 | 118 | 0. This License Agreement applies to any software library or other 119 | program which contains a notice placed by the copyright holder or 120 | other authorized party saying it may be distributed under the terms of 121 | this Lesser General Public License (also called "this License"). 122 | Each licensee is addressed as "you". 123 | 124 | A "library" means a collection of software functions and/or data 125 | prepared so as to be conveniently linked with application programs 126 | (which use some of those functions and data) to form executables. 127 | 128 | The "Library", below, refers to any such software library or work 129 | which has been distributed under these terms. A "work based on the 130 | Library" means either the Library or any derivative work under 131 | copyright law: that is to say, a work containing the Library or a 132 | portion of it, either verbatim or with modifications and/or translated 133 | straightforwardly into another language. (Hereinafter, translation is 134 | included without limitation in the term "modification".) 135 | 136 | "Source code" for a work means the preferred form of the work for 137 | making modifications to it. For a library, complete source code means 138 | all the source code for all modules it contains, plus any associated 139 | interface definition files, plus the scripts used to control compilation 140 | and installation of the library. 141 | 142 | Activities other than copying, distribution and modification are not 143 | covered by this License; they are outside its scope. The act of 144 | running a program using the Library is not restricted, and output from 145 | such a program is covered only if its contents constitute a work based 146 | on the Library (independent of the use of the Library in a tool for 147 | writing it). Whether that is true depends on what the Library does 148 | and what the program that uses the Library does. 149 | 150 | 1. You may copy and distribute verbatim copies of the Library's 151 | complete source code as you receive it, in any medium, provided that 152 | you conspicuously and appropriately publish on each copy an 153 | appropriate copyright notice and disclaimer of warranty; keep intact 154 | all the notices that refer to this License and to the absence of any 155 | warranty; and distribute a copy of this License along with the 156 | Library. 157 | 158 | You may charge a fee for the physical act of transferring a copy, 159 | and you may at your option offer warranty protection in exchange for a 160 | fee. 161 | 162 | 2. You may modify your copy or copies of the Library or any portion 163 | of it, thus forming a work based on the Library, and copy and 164 | distribute such modifications or work under the terms of Section 1 165 | above, provided that you also meet all of these conditions: 166 | 167 | a) The modified work must itself be a software library. 168 | 169 | b) You must cause the files modified to carry prominent notices 170 | stating that you changed the files and the date of any change. 171 | 172 | c) You must cause the whole of the work to be licensed at no 173 | charge to all third parties under the terms of this License. 174 | 175 | d) If a facility in the modified Library refers to a function or a 176 | table of data to be supplied by an application program that uses 177 | the facility, other than as an argument passed when the facility 178 | is invoked, then you must make a good faith effort to ensure that, 179 | in the event an application does not supply such function or 180 | table, the facility still operates, and performs whatever part of 181 | its purpose remains meaningful. 182 | 183 | (For example, a function in a library to compute square roots has 184 | a purpose that is entirely well-defined independent of the 185 | application. Therefore, Subsection 2d requires that any 186 | application-supplied function or table used by this function must 187 | be optional: if the application does not supply it, the square 188 | root function must still compute square roots.) 189 | 190 | These requirements apply to the modified work as a whole. If 191 | identifiable sections of that work are not derived from the Library, 192 | and can be reasonably considered independent and separate works in 193 | themselves, then this License, and its terms, do not apply to those 194 | sections when you distribute them as separate works. But when you 195 | distribute the same sections as part of a whole which is a work based 196 | on the Library, the distribution of the whole must be on the terms of 197 | this License, whose permissions for other licensees extend to the 198 | entire whole, and thus to each and every part regardless of who wrote 199 | it. 200 | 201 | Thus, it is not the intent of this section to claim rights or contest 202 | your rights to work written entirely by you; rather, the intent is to 203 | exercise the right to control the distribution of derivative or 204 | collective works based on the Library. 205 | 206 | In addition, mere aggregation of another work not based on the Library 207 | with the Library (or with a work based on the Library) on a volume of 208 | a storage or distribution medium does not bring the other work under 209 | the scope of this License. 210 | 211 | 3. You may opt to apply the terms of the ordinary GNU General Public 212 | License instead of this License to a given copy of the Library. To do 213 | this, you must alter all the notices that refer to this License, so 214 | that they refer to the ordinary GNU General Public License, version 2, 215 | instead of to this License. (If a newer version than version 2 of the 216 | ordinary GNU General Public License has appeared, then you can specify 217 | that version instead if you wish.) Do not make any other change in 218 | these notices. 219 | 220 | Once this change is made in a given copy, it is irreversible for 221 | that copy, so the ordinary GNU General Public License applies to all 222 | subsequent copies and derivative works made from that copy. 223 | 224 | This option is useful when you wish to copy part of the code of 225 | the Library into a program that is not a library. 226 | 227 | 4. You may copy and distribute the Library (or a portion or 228 | derivative of it, under Section 2) in object code or executable form 229 | under the terms of Sections 1 and 2 above provided that you accompany 230 | it with the complete corresponding machine-readable source code, which 231 | must be distributed under the terms of Sections 1 and 2 above on a 232 | medium customarily used for software interchange. 233 | 234 | If distribution of object code is made by offering access to copy 235 | from a designated place, then offering equivalent access to copy the 236 | source code from the same place satisfies the requirement to 237 | distribute the source code, even though third parties are not 238 | compelled to copy the source along with the object code. 239 | 240 | 5. A program that contains no derivative of any portion of the 241 | Library, but is designed to work with the Library by being compiled or 242 | linked with it, is called a "work that uses the Library". Such a 243 | work, in isolation, is not a derivative work of the Library, and 244 | therefore falls outside the scope of this License. 245 | 246 | However, linking a "work that uses the Library" with the Library 247 | creates an executable that is a derivative of the Library (because it 248 | contains portions of the Library), rather than a "work that uses the 249 | library". The executable is therefore covered by this License. 250 | Section 6 states terms for distribution of such executables. 251 | 252 | When a "work that uses the Library" uses material from a header file 253 | that is part of the Library, the object code for the work may be a 254 | derivative work of the Library even though the source code is not. 255 | Whether this is true is especially significant if the work can be 256 | linked without the Library, or if the work is itself a library. The 257 | threshold for this to be true is not precisely defined by law. 258 | 259 | If such an object file uses only numerical parameters, data 260 | structure layouts and accessors, and small macros and small inline 261 | functions (ten lines or less in length), then the use of the object 262 | file is unrestricted, regardless of whether it is legally a derivative 263 | work. (Executables containing this object code plus portions of the 264 | Library will still fall under Section 6.) 265 | 266 | Otherwise, if the work is a derivative of the Library, you may 267 | distribute the object code for the work under the terms of Section 6. 268 | Any executables containing that work also fall under Section 6, 269 | whether or not they are linked directly with the Library itself. 270 | 271 | 6. As an exception to the Sections above, you may also combine or 272 | link a "work that uses the Library" with the Library to produce a 273 | work containing portions of the Library, and distribute that work 274 | under terms of your choice, provided that the terms permit 275 | modification of the work for the customer's own use and reverse 276 | engineering for debugging such modifications. 277 | 278 | You must give prominent notice with each copy of the work that the 279 | Library is used in it and that the Library and its use are covered by 280 | this License. You must supply a copy of this License. If the work 281 | during execution displays copyright notices, you must include the 282 | copyright notice for the Library among them, as well as a reference 283 | directing the user to the copy of this License. Also, you must do one 284 | of these things: 285 | 286 | a) Accompany the work with the complete corresponding 287 | machine-readable source code for the Library including whatever 288 | changes were used in the work (which must be distributed under 289 | Sections 1 and 2 above); and, if the work is an executable linked 290 | with the Library, with the complete machine-readable "work that 291 | uses the Library", as object code and/or source code, so that the 292 | user can modify the Library and then relink to produce a modified 293 | executable containing the modified Library. (It is understood 294 | that the user who changes the contents of definitions files in the 295 | Library will not necessarily be able to recompile the application 296 | to use the modified definitions.) 297 | 298 | b) Use a suitable shared library mechanism for linking with the 299 | Library. A suitable mechanism is one that (1) uses at run time a 300 | copy of the library already present on the user's computer system, 301 | rather than copying library functions into the executable, and (2) 302 | will operate properly with a modified version of the library, if 303 | the user installs one, as long as the modified version is 304 | interface-compatible with the version that the work was made with. 305 | 306 | c) Accompany the work with a written offer, valid for at 307 | least three years, to give the same user the materials 308 | specified in Subsection 6a, above, for a charge no more 309 | than the cost of performing this distribution. 310 | 311 | d) If distribution of the work is made by offering access to copy 312 | from a designated place, offer equivalent access to copy the above 313 | specified materials from the same place. 314 | 315 | e) Verify that the user has already received a copy of these 316 | materials or that you have already sent this user a copy. 317 | 318 | For an executable, the required form of the "work that uses the 319 | Library" must include any data and utility programs needed for 320 | reproducing the executable from it. However, as a special exception, 321 | the materials to be distributed need not include anything that is 322 | normally distributed (in either source or binary form) with the major 323 | components (compiler, kernel, and so on) of the operating system on 324 | which the executable runs, unless that component itself accompanies 325 | the executable. 326 | 327 | It may happen that this requirement contradicts the license 328 | restrictions of other proprietary libraries that do not normally 329 | accompany the operating system. Such a contradiction means you cannot 330 | use both them and the Library together in an executable that you 331 | distribute. 332 | 333 | 7. You may place library facilities that are a work based on the 334 | Library side-by-side in a single library together with other library 335 | facilities not covered by this License, and distribute such a combined 336 | library, provided that the separate distribution of the work based on 337 | the Library and of the other library facilities is otherwise 338 | permitted, and provided that you do these two things: 339 | 340 | a) Accompany the combined library with a copy of the same work 341 | based on the Library, uncombined with any other library 342 | facilities. This must be distributed under the terms of the 343 | Sections above. 344 | 345 | b) Give prominent notice with the combined library of the fact 346 | that part of it is a work based on the Library, and explaining 347 | where to find the accompanying uncombined form of the same work. 348 | 349 | 8. You may not copy, modify, sublicense, link with, or distribute 350 | the Library except as expressly provided under this License. Any 351 | attempt otherwise to copy, modify, sublicense, link with, or 352 | distribute the Library is void, and will automatically terminate your 353 | rights under this License. However, parties who have received copies, 354 | or rights, from you under this License will not have their licenses 355 | terminated so long as such parties remain in full compliance. 356 | 357 | 9. You are not required to accept this License, since you have not 358 | signed it. However, nothing else grants you permission to modify or 359 | distribute the Library or its derivative works. These actions are 360 | prohibited by law if you do not accept this License. Therefore, by 361 | modifying or distributing the Library (or any work based on the 362 | Library), you indicate your acceptance of this License to do so, and 363 | all its terms and conditions for copying, distributing or modifying 364 | the Library or works based on it. 365 | 366 | 10. Each time you redistribute the Library (or any work based on the 367 | Library), the recipient automatically receives a license from the 368 | original licensor to copy, distribute, link with or modify the Library 369 | subject to these terms and conditions. You may not impose any further 370 | restrictions on the recipients' exercise of the rights granted herein. 371 | You are not responsible for enforcing compliance by third parties with 372 | this License. 373 | 374 | 11. If, as a consequence of a court judgment or allegation of patent 375 | infringement or for any other reason (not limited to patent issues), 376 | conditions are imposed on you (whether by court order, agreement or 377 | otherwise) that contradict the conditions of this License, they do not 378 | excuse you from the conditions of this License. If you cannot 379 | distribute so as to satisfy simultaneously your obligations under this 380 | License and any other pertinent obligations, then as a consequence you 381 | may not distribute the Library at all. For example, if a patent 382 | license would not permit royalty-free redistribution of the Library by 383 | all those who receive copies directly or indirectly through you, then 384 | the only way you could satisfy both it and this License would be to 385 | refrain entirely from distribution of the Library. 386 | 387 | If any portion of this section is held invalid or unenforceable under any 388 | particular circumstance, the balance of the section is intended to apply, 389 | and the section as a whole is intended to apply in other circumstances. 390 | 391 | It is not the purpose of this section to induce you to infringe any 392 | patents or other property right claims or to contest validity of any 393 | such claims; this section has the sole purpose of protecting the 394 | integrity of the free software distribution system which is 395 | implemented by public license practices. Many people have made 396 | generous contributions to the wide range of software distributed 397 | through that system in reliance on consistent application of that 398 | system; it is up to the author/donor to decide if he or she is willing 399 | to distribute software through any other system and a licensee cannot 400 | impose that choice. 401 | 402 | This section is intended to make thoroughly clear what is believed to 403 | be a consequence of the rest of this License. 404 | 405 | 12. If the distribution and/or use of the Library is restricted in 406 | certain countries either by patents or by copyrighted interfaces, the 407 | original copyright holder who places the Library under this License may add 408 | an explicit geographical distribution limitation excluding those countries, 409 | so that distribution is permitted only in or among countries not thus 410 | excluded. In such case, this License incorporates the limitation as if 411 | written in the body of this License. 412 | 413 | 13. The Free Software Foundation may publish revised and/or new 414 | versions of the Lesser General Public License from time to time. 415 | Such new versions will be similar in spirit to the present version, 416 | but may differ in detail to address new problems or concerns. 417 | 418 | Each version is given a distinguishing version number. If the Library 419 | specifies a version number of this License which applies to it and 420 | "any later version", you have the option of following the terms and 421 | conditions either of that version or of any later version published by 422 | the Free Software Foundation. If the Library does not specify a 423 | license version number, you may choose any version ever published by 424 | the Free Software Foundation. 425 | 426 | 14. If you wish to incorporate parts of the Library into other free 427 | programs whose distribution conditions are incompatible with these, 428 | write to the author to ask for permission. For software which is 429 | copyrighted by the Free Software Foundation, write to the Free 430 | Software Foundation; we sometimes make exceptions for this. Our 431 | decision will be guided by the two goals of preserving the free status 432 | of all derivatives of our free software and of promoting the sharing 433 | and reuse of software generally. 434 | 435 | NO WARRANTY 436 | 437 | 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO 438 | WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. 439 | EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR 440 | OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY 441 | KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 442 | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 443 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE 444 | LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME 445 | THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 446 | 447 | 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN 448 | WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY 449 | AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU 450 | FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR 451 | CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE 452 | LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING 453 | RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A 454 | FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF 455 | SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH 456 | DAMAGES. 457 | 458 | END OF TERMS AND CONDITIONS 459 | 460 | How to Apply These Terms to Your New Libraries 461 | 462 | If you develop a new library, and you want it to be of the greatest 463 | possible use to the public, we recommend making it free software that 464 | everyone can redistribute and change. You can do so by permitting 465 | redistribution under these terms (or, alternatively, under the terms of the 466 | ordinary General Public License). 467 | 468 | To apply these terms, attach the following notices to the library. It is 469 | safest to attach them to the start of each source file to most effectively 470 | convey the exclusion of warranty; and each file should have at least the 471 | "copyright" line and a pointer to where the full notice is found. 472 | 473 | 474 | Copyright (C) 475 | 476 | This library is free software; you can redistribute it and/or 477 | modify it under the terms of the GNU Lesser General Public 478 | License as published by the Free Software Foundation; either 479 | version 2.1 of the License, or (at your option) any later version. 480 | 481 | This library is distributed in the hope that it will be useful, 482 | but WITHOUT ANY WARRANTY; without even the implied warranty of 483 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 484 | Lesser General Public License for more details. 485 | 486 | You should have received a copy of the GNU Lesser General Public 487 | License along with this library; if not, write to the Free Software 488 | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 489 | USA 490 | 491 | Also add information on how to contact you by electronic and paper mail. 492 | 493 | You should also get your employer (if you work as a programmer) or your 494 | school, if any, to sign a "copyright disclaimer" for the library, if 495 | necessary. Here is a sample; alter the names: 496 | 497 | Yoyodyne, Inc., hereby disclaims all copyright interest in the 498 | library `Frob' (a library for tweaking knobs) written by James Random 499 | Hacker. 500 | 501 | , 1 April 1990 502 | Ty Coon, President of Vice 503 | 504 | That's all there is to it! 505 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # MultiInstaller 2 | 3 | This is the [Silverpoint MultiInstaller](http://www.silverpointdevelopment.com/multiinstaller/index.htm) on steroids. 4 | It allows you to install multiple Delphi packages directly from git repositories (e.g. Github), from zip files or 5 | from existing folders in one-step. 6 | 7 | **Documentation** 8 | Please read the [orginal documentation](http://www.silverpointdevelopment.com/multiinstaller/index.htm) in conjuction 9 | with the notes below. 10 | 11 | **List of enhanacements to the original program:** 12 | * *GIT* key 13 | Example: Git=https://github.com/pyscripter/python4delphi.git 14 | If the GIT key is provided Multiinstaller clones the repository. GIT.exe must be on the Windows path. 15 | * If you already have the sources of a component in-place you can omit both the "*Zip*" and "*Git*" keys. The component 16 | will be installed from the existing sources. 17 | * *LIBSUFFIX* key 18 | Example: LIBSUFFIX=%s0 19 | Actual LibSuffix will be assumed to be the result of Format(LibSuffix, [DelphiIDEVersion] so if you install into 20 | Delphi Tokyo the LibSuffix will become 250. Athough MultiInstaller has auto-detection of the LIBSUFFIX directive 21 | this fails when this is inside conditional directives. 22 | * Automatic generation of .res package files if they are missing. Empty.res needs to be present in the same 23 | directory as the MultiInstaller executable. 24 | * *SearchPath* folders are also added to the Win64 Library search path. 25 | * The Delphi search path (-U dcc32 flag) is also used as the include search path (-I dcc32 flag) during package compilation. 26 | 27 | **Example Setup.ini:** 28 | * See [PyScripter's Setup.ini](https://github.com/pyscripter/pyscripter/blob/master/Components/ThirdParty/Setup.ini). 29 | -------------------------------------------------------------------------------- /Source/Empty.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Source/Empty.res -------------------------------------------------------------------------------- /Source/MultiInstaller.dpr: -------------------------------------------------------------------------------- 1 | program MultiInstaller; 2 | 3 | uses 4 | Forms, 5 | unit1 in 'unit1.pas' {Form1}; 6 | 7 | {$R *.res} 8 | 9 | begin 10 | Application.Initialize; 11 | Application.CreateForm(TForm1, Form1); 12 | Application.Run; 13 | end. 14 | -------------------------------------------------------------------------------- /Source/MultiInstaller.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | True 4 | Application 5 | Debug 6 | VCL 7 | MultiInstaller.dpr 8 | Win32 9 | {975359D1-D650-4BDE-B704-9DC769E892FF} 10 | 19.5 11 | 1 12 | 13 | 14 | true 15 | 16 | 17 | true 18 | Base 19 | true 20 | 21 | 22 | true 23 | Base 24 | true 25 | 26 | 27 | true 28 | Cfg_1 29 | true 30 | true 31 | 32 | 33 | true 34 | Base 35 | true 36 | 37 | 38 | true 39 | Cfg_2 40 | true 41 | true 42 | 43 | 44 | MultiInstaller 45 | 00400000 46 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace) 47 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName= 48 | 2057 49 | 50 | 51 | true 52 | Debug 53 | System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 54 | MultiInstaller_Icon.ico 55 | $(BDS)\bin\default_app.manifest 56 | true 57 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) 58 | 1033 59 | 60 | 61 | 0 62 | RELEASE;$(DCC_Define) 63 | false 64 | 0 65 | 66 | 67 | PerMonitorV2 68 | 69 | 70 | DEBUG;$(DCC_Define) 71 | true 72 | false 73 | 74 | 75 | PerMonitorV2 76 | ..\Bin 77 | 3 78 | 79 | 80 | 81 | MainSource 82 | 83 | 84 |
Form1
85 | 86 | 87 | Base 88 | 89 | 90 | Cfg_1 91 | Base 92 | 93 | 94 | Cfg_2 95 | Base 96 | 97 | 98 | 99 | Delphi.Personality.12 100 | 101 | 102 | 103 | 104 | MultiInstaller.dpr 105 | 106 | 107 | 108 | 109 | True 110 | False 111 | 112 | 113 | 12 114 | 115 | 116 | 117 | 118 | -------------------------------------------------------------------------------- /Source/MultiInstaller.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Source/MultiInstaller.res -------------------------------------------------------------------------------- /Source/MultiInstaller_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Source/MultiInstaller_Icon.ico -------------------------------------------------------------------------------- /Source/SpComponentInstaller.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/pyscripter/MultiInstaller/44f950e0446d54fec937c518e4515ef5743ae7b8/Source/SpComponentInstaller.pas -------------------------------------------------------------------------------- /Source/unit1.dfm: -------------------------------------------------------------------------------- 1 | object Form1: TForm1 2 | Left = 293 3 | Top = 145 4 | BorderStyle = bsDialog 5 | Caption = 'Silverpoint MultiInstaller' 6 | ClientHeight = 378 7 | ClientWidth = 495 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Shell Dlg 2' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnCreate = FormCreate 17 | OnDestroy = FormDestroy 18 | OnShow = FormShow 19 | PixelsPerInch = 96 20 | TextHeight = 13 21 | object PageControl1: TPageControl 22 | Left = 0 23 | Top = 60 24 | Width = 495 25 | Height = 265 26 | ActivePage = TabSheet1 27 | Align = alClient 28 | Style = tsFlatButtons 29 | TabOrder = 0 30 | object TabSheet1: TTabSheet 31 | Caption = 'TabSheet1' 32 | TabVisible = False 33 | object Label1: TLabel 34 | Left = 8 35 | Top = 8 36 | Width = 276 37 | Height = 13 38 | Caption = 'You'#39're about to install the following component packages:' 39 | end 40 | object CheckListBox1: TCheckListBox 41 | Left = 8 42 | Top = 24 43 | Width = 473 44 | Height = 227 45 | OnClickCheck = CheckListBox1ClickCheck 46 | Style = lbOwnerDrawVariable 47 | TabOrder = 0 48 | OnDrawItem = CheckListBox1DrawItem 49 | OnMeasureItem = CheckListBox1MeasureItem 50 | end 51 | end 52 | object TabSheet2: TTabSheet 53 | Caption = 'TabSheet2' 54 | ImageIndex = 1 55 | TabVisible = False 56 | ExplicitLeft = 0 57 | ExplicitTop = 0 58 | ExplicitWidth = 0 59 | ExplicitHeight = 0 60 | object Label2: TLabel 61 | Left = 8 62 | Top = 16 63 | Width = 323 64 | Height = 13 65 | Caption = 66 | 'Select a destination directory to install all the component pack' + 67 | 'ages:' 68 | end 69 | object InstallFolderEdit: TEdit 70 | Left = 8 71 | Top = 42 72 | Width = 393 73 | Height = 21 74 | TabOrder = 0 75 | end 76 | object ButtonBrowse: TButton 77 | Left = 408 78 | Top = 40 79 | Width = 75 80 | Height = 25 81 | Action = aBrowse 82 | TabOrder = 1 83 | end 84 | object RadioGroup1: TRadioGroup 85 | Left = 8 86 | Top = 80 87 | Width = 473 88 | Height = 171 89 | Caption = ' ' 90 | Columns = 2 91 | Enabled = False 92 | TabOrder = 2 93 | end 94 | object CompileCheckbox: TCheckBox 95 | Left = 20 96 | Top = 78 97 | Width = 195 98 | Height = 17 99 | Caption = 'Compile packages and install on IDE' 100 | TabOrder = 3 101 | OnClick = CompileCheckboxClick 102 | end 103 | end 104 | object TabSheet3: TTabSheet 105 | Caption = 'TabSheet3' 106 | ImageIndex = 2 107 | TabVisible = False 108 | ExplicitLeft = 0 109 | ExplicitTop = 0 110 | ExplicitWidth = 0 111 | ExplicitHeight = 0 112 | object Label3: TLabel 113 | Left = 8 114 | Top = 8 115 | Width = 74 116 | Height = 13 117 | Caption = 'Installation log:' 118 | end 119 | object FinishLabel: TLabel 120 | Left = 8 121 | Top = 238 122 | Width = 427 123 | Height = 13 124 | Caption = 125 | 'Setup has finished installing the components on your computer. C' + 126 | 'lick Finish to exit Setup.' 127 | Visible = False 128 | end 129 | object LogMemo: TMemo 130 | Left = 8 131 | Top = 32 132 | Width = 473 133 | Height = 193 134 | ReadOnly = True 135 | ScrollBars = ssBoth 136 | TabOrder = 0 137 | end 138 | end 139 | end 140 | object Panel1: TPanel 141 | Left = 0 142 | Top = 325 143 | Width = 495 144 | Height = 53 145 | Align = alBottom 146 | BevelOuter = bvNone 147 | ParentBackground = False 148 | ParentColor = True 149 | TabOrder = 1 150 | DesignSize = ( 151 | 495 152 | 53) 153 | object Bevel2: TBevel 154 | Left = 162 155 | Top = 0 156 | Width = 322 157 | Height = 9 158 | Shape = bsBottomLine 159 | end 160 | object PaintBoxLabel: TPaintBox 161 | Left = 15 162 | Top = 0 163 | Width = 144 164 | Height = 14 165 | OnClick = PaintBoxLabelClick 166 | OnPaint = PaintBoxLabelPaint 167 | end 168 | object Button1: TButton 169 | Left = 315 170 | Top = 18 171 | Width = 75 172 | Height = 25 173 | Action = aSaveLog 174 | TabOrder = 4 175 | end 176 | object ButtonFinish: TButton 177 | Left = 410 178 | Top = 18 179 | Width = 75 180 | Height = 25 181 | Action = aFinish 182 | TabOrder = 3 183 | end 184 | object ButtonNext: TButton 185 | Left = 315 186 | Top = 18 187 | Width = 75 188 | Height = 25 189 | Action = aNext 190 | Anchors = [akRight, akBottom] 191 | TabOrder = 0 192 | end 193 | object ButtonBack: TButton 194 | Left = 235 195 | Top = 18 196 | Width = 75 197 | Height = 25 198 | Action = aBack 199 | Enabled = False 200 | TabOrder = 1 201 | end 202 | object ButtonCancel: TButton 203 | Left = 410 204 | Top = 18 205 | Width = 75 206 | Height = 25 207 | Action = aCancel 208 | TabOrder = 2 209 | end 210 | end 211 | object Panel2: TPanel 212 | Left = 0 213 | Top = 0 214 | Width = 495 215 | Height = 60 216 | Align = alTop 217 | BevelOuter = bvNone 218 | Color = clWhite 219 | ParentBackground = False 220 | TabOrder = 2 221 | object LabelTitle: TLabel 222 | Left = 8 223 | Top = 15 224 | Width = 425 225 | Height = 29 226 | AutoSize = False 227 | Caption = 'Title' 228 | Font.Charset = ANSI_CHARSET 229 | Font.Color = clWindowText 230 | Font.Height = -11 231 | Font.Name = 'Arial' 232 | Font.Style = [fsBold] 233 | ParentFont = False 234 | Layout = tlCenter 235 | WordWrap = True 236 | end 237 | object Bevel1: TBevel 238 | Left = 0 239 | Top = 51 240 | Width = 495 241 | Height = 9 242 | Align = alBottom 243 | Shape = bsBottomLine 244 | end 245 | object Image1: TImage 246 | Left = 442 247 | Top = 5 248 | Width = 48 249 | Height = 48 250 | AutoSize = True 251 | Picture.Data = { 252 | 07544269746D6170361B0000424D361B00000000000036000000280000003000 253 | 0000300000000100180000000000001B0000130B0000130B0000000000000000 254 | 0000FFFFFFFFFFFFFFFFFFF6F8F6CCDAD292B3A598B3A598B4A698B4A698B4A6 255 | 98B4A698B3A698B3A698B3A698B3A698B3A598B3A698B3A698B3A698B4A697B2 256 | A6A7AEA0AEA699AEA699AEA699AEA79AAB9E978C78878E78868E78858E78858E 257 | 78858E78858E78858E78858E78858E78858E78858E78858E78858E78858D7684 258 | 998691CABEC1FBFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCBDAD25C907CA1B0 259 | 94DAD0B5E6D9C0E5D8C0E5D8C0E5D8C0E5D8C0E5D9C0E5D9C1E6D9C1E6D9C2E6 260 | D9C2E5D9C1E5D9C1E5D9C0E5D9C1E7DAC3D0C8BAB6B0A9B8B2AAB8B2AAB7B2AB 261 | C9B8A1D5B288D4B38AD4B38AD4B38AD4B38AD4B38AD4B38AD4B38AD4B38AD4B3 262 | 8AD4B38AD4B38AD4B38AD4B38AD5B289D1AA789A7055603F4FD4C9CBFFFFFFFF 263 | FFFFFFFFFFCBDAD08CA084E3D8BDF9EADAF5EADDF5EBDCF5EBDCF5EBDCF5EBDC 264 | F5EBDDF6EBDDF6ECDEF6ECDFF6ECDFF6ECDFF6ECDFF6ECDEF6ECDEF6ECDEF7ED 265 | E0E4DFD7D1CDC9D2CFCAD2CFCAD1CECAE0D5C5EAD4B5E9D4B5E9D3B5E9D3B5E9 266 | D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5E9D3B5 267 | EAD3B6EDD5B3DCB78558374FD4C9CBFFFFFFF6F8F65F907EEAD3B2F5E8D9F3E6 268 | D4F2E3D0F0E2CCF0E1CDF0E1CDF0E1CDF0E1CDF0E1CDF0E1CDF0E1CCF0E1CCF0 269 | E1CCF0E1CCF0E1CDF0E1CDF0E1CDF2E2CED6CDBFB6B1AAB8B3ABB8B3ABB7B3AB 270 | D0BDA4E1BD8EE0BC8EE0BC8FE0BD8FE0BD8FE0BD8FE0BD8FE0BD8FE0BC8FE0BC 271 | 8FDFBC8DDFBC8DDFBC8DDFBB8DDFBB8DE0BE93E1C59EE9D1B0D8AE77563853FB 272 | FAFABBC9BB9FAD8FF4E2CCEFE1CCEFE0CAEFE0CBEFE0CCEFE1CCEFE1CCEFE1CC 273 | EFE1CCEFE1CCEFE1CCEFE1CCEFE1CCEFE1CCF0E1CCF0E1CCF1E2CCF2E3CCF0E2 274 | CCC6BFB4B5AFA7B6B0A8B6B0A8B5B0A9C3B8A8E2C091E2BE8EE2BE8DE2BE8EE2 275 | BE8FE2BE8FE2BE8FE2BE8FE2BE8FE2BE8FE2BE8FE2BE8FE2BE8FE1BE8FE1BE8F 276 | E1BE8DDDB888DDB98CE6C79C8C6250C8BABDAAB6A8D4C5A0F2E3CEEEDCC3F0E0 277 | CAF0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0E0C9F0 278 | E0CAF1E2CBEADCC7D7CCBDC1BBB0B5AFA9B3ADA5B5AFA7B5AFA7B5AFA7B5AFA7 279 | B3AEA7B3B1ABBEB4A7CDB99FDCBC92E2BC89E1BC8BE1BC8BE1BC8CE1BC8CE1BC 280 | 8CE1BC8CE1BC8CE1BC8CE1BC8CE1BC8CE1BC8CDFBA89DAB482E1C094BE905A8F 281 | 7985A8B4A4DCC7A3F0DFC6EDDCC3EFDFC9EEDEC9EEDEC9EEDEC9EEDEC9EEDEC9 282 | EEDEC9EEDEC9EEDEC9EFDFC9F2E1CAE8DBC6C8BFB3B1ACA4B0AAA2B1ABA3B2AC 283 | A3B3ADA3B3ADA3B3ADA3B3ADA3B3ADA3B3ADA3B2ACA3B2ACA4B1ACA4B2AEA7BC 284 | B2A4D6B994E1BA87E0BA87E0BA87E0BA87E0BA87E0BA87E0BA87E0BA87E0BA87 285 | E0BA88DFB987DAB380DDB988C8985C917B84A9B4A4DCC7A3EEDCC2EEDBC2EFDE 286 | C7EFDFC6EFDFC6EFDFC6EFDFC6EFDFC6EFDFC6EFDFC6F0E0C7EEDEC7C6BEB1AF 287 | AAA2AFA9A0B0AAA1B1ABA2B1ABA2B0AAA1B0AAA1B1AAA1B1AAA1B1AAA1B1AAA1 288 | B0AAA1B0AAA1B1ABA2B1ABA2B0AAA1AFAAA2AEAAA4BDB2A1DCB88AE0B883DFB8 289 | 85DFB885DFB885DFB885DFB885DFB885DFB885DEB784D9B17DDBB380C7955A93 290 | 7C84A9B4A4DCC8A2EEDBC0EEDCC1EFDEC6EFDEC6EFDEC6EFDEC6EFDEC6EFDEC6 291 | EFDEC6F0DEC7DCD0BCB0A9A2ADA69DAEA79EAFA79FAEA79EAEA79EAEA99EB1AC 292 | A3B1AEA7B3B2ACB0AFA8B0AFA9B3B0ABB2AEA7B2ADA5AEA9A0AFA79EAEA79EAF 293 | A79FAFA79EADA79FAFA9A2CEB392E0B67FDEB680DEB680DEB680DEB680DEB680 294 | DEB680DDB581D8B07AD9B17BC69457937B84A9B4A4DCC6A3EDDABEECDBC1EEDD 295 | C4EDDDC4EDDDC4EDDDC4EDDDC4EEDDC4F0DFC5D5C9B7A9A29AABA59BABA69BAB 296 | A69BABA59BADA79EAEACA4B0A39DB39C97B6938EB8948BB9948BB78F89B48C87 297 | AD8D86AC9692ADA19CAFABA5AEA89EABA59BABA69BABA69BABA59BAAA59EBEAE 298 | 97DFB47BDDB47DDCB47EDCB47EDCB47EDCB47EDDB47DD7AE77D8AF77C4925493 299 | 7B83A9B4A4DCC7A2EDD9BCEDDAC0EEDCC2EEDCC1EEDCC1EEDCC1EEDCC1F0DEC3 300 | D4C8B6A69F97A9A299AAA29AA9A299AAA49BACA59EB39F99BE958CCCA095D9B2 301 | A6E6BFB2ECD4C9F0E9E9EDE6E2E7DBD7E0CAC4D2B3ACBC978EAB857FA8948FAD 302 | A9A2ABA49BA9A299AAA29AA9A29AA7A19ABCAC96DEB278DDB279DDB279DDB279 303 | DDB279DCB17AD6AB73D7AC74C59152927B83A9B4A4DBC5A1ECD6B9ECD9BDEDDB 304 | C1ECDBC1ECDBC1ECDBC1EFDCC2D5C8B5A39D94A7A096A8A197A7A096A7A298AF 305 | A198C2958BD5A89CE8C7B7F5D5C4F9D6C6FCD6C6FEE0D2FCF6F5FAF0EDF8EFEA 306 | F8E8E4F6E7E2F3E1DCE2C5BEC19B91A58078A79A93AAA49BA7A096A8A197A8A1 307 | 97A49F97BFAB90DDB074DAB077DAB077DAB077DBAF76D5A96FD6AA70C48F5092 308 | 7B82A9B4A4DBC6A0EAD5B7EAD6B9EDDABFEDDABEEDDABEEDDABFE2D3BBA7A096 309 | A49D93A49D93A49D93A59F96B59A91CC9C91E7C3B5F7D5C5F9D8C6FCD8C7FDD8 310 | C8FED7C5FEDFCFFDF7F4FCEFEEFAEBE9FAE7E4FAE6E0F8E1D9F6DDD4F4DBD2DC 311 | BFB6AE857CA08A84A6A198A49D93A49D93A49D93A39D96CDAD83DCAE72DBAE74 312 | DBAE74DAAD73D4A76CD5A86CC28E4D927B82A9B4A4DBC6A0EBD4B4EBD6B7ECD9 313 | BEEBD9BEECD9BEEFDBBFB1A89DA19A90A39C92A29B91A39E94B6958BD4A697F0 314 | CFC2FAD8C8FCD9C8FDD8C6FCD8C7FED6C6FED6C4FEDBC8FDF6F3FAEFEDF9ECE6 315 | FAE9E1FAE6DEF9DED5F8DBD4F8DCD3F8DCD1EBD1C9B68E889E827BA49F95A29B 316 | 91A39C92A29B91A49E96D9AC72DAAC6FDAAC70D9AB6FD3A568D4A568C38D4B92 317 | 7B82A9B4A4DBC59FE9D2B2E9D3B5ECD8BCECD8BCEDD9BCD3C5B09C968BA19A8F 318 | A09A8EA09B90B4998ED6A396F0D2C5F9D7C9FCDAC9FDD9C9FED8C8FED6C5FED5 319 | C3FED4C3FED7C5FDF5F1FAF0EDF9EAE5FAE6E1FAE4DBF8DCD3F9DDD4F9DDD1F9 320 | DBD2F6E1D9EEDFDAB28B849B847EA29D92A0998EA19A8F9E988FBBA588D9AA6A 321 | D9AA6BD8AA6CD2A364D3A365C18C49927B82A9B3A4DBC59EE8D1AFEAD2B3ECD7 322 | BAECD7BAEDD8BBA9A1959D958A9F968B9D968BAB9A8FCF9B8BEFD1C3FBDBCBFC 323 | DACCFBDBCBFDD8C9FED7C6FED6C6FED5C3FED5C2FED6C3FDF4ECFAF0EDFBE9E6 324 | F9E6DFFAE0D5FADBD2FADAD0FADCD1FAE2D7F8E6DFF4E4DFE9DBD6A276709F90 325 | 899E988D9F968B9E968B9E9991D5AA6FD8A768D7A868D1A161D0A161C28B4792 326 | 7A82A9B3A4DAC59EE9D0ADE8D1B1EBD6B9ECD7B9D1C2AC9892889D948A9C9489 327 | 9E998EC59284E7C3B3F9DACCFDDECEFDDCCDFDDBCAFCD8C8FED9C7FED7C6FED6 328 | C5FED8C5FED7C5FDF0E9FAF0EDFBE9E4F9E4DEFADFD3FADBD1FAD9D1F8E2D7F9 329 | E6E0F9E7E3F8E8E3F5E9E5D8C0BC966964A19B939C94899D958A9A938ABCA280 330 | D8A664D7A665D09F5ECF9F5CC18A46917A82A9B3A4DAC49DE7CFABE9D0B1EBD5 331 | B7EED8B9ACA3959991859B9386999287AE9488DBA698F5DACDFCDED0FEDFCEFE 332 | DCCEFEDCCBFCD9CBFCD9C9FCDAC8FED9C9FED9CAFED9CAFDEDE8FCF2EEFBE9E4 333 | FBE5DEF9DED5FADCD1FAE0D7F9E6DFF7E6E3F6E7E5F8EAE6F6E9E6F1E4E3AE8A 334 | 829A857D9A93889B93869A92869F978DD7A563D6A462CF9D5ACE9D58C1894491 335 | 7A81A9B3A4DAC49DE7CDA9E9D1B0EAD4B6E3D0B3989085989084989084999488 336 | C19080E9C9BAF8E0D2FDE0D3FEDED2FEDED0FEDDCDFCDBCCFDDBCCFCDBCDFEDE 337 | CFFDE0D3FEE0D3FDEFE9FDF5F1FAEDE9FAE6DEFBE0D9F9E1D9FAE7E1F9E7E3F7 338 | E9E3F6EAE5F6EBE9F8EBE9F5EAE8DAC5C390665F9F9B91989084989084969087 339 | CCA46FD5A25ECE9B57CD9955C08943917981A8B2A4DAC49CE6CDA8E7D1B0EBD4 340 | B6D0C0A8938B80978F83968E82A29287D39B8AF3D9D0FBE1D3FEE2D4FFE1D4FD 341 | DED2FEDDCFFCDFCFFCE0D3FCDFD3FEE3D8F9DDD2F0CBB9EACCC3E8D8D0EAD3C9 342 | F4DBD6FCE7E1FAEAE5F8EBE5F9ECE7F9EAE6F9ECE7F8EBE9F8ECEBF6EDEAF0EA 343 | E89D756D9A8C84968F83978F83948D83B99D78D5A05ACE9A55CD9852C0874291 344 | 7A82A6B1A4DDC79FEAD0AAEBD4B3EFD7B6B9AD9A928A7F948C80938C80AE9083 345 | DFB8ADF5EEEBFDE9E2FFE4DAFFE1D4FDE1D1FEDFD2FEE1D6FEE5D7FDE4DCF4DA 346 | CFE7BFAFE6BDADEAD3CAEADCDBE6C8C1E3C2B8EDDBD3F9EEEDFAEFECF8EDE9F9 347 | EEE9F7EDEAF8EDEDF8F1EFF8F1EEF4EEEDB99C97977E77979085948C80938C80 348 | A29482D7A057D29C54CF974FC28740907B84B1AEA09E9484A69D8EA59E8EA79D 349 | 8E928A7F948C80948C80958F84B88E7FE7D0CBF9F7F8FEFBF9FFF9F8FFF3F3FD 350 | EEE5FEE6DBFEE5D9FEE9DCFAE4DCE8C4B8E8CABEE1CCC5C59B91BE958AD9BCB6 351 | E8D9D3E3CEC9F4E6E3FAF1EFF9F1F0F7F1EFF8F2EFF8F2EFF6F2EEF7F1EFF6EF 352 | EDCFBCBA8E6A639B968A948C80948D81938B819F9583A39682A396839A8C77B0 353 | A79EAFA89B8C8478948B81948B7F948B7F958C80968C80958C80958F84C49080 354 | ECE1DDFBF8F7FFFAF9FFFAF9FFFBFAFDFBFBFEF9FAFEF8F7FEF5F2F2DED5E6C7 355 | BEE5D1CCAD8279ACA9A9AFB0B0A2847CD3BBB5E5D8D5E8DBD9FBF6F5F7F4F1F8 356 | F3F1F8F3F1F8F1F0F6F2F0F7F2F0F6F1EFDED3D191655E9C978C958C80968C80 357 | 968C80958C80948C80968D838B8477B0A99BAFA89B8E8679978E83978D81978D 358 | 81978D81978D81968D819A948BC79181EFE9E8FBF7F8FFFBFAFFFBF8FFFBF8FD 359 | FBF8FEFBF8FEFCFAFEFDFFEDE6E3EAE2E2D1ACA4A09A98BDBEBEC2C2C2A6A8A8 360 | B18A81EAE4E4E7D8D5F9F5F4F9F5F4F7F4F2F7F1F1F8F2F0F6F2F0F7F2EFF5F0 361 | EEE5DDDD92685F9A9489968D81978D81978D81978D81968D819890848D8478AF 362 | A89BAFA89B90877A989084979084979084979084979084978F839A958CC89482 363 | EFE9E6FAF7F8FFFBFAFFFBFAFFFBF8FDFBF8FEFAF8FEFCF9FDFDFDEEE5E3E8E5 364 | E4D1ACA4959090AFB0B0B2B3B39A9D9CB28C82E8E6E4E7DAD8F8F5F4F9F4F4F9 365 | F2F2F9F1EFF7F2EEF8F2EDF8F0EFF8F0EEE6DDDD936A629B958A978F83979084 366 | 979084979084978F839A92868E8578AFA89BB0AA9D948B7F9C94899B93879B93 367 | 879A92869A9285999185999489C69685EDE1DEFBF8F8FFFAFAFFFBFAFFFAFAFD 368 | FAFAFEFBFAFEFCFBFEFBFCF2EAE9E4DADAE5D9D7A98278908E8E909190987E77 369 | D5BAB3E5CFC4E8D4CCFCF2F1F9F3F3FAF3F1FAF2F1F9F2F0F9F2EEF9F2F0F7F0 370 | EFE0D1D1966E65A29D929991859A92859991859992879992879C958C8F877CB1 371 | AA9EA6968D7266578077687F75667E74669B94899C94899B93889B978CC2988A 372 | E8D3CDFAF8F9FFFBFBFFFCF9FFFCFBFDFCFBFEFAFAFEF9F9FEF8F7FAF4F3E8D9 373 | D6EADBD6E4D3CCCAA39BC19A90DCBEB7EAD4CBE6C2B7F4DAD1FBE6DBFBE1D9F9 374 | E5DEFAEAE5F8EEEDF9F1F2F8F2F3F5EFF0D3BFBD977871A29D939B93889B9388 375 | 9C968C9D886D9D8666A18C6E917854A09E89866662311F0F473B2A4839264637 376 | 2482796BA1998EA0988C9E978CB89D91E2BFB5F7F8F7FDFBF9FFFBFAFFFAF9FD 377 | F9F6FEF6F5FEF5F6FEF4F4FDF6F4F6EAE7EBCEC6E9D0C6ECE3DFEBD7CEE9C5B6 378 | E5C0B2EED1C7FAE4DCF9E0D6F9DED4FADCD1FADED1F8E0D4F9E3DBF8E8E2F4EB 379 | E9BFA39EA18B83A19B8FA0978C9F988DA394828F6124916428996D327C4C0975 380 | 7B5383635E39271650463652443250432F766C5CA7A095A29B92A19B91AEA297 381 | D7AA9AF5F4F4FCF8F7FFF8F8FFF7F6FDF4F2FEF5F1FEF4F2FEF3F0FEF1EEFCEE 382 | E7FAE6DFF2DCD6ECE0DCEDCFC4EFC9B9F4DACDFAE3D8FBE0D3F9DDD1FADED0FA 383 | DBD2FADCD1F8DDD2F9DDD2F6DCD2F0D9CFAC827CA99D98A29C91A29C92A29C94 384 | A28C6E946831966B329D73407D4F0F757A5180615C3C2B1B594E3F584C3D5A4D 385 | 3C5F5241ABA59CA69F95A69F95A9A49BCDA092EDDCD6FAF1F1FEF5F4FDF5F2FE 386 | F3F2FEF4EFFEF2EDFEF0ECFEEDE7FEEADFFEECE6FDF3F1FCF9F8FCEEEAFBE1D5 387 | FCE0D4FCDDD3FBDCCFF9DDCEF9DDD0F9DBD1FADDD0FADED1F9DED3F7DCD3DEC1 388 | B8A3807AAFADA4A69F95A69F95A8A39BA17F5399703C9B723DA57E4A7E501174 389 | 785081615D402E1E61574A6154456155465E52419C968AADA69CACA59AAAA49B 390 | BCA79EE0B7ADF6EFEDFDF4F1FEF4F1FEF2EFFDF3EFFEF0ECFEECE4FEE5DFFEE8 391 | DFFEEDE4FEF1EEFCF8F6FDEEE9FADBCEFADCD1FADBCEFBDBCDFBDBCDFBDBCEFB 392 | DDCFFADCD1FADED2F8DDD2F2DBD1BB9991AE9E99ABA69CACA59AACA59BAFA698 393 | 9E76449E7846A27A46AD86557F521275795182615D433121696053675C4E6A5F 394 | 4E675C4C877D70B3ADA4AEA89FAEA89FB1ADA5D3AB9DEAD8D1FBF1EDFEF2EFFD 395 | F2EFFFF1EEFDEEE8FEE7DDFEE6DDFEE8E0FEECE8FEF3EDFEF8F6FDF0EAFADACD 396 | FADCCDFADCCCFBDCCCFBDCCCFBDBCEFBDED1F8DED0F9DED2F9DBD1DCC0B7AB8C 397 | 86B6B1ABAEA89FAEA8A0AEA9A1AE9C82A37D4CA37E4FAA824EB28D5F7F531475 398 | 7A5182625D453525736A5E6F6558736859726758726757B1ABA2B4AEA5B4AEA4 399 | B2ADA4BFB3AADBB0A3F2E8E4FBF0EDFEF1EDFFF0EAFDE7E2FEE9E0FEE9E0FEE9 400 | E2FEEFEAFEF2EEFEF8F5FBF1EDFCDACCFCDACCFCDACDFADBD0FBDBCEFBDED1FB 401 | DED2FADCD2F7DED3EDD4CAB79490B8ADA7B3ADA4B4AEA4B3AEA5B7B1A9AB885E 402 | A88559A9865AB18A5AB8966A815517767A5182635D4938297B7367776E617A70 403 | 61796F61776D5F968E82BAB6AEB7B3ABB7B3ABB7B2AAC7B2AAE1BDB2F4EAE6FB 404 | EFE9FEE9E3FEEAE2FEEAE3FEE9E2FEEDE6FEF1ECFEF3EFFEF9F6FDF2EFFBDED2 405 | FCDCCEFCDCCFFCDED2FADDD2FBDFD1FADED3F9DCD3F1DACEC4A59EBAAAA7BBB7 406 | AEB7B2AAB7B3ABB7B3ACB7A58FAD8B5FAD8C62AF8D62B79361BC9D7382551876 407 | 7B5282635E4C3C2D847C7180776B83796C83796C83786B7F7567B4AEA5BDB8B0 408 | BDB8B0BCB7AFBEBBB3CFB8B0E2BFB7F4E0DBFAE9E2FDEAE3FDEBE4FEEBE4FEEE 409 | EBFEF3EDFEF4F3FEF9F8FDF4F0FBE1D6FCDED1FCDED2FCE0D5FBE0D4FAE0D4F8 410 | DFD4EED7CEC8ABA4BDABA5BEBAB3BCB7AFBDB8B0BCB8B0BFB9B0B2946DB2936C 411 | B2936DB6976DBC996CC1A47E83571B767B5383635F503F328D867D8880758B82 412 | 768A82768A82768A817591887DC2BDB6C1BCB5C0BBB4C0BBB4C1BFB9CFBEB7DE 413 | BCB2EED7CFF7E9E2FBEAE3FDEDE7FEF1EEFEF4F0FEF7F4FEF9F9FDF5F4FCE6DD 414 | FCE0D4FCE2D6FBE1D6F9E0D5F7DFD3E5CCC4C8ABA4C5B6B3C3BFB8C0BBB4C0BB 415 | B4C0BBB4C2BEB9BBA384B79B75B89C77B79B77BE9F77C1A076C6AB8984591D76 416 | 7B5383635F544336968F8690897F938B80948B80948B80948B8092897EA0998D 417 | C9C4BFC6C1BBC6C1BBC5C0BAC4C1BBCEC6C0DABDB6E4C7C0F0DCD6F8EDE8F9F0 418 | EDFBF2F0FCF6F3FCF8F7FCF6F4FAE9E1F9E0D6F9E1D7F6DED5ECD2CAD6BBB4C9 419 | B1ACCCC3C0C7C5BFC5C0BAC6C1BBC6C1BBC6C2BEC3B39CBCA17DBDA381BCA281 420 | BEA381C4A781C6A780CCB394845B1E777C5484645F564739A099909992889C94 421 | 889B93889B93889B93889B9388999287B1ABA3CDC9C3CAC6C0C9C6BFC9C5BFC8 422 | C5BFCECBC8D4C7C2DBC2BBE1C5BEE8D3CEEFE0DBF2EAE7F6F0EEF5EEEBF1E0DB 423 | EBD3CBE3CAC3D7BDB7CFB9B4D1C7C4D0CEC9C9C5C0C9C5BFC9C6BFC9C6BFCAC7 424 | C3C8B7A3C0A887C1A989C1A989C2A989C7AD8BCAAF8AC9AE89D1BA9E875B2177 425 | 7D558465605A4B3DA8A29BA29C94A59E94A59E94A59E94A59E94A59E94A59E94 426 | A29B90B3AEA5D0CCC6CFCBC6CFCBC6CFCBC6CECAC5CDCAC5D2D0CDD8D2CEDACE 427 | CAD9C7C2DBC4BEDAC3BED9C3BED8C2BCD6C4C1D7CCC8D8D3D0D5D3CFCFCBC6CE 428 | CAC5CFCBC6CFCBC6CFCBC6CFCCC9CCBFACC7B091C8B095C8B295C7B195CCB495 429 | CFB696CFB696CEB595D5C2A9875D22787D568565605D4F42B1ACA4ABA59CADA5 430 | 9CADA59CADA59CADA59CADA59CADA59CADA59CABA49AB3AEA6D0CCC8D4D1CCD3 431 | D0CBD2D0CBD2D0CBD2CFCAD2CFCAD2D0CBD7D5D2DBD9D5DCDAD7DBD9D7DBD9D5 432 | D6D5D1D4D2CED2CFCAD2CFCAD2CFCAD2D0CBD2D0CBD2D0CBD4D1CDCFBFAACCB7 433 | 9BCDB79DCCB79DCDB89DD1BB9FD3BC9FD2BD9FD2BD9FD2BC9ED9C8B2885F2578 434 | 7D56846561615346B9B5AFB3AFA6B5AFA7B5AFA7B5AFA7B5AFA7B5AFA7B5AFA7 435 | B5AFA7B5AFA7B4ADA5B2ADA5C9C5BED9D6D1D8D5D0D8D5D0D8D5D0D8D5D0D8D5 436 | CFD7D4CFD7D4CFD7D4CFD7D4CFD7D4CFD7D4CFD8D4CFD8D5D0D8D5D0D8D5D0D8 437 | D5D0D8D6D2D7CEC4D2C0A9D1BEA6D2BEA8D1C0A8D4C1A8D6C2A8D8C3A8D8C3A8 438 | D8C3A8D8C3A8D8C2A7DDCFBC896027787E5684656165564BC2BEB9BBB6AFBDB8 439 | AFBDB8AFBDB8AFBDB8AFBDB8AFBDB8AFBDB8AFBDB8AFBDB8AFBCB7AFBBB6AFBE 440 | B9B1D0CCC7DCD9D6DDDAD6DBD9D5DBD9D5DAD8D5DAD8D5DAD8D5DAD8D5DAD8D5 441 | DAD8D5DAD9D5DAD9D5DCD9D5DCDAD5DCD4CCD7C9B7D5C5AFD5C5B0D5C5B0D6C7 442 | B0D9C8B0DBC9B0DCC9B0DCC8B0DCC8B0DCC8B0DCC8B0DAC8B0E2D6C58B612876 443 | 7C538666615F5043C8C4BFC4C0BAC5C0BAC5BFBAC5BFBAC5BFBAC5BFBAC5BFBA 444 | C5BFBAC5BFBAC5BFBAC5BFBAC5BFBAC4BFB9C3BEB8C4C0B9CFCBC6D9D6D1DFDD 445 | D9E0DEDAE0DEDAE0DEDAE0DEDAE0DEDAE0DEDAE1DDD9E0DBD5DFD6C9DCCEBCDA 446 | CBB9DACCBADACCBBDBCCBBDCCEBBDFCFBBE0D0BBE0D0BBE0D0BBE0D0BBE0D0BB 447 | E0D0BBE0D0BBDDCDBAE5DACE7E591DAAAB91A78B884C2E21BDBBB5CECBC6CBC7 448 | C2CDC9C2CDC9C3CDC9C3CDC9C3CDC9C3CDC9C3CDC9C3CDC9C3CDC9C3CBC9C3CB 449 | C9C3CDC9C3CDC8C2CCC8C1CBC7C1CBC7C1DFDDD9E4E2DFE4E2DFE4E2DFE4E2DF 450 | E4E0DADFD2C1DFD2C2DFD3C2DFD3C3DFD3C4E1D5C4E2D5C4E3D5C4E4D6C4E4D6 451 | C4E4D6C4E4D6C4E4D6C4E3D6C4E3D6C4E3D6C3E1D4C2E5D9CCDAC9B5514301E0 452 | DFD4FAF9F94C0E0A8C857ADEDCDADBD8D5D3D0CCD2CECAD2CECAD2CECAD2CECA 453 | D2CECAD1CECAD1CECAD1CECAD1CECAD1CECAD1CECAD1CECAD1CECAD1CECAD2CD 454 | C9E0DDDAE8E6E2E7E5E2E7E5E2E7E5E2E7E1DAE2D8CAE3D8CBE3D8CBE4D8CBE5 455 | DACBE5DACBE5DACBE5DACBE5D9CBE5D9CBE5D9CBE3DACBE4D8CBE4D8CBE4D8CB 456 | E5DACDEBE3DAEFE9E0A5825577774BFFFFFFFFFFFFDAD0CE5417109B948ACAC9 457 | C4E6E5E3EEEDEBEFEEEDEFEEEDEFEEEDEFEEEDEFEEEDEFEEEDEFEEEDEFEEEDEF 458 | EEEDEFEEEDEFEEEDEFEEEDEFEEEDEEEEECF4F3F2F6F5F5F6F5F4F6F5F4F6F5F5 459 | F6F5F2F6F1ECF6F2EDF6F2EDF6F2EDF6F2EDF6F2EDF6F2EDF6F2EDF6F2EDF6F2 460 | EDF6F2EDF6F2EDF6F2EDF6F2EDF5F1ECF2EBE5E4D5C7B69A74576028F7F6F4FF 461 | FFFFFFFFFFFFFFFFDCD2D054120D704A418E7E769C91889D928B9D928A9D928A 462 | 9D928A9D928A9D928A9D928A9D928A9D928A9D928A9D928A9D928A9D928A9B8F 463 | 88BAB4ADCBC7C1CAC6C0CAC6C0CAC6C1C8BEAEBCA888BDAA8ABDAA8ABDAA8ABD 464 | AA8ABDAA8ABDAA8ABEAA8ABDAA8ABDAA8ABDAA8ABEAA8CBEAA8BBEAA8CBCA787 465 | A9936C6B632D727B4FF7F7F4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFAFAB79E 466 | 9B8A64608A67638B68648A68648A68648A68648A68648A68648A68648A68648A 467 | 68648A68648A68648A67648B68648D6A67A49187AEA79AACA598ACA598ADA699 468 | A49F8C8386668286658284638285648285648285648285648285648285648285 469 | 648285648285648285648185628084628E9271E3E3DAFFFFFFFFFFFFFFFFFFFF 470 | FFFF} 471 | end 472 | end 473 | object ActionList1: TActionList 474 | Left = 136 475 | Top = 208 476 | object aBack: TAction 477 | Caption = '< Back' 478 | OnExecute = aBackExecute 479 | end 480 | object aNext: TAction 481 | Caption = 'Next >' 482 | OnExecute = aNextExecute 483 | end 484 | object aCancel: TAction 485 | Caption = 'Cancel' 486 | OnExecute = aCancelExecute 487 | end 488 | object aBrowse: TAction 489 | Caption = 'Browse...' 490 | OnExecute = aBrowseExecute 491 | end 492 | object aSaveLog: TAction 493 | Caption = 'Save Log' 494 | Enabled = False 495 | Visible = False 496 | OnExecute = aSaveLogExecute 497 | end 498 | object aFinish: TAction 499 | Caption = 'Finish' 500 | Enabled = False 501 | Visible = False 502 | OnExecute = aFinishExecute 503 | end 504 | end 505 | object SaveDialog1: TSaveDialog 506 | DefaultExt = 'txt' 507 | Filter = 'Text files|*.txt' 508 | Left = 168 509 | Top = 208 510 | end 511 | object Timer1: TTimer 512 | Enabled = False 513 | Interval = 500 514 | OnTimer = Timer1Timer 515 | Left = 200 516 | Top = 208 517 | end 518 | end 519 | -------------------------------------------------------------------------------- /Source/unit1.pas: -------------------------------------------------------------------------------- 1 | unit Unit1; 2 | 3 | interface 4 | 5 | {$WARN SYMBOL_PLATFORM OFF} 6 | {$WARN UNIT_PLATFORM OFF} 7 | {$BOOLEVAL OFF} // Unit depends on short-circuit boolean evaluation 8 | 9 | {.$DEFINE SPDEBUGMODE} // Uncomment to debug 10 | 11 | uses 12 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 13 | Dialogs, ComCtrls, StdCtrls, ExtCtrls, ActnList, CheckLst, Contnrs, 14 | IniFiles, Actions, SpComponentInstaller; 15 | 16 | const 17 | rvMultiInstallerVersion = 'Silverpoint MultiInstaller 3.5.4'; 18 | rvMultiInstallerLink = 'http://www.silverpointdevelopment.com'; 19 | 20 | resourcestring 21 | SWelcomeTitle = 'Welcome to the Silverpoint MultiInstaller Setup Wizard'; 22 | SDestinationTitle = 'Select Destination Folder'; 23 | SInstallingTitle = 'Installing...'; 24 | SFinishTitle = 'Completing the MultiInstaller Setup Wizard'; 25 | 26 | SCloseDelphi = 'Close Delphi to continue.'; 27 | SErrorLabel = 'There were errors found in the setup, check the log.'; 28 | SErrorInvalidBasePath = 'The directory doesn''t exist.'; 29 | 30 | SErrorDetectingBDSPROJECTSDIR = 'Silverpoint MultiInstaller couldn''t detect the $(BDSPROJECTSDIR) directory.' + #13#10 + 31 | 'You are probably using the Japanese version of Delphi 2009.' + #13#10 + 32 | 'Please, send a bug report to the author: ' + rvMultiInstallerLink; 33 | 34 | type 35 | TForm1 = class(TForm) 36 | PageControl1: TPageControl; 37 | TabSheet1: TTabSheet; 38 | TabSheet2: TTabSheet; 39 | TabSheet3: TTabSheet; 40 | Panel1: TPanel; 41 | ButtonNext: TButton; 42 | ButtonBack: TButton; 43 | Panel2: TPanel; 44 | LabelTitle: TLabel; 45 | Label1: TLabel; 46 | ButtonCancel: TButton; 47 | InstallFolderEdit: TEdit; 48 | ButtonBrowse: TButton; 49 | Label2: TLabel; 50 | ActionList1: TActionList; 51 | aBack: TAction; 52 | aNext: TAction; 53 | aCancel: TAction; 54 | aBrowse: TAction; 55 | RadioGroup1: TRadioGroup; 56 | CompileCheckbox: TCheckBox; 57 | Label3: TLabel; 58 | FinishLabel: TLabel; 59 | ButtonFinish: TButton; 60 | Bevel1: TBevel; 61 | Button1: TButton; 62 | aSaveLog: TAction; 63 | aFinish: TAction; 64 | SaveDialog1: TSaveDialog; 65 | LogMemo: TMemo; 66 | CheckListBox1: TCheckListBox; 67 | Timer1: TTimer; 68 | Bevel2: TBevel; 69 | PaintBoxLabel: TPaintBox; 70 | Image1: TImage; 71 | procedure FormCreate(Sender: TObject); 72 | procedure aBrowseExecute(Sender: TObject); 73 | procedure aBackExecute(Sender: TObject); 74 | procedure aNextExecute(Sender: TObject); 75 | procedure aCancelExecute(Sender: TObject); 76 | procedure FormDestroy(Sender: TObject); 77 | procedure CompileCheckboxClick(Sender: TObject); 78 | procedure aSaveLogExecute(Sender: TObject); 79 | procedure aFinishExecute(Sender: TObject); 80 | procedure FormShow(Sender: TObject); 81 | procedure CheckListBox1DrawItem(Control: TWinControl; Index: Integer; 82 | Rect: TRect; State: TOwnerDrawState); 83 | procedure CheckListBox1MeasureItem(Control: TWinControl; 84 | Index: Integer; var Height: Integer); 85 | procedure CheckListBox1ClickCheck(Sender: TObject); 86 | procedure Timer1Timer(Sender: TObject); 87 | procedure PaintBoxLabelPaint(Sender: TObject); 88 | procedure PaintBoxLabelClick(Sender: TObject); 89 | private 90 | { Private declarations } 91 | public 92 | { Public declarations } 93 | AppPath: string; 94 | Installer: TSpMultiInstaller; 95 | procedure FillCheckListBox; 96 | procedure FillRadioGroup; 97 | function ValidateCheckListBox: Boolean; 98 | function ChangePage(Next: Boolean): Boolean; 99 | function Install: Boolean; 100 | procedure CloseDelphi; 101 | end; 102 | 103 | var 104 | Form1: TForm1; 105 | 106 | implementation 107 | 108 | {$R *.dfm} 109 | 110 | uses 111 | System.UITypes; 112 | 113 | const 114 | rvSetupIni = 'Setup.Ini'; 115 | crIDC_HAND = 32649; 116 | 117 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM 118 | { Form UI } 119 | 120 | procedure TForm1.FormCreate(Sender: TObject); 121 | begin 122 | Screen.Cursors[crIDC_HAND] := LoadCursor(0, IDC_HAND); 123 | PaintBoxLabel.Cursor := crIDC_HAND; 124 | AppPath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)); 125 | 126 | Installer := TSpMultiInstaller.Create(AppPath + rvSetupIni); 127 | PageControl1.ActivePageIndex := 0; 128 | LabelTitle.Caption := SWelcomeTitle; 129 | SaveDialog1.InitialDir := AppPath; 130 | FillCheckListBox; 131 | FillRadioGroup; 132 | ValidateCheckListBox; 133 | 134 | {$IFDEF SPDEBUGMODE} 135 | ReportMemoryLeaksOnShutdown := True; 136 | {$ENDIF} 137 | end; 138 | 139 | procedure TForm1.FormDestroy(Sender: TObject); 140 | begin 141 | Installer.Free; 142 | end; 143 | 144 | procedure TForm1.FormShow(Sender: TObject); 145 | begin 146 | CloseDelphi; 147 | 148 | if DirectoryExists(Installer.ComponentPackages.DefaultInstallFolder) then begin 149 | InstallFolderEdit.Text := Installer.ComponentPackages.DefaultInstallFolder; 150 | if CompileCheckbox.Checked then begin 151 | PageControl1.ActivePageIndex := PageControl1.PageCount - 1; 152 | Timer1.Enabled := True; // Delay it a little for UI responsiveness 153 | end; 154 | end; 155 | end; 156 | 157 | procedure TForm1.Timer1Timer(Sender: TObject); 158 | begin 159 | Timer1.Enabled := False; 160 | Install; 161 | end; 162 | 163 | function TForm1.ChangePage(Next: Boolean): Boolean; 164 | var 165 | I, C: Integer; 166 | begin 167 | Result := False; 168 | I := PageControl1.ActivePageIndex; 169 | C := PageControl1.PageCount - 1; 170 | 171 | if Next then begin 172 | if I = C then Exit 173 | else 174 | if I = 1 then 175 | if not DirectoryExists(InstallFolderEdit.Text) then begin 176 | MessageDlg(SErrorInvalidBasePath, mtWarning, [mbOK], 0); 177 | Exit; 178 | end; 179 | end 180 | else 181 | if I = 0 then Exit; 182 | 183 | Result := True; 184 | if Next then inc(I) 185 | else dec(I); 186 | PageControl1.ActivePageIndex := I; 187 | 188 | ButtonBack.Enabled := I > 0; 189 | case I of 190 | 0: LabelTitle.Caption := SWelcomeTitle; 191 | 1: LabelTitle.Caption := SDestinationTitle; 192 | 2: begin 193 | LabelTitle.Caption := SInstallingTitle; 194 | Timer1.Enabled := True; // Delay it a little for UI responsiveness 195 | end; 196 | else 197 | LabelTitle.Caption := ''; 198 | end; 199 | end; 200 | 201 | procedure TForm1.CompileCheckboxClick(Sender: TObject); 202 | begin 203 | RadioGroup1.Enabled := CompileCheckbox.Checked; 204 | end; 205 | 206 | procedure TForm1.FillCheckListBox; 207 | var 208 | I, G, P: Integer; 209 | begin 210 | for I := 0 to Installer.ComponentPackages.Count - 1 do begin 211 | P := -1; 212 | G := Installer.ComponentPackages[I].GroupIndex; 213 | if G > 0 then begin 214 | P := CheckListBox1.Items.IndexOfObject(Pointer(G)); 215 | if P > -1 then 216 | CheckListBox1.Items[P] := CheckListBox1.Items[P] + #13#10 + Installer.ComponentPackages[I].Name 217 | end; 218 | 219 | if P = -1 then begin 220 | P := CheckListBox1.Items.AddObject(Installer.ComponentPackages[I].Name, Pointer(G)); 221 | CheckListBox1.Checked[P] := True; 222 | end; 223 | end; 224 | end; 225 | 226 | procedure TForm1.FillRadioGroup; 227 | var 228 | IDE: TSpIDEType; 229 | begin 230 | RadioGroup1.ItemIndex := -1; 231 | 232 | for IDE := Low(TSpIDEType) to High(TSpIDEType) do 233 | if IDE >= Installer.ComponentPackages.MinimumIDE then 234 | if SpIDEInstalled(IDE) then begin 235 | RadioGroup1.Items.AddObject(IDETypes[IDE].IDEName, Pointer(Ord(IDE))); 236 | if IDE = Installer.ComponentPackages.DefaultInstallIDE then 237 | RadioGroup1.ItemIndex := RadioGroup1.Items.Count - 1; 238 | end; 239 | 240 | if RadioGroup1.ItemIndex = -1 then 241 | RadioGroup1.ItemIndex := RadioGroup1.Items.Count - 1 242 | else 243 | CompileCheckbox.Checked := True; 244 | end; 245 | 246 | function TForm1.ValidateCheckListBox: Boolean; 247 | var 248 | I: Integer; 249 | begin 250 | Result := False; 251 | for I := 0 to CheckListBox1.Count - 1 do 252 | if CheckListBox1.Checked[I] then begin 253 | Result := True; 254 | Break; 255 | end; 256 | 257 | ButtonNext.Enabled := Result; 258 | end; 259 | 260 | procedure TForm1.CheckListBox1ClickCheck(Sender: TObject); 261 | begin 262 | ValidateCheckListBox; 263 | end; 264 | 265 | procedure TForm1.CheckListBox1MeasureItem(Control: TWinControl; 266 | Index: Integer; var Height: Integer); 267 | var 268 | R: TRect; 269 | begin 270 | if Index > -1 then 271 | Height := DrawText(CheckListBox1.Canvas.Handle, PChar(CheckListBox1.Items[Index]), -1, R, DT_CALCRECT) + 4; 272 | end; 273 | 274 | procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; 275 | Index: Integer; Rect: TRect; State: TOwnerDrawState); 276 | begin 277 | if Index > -1 then begin 278 | CheckListBox1.Canvas.FillRect(Rect); 279 | OffsetRect(Rect, 8, 2); 280 | DrawText(CheckListBox1.Canvas.Handle, PChar(CheckListBox1.Items[Index]), -1, Rect, 0); 281 | end; 282 | end; 283 | 284 | procedure TForm1.PaintBoxLabelPaint(Sender: TObject); 285 | var 286 | C: TCanvas; 287 | begin 288 | C := PaintBoxLabel.Canvas; 289 | C.Brush.Style := bsClear; 290 | C.Font.Color := clBtnHighlight; 291 | C.TextOut(1, 1, rvMultiInstallerVersion); 292 | C.Font.Color := clBtnShadow; 293 | C.TextOut(0, 0, rvMultiInstallerVersion); 294 | end; 295 | 296 | procedure TForm1.PaintBoxLabelClick(Sender: TObject); 297 | begin 298 | SpOpenLink(rvMultiInstallerLink); 299 | end; 300 | 301 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM 302 | { Actions } 303 | 304 | procedure TForm1.aBackExecute(Sender: TObject); 305 | begin 306 | ChangePage(False); 307 | end; 308 | 309 | procedure TForm1.aNextExecute(Sender: TObject); 310 | begin 311 | ChangePAge(True); 312 | end; 313 | 314 | procedure TForm1.aCancelExecute(Sender: TObject); 315 | begin 316 | Close; 317 | end; 318 | 319 | procedure TForm1.aFinishExecute(Sender: TObject); 320 | begin 321 | Close; 322 | end; 323 | 324 | procedure TForm1.aSaveLogExecute(Sender: TObject); 325 | begin 326 | if SaveDialog1.Execute then 327 | LogMemo.Lines.SaveToFile(SaveDialog1.FileName); 328 | end; 329 | 330 | procedure TForm1.aBrowseExecute(Sender: TObject); 331 | var 332 | D: string; 333 | begin 334 | D := ExtractFileDir(Application.ExeName); 335 | if SpSelectDirectory('', '', D) then 336 | InstallFolderEdit.Text := D; 337 | end; 338 | 339 | //WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM 340 | { Install } 341 | 342 | procedure TForm1.CloseDelphi; 343 | var 344 | Cancel: Boolean; 345 | begin 346 | {$IFDEF SPDEBUGMODE} 347 | Exit; 348 | {$ENDIF} 349 | 350 | Cancel := False; 351 | while not Cancel and ((FindWindow('TAppBuilder', nil) <> 0) or (FindWindow('TAppBuilder', nil) <> 0)) do 352 | Cancel := MessageDlg(SCloseDelphi, mtWarning, [mbOK, mbCancel], 0) = mrCancel; 353 | if Cancel then 354 | Close; 355 | end; 356 | 357 | function TForm1.Install: Boolean; 358 | var 359 | I, J, G: Integer; 360 | IDE: TSpIDEType; 361 | begin 362 | Result := False; 363 | 364 | // Get IDE version 365 | IDE := ideNone; 366 | I := RadioGroup1.ItemIndex; 367 | if (CompileCheckbox.Checked) and (I > -1) and Assigned(RadioGroup1.Items.Objects[I]) then begin 368 | IDE := TSpIDEType(RadioGroup1.Items.Objects[I]); 369 | // Try to detect BDS Project Dir 370 | // BDS doesn't define $(BDSPROJECTSDIR) in the registry we have to detect it 371 | if IDE > ideDelphi7 then 372 | if SpIDEBDSProjectsDir(IDE) = '' then begin 373 | MessageDlg(SErrorDetectingBDSPROJECTSDIR, mtError, [mbOK], 0); 374 | Close; 375 | Exit; 376 | end; 377 | end; 378 | 379 | // Delete unchecked components from the ComponentPackages list 380 | for I := 0 to CheckListBox1.Count - 1 do 381 | if not CheckListBox1.Checked[I] then begin 382 | G := Integer(CheckListBox1.Items.Objects[I]); 383 | for J := Installer.ComponentPackages.Count - 1 downto 0 do 384 | if (G > 0) and (Installer.ComponentPackages[J].GroupIndex = G) then 385 | Installer.ComponentPackages.Delete(J) 386 | else 387 | if CheckListBox1.Items[I] = Installer.ComponentPackages[J].Name then 388 | Installer.ComponentPackages.Delete(J); 389 | end; 390 | 391 | CloseDelphi; 392 | try 393 | aFinish.Visible := True; 394 | aSaveLog.Visible := True; 395 | aBack.Visible := False; 396 | aNext.Visible := False; 397 | aCancel.Visible := False; 398 | Application.ProcessMessages; 399 | 400 | // Check, Unzip, Patch, Compile, Install 401 | if Installer.Install(AppPath, InstallFolderEdit.Text, IDE, LogMemo.Lines) then 402 | Result := True; 403 | finally 404 | LabelTitle.Caption := SFinishTitle; 405 | aFinish.Enabled := True; 406 | aSaveLog.Enabled := True; 407 | if not Result then begin 408 | FinishLabel.Font.Color := clRed; 409 | FinishLabel.Caption := SErrorLabel; 410 | end; 411 | FinishLabel.Visible := True; 412 | end; 413 | end; 414 | 415 | end. 416 | --------------------------------------------------------------------------------