JpegWasher: package-files/windows/win32installer.iss annotate

annotate package-files/windows/win32installer.iss @ 34:d175593317a8

Add a bunch of packaging stuff, NOT WORKING YET,

author	David Barts <n5jrn@me.com>
date	Wed, 29 Apr 2020 21:49:21 -0700
parents
children

rev	line source
34 d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	1 ; Inno Setup installer script for jEdit
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	2 ; encoding=UTF-8Y
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	3 ; (BOM seems the only way to let Inno Setup know the encoding)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	4 ;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	5 ; Björn "Vampire" Kautler <Vampire@jEdit.org>
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	6 ;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	7
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	8 [Setup]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	9 AllowNoIcons=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	10 AppContact=jedit-devel@lists.sourceforge.net
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	11 AppCopyright=Copyright © 1998-@current.year@ Contributors
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	12 AppID=jEdit
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	13 AppName=jEdit
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	14 AppPublisher=Contributors
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	15 AppPublisherURL=http://www.jEdit.org
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	16 AppReadmeFile={app}\doc\README.txt
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	17 AppSupportURL=http://www.jEdit.org
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	18 AppUpdatesURL=http://www.jEdit.org
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	19 AppVerName=jEdit @jedit.version@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	20 AppVersion=@jedit.version@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	21 ArchitecturesInstallIn64BitMode=x64
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	22 ChangesAssociations=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	23 ChangesEnvironment=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	24 DefaultDirName={pf}\jEdit
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	25 DefaultGroupName=jEdit
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	26 FlatComponentsList=false
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	27 ; Do not use LicenseFile here as the GPL does not require acceptance of
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	28 ; the license for running the program, but still show it as information
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	29 InfoBeforeFile=@dist.dir.for.innosetup@\doc\COPYING.txt
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	30 OutputBaseFilename=@win.filename@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	31 OutputDir=@dist.dir.for.innosetup@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	32 SetupIconFile=@base.dir.for.innosetup@\icons\jedit.ico
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	33 ShowTasksTreeLines=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	34 SolidCompression=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	35 SourceDir=@dist.dir.for.innosetup@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	36 TimeStampsInUTC=true
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	37 UninstallDisplayIcon={app}\jedit.exe
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	38 UninstallDisplayName=jEdit @jedit.version@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	39 VersionInfoCompany=Contributors
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	40 VersionInfoCopyright=Copyright © 1998-@current.year@ Contributors
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	41 VersionInfoDescription=Programmer's Text Editor
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	42 VersionInfoTextVersion=@jedit.version@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	43 VersionInfoVersion=@jedit.build.number@
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	44 WizardImageFile=@base.dir.for.innosetup@\icons\WindowsInstallerImage.bmp
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	45 WizardSmallImageFile=@base.dir.for.innosetup@\icons\WindowsInstallerSmallImage.bmp
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	46
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	47 [Components]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	48 Name: main; Description: jEdit - Programmer's Text Editor; Flags: fixed; Types: custom compact full
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	49 Name: apidoc; Description: {cm:APIDocumentation}; Types: full
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	50 Name: macros; Description: {cm:Macros}; Types: compact full
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	51
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	52 [Tasks]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	53 Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	54 Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	55 Name: autostartserver; Description: {cm:AutostartJEditServer}; GroupDescription: Autostart:
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	56
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	57 [Files]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	58 Source: @jar.filename@; DestDir: {app}; Flags: ignoreversion sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	59 Source: jedit.exe; DestDir: {app}; Flags: ignoreversion sortfilesbyextension sortfilesbyname; AfterInstall: updatePATHVariable; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	60 Source: classes\package-files\windows\jEdit.url; DestDir: {app}; Flags: ignoreversion sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	61 Source: doc\; DestDir: {app}\doc; Excludes: \doc\api\; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	62 Source: doc\api\*; DestDir: {app}\doc\api; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: apidoc
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	63 Source: jars\QuickNotepad.jar; DestDir: {app}\jars; Flags: ignoreversion sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	64 Source: macros\*; DestDir: {app}\macros; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: macros
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	65 Source: keymaps\*; DestDir: {app}\keymaps; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	66 Source: modes\*; DestDir: {app}\modes; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	67 Source: properties\*; DestDir: {app}\properties; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	68 Source: startup\*; DestDir: {app}\startup; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension sortfilesbyname; Components: main
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	69
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	70 [Icons]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	71 Name: {group}\jEdit; Filename: {app}\jedit.exe; WorkingDir: {app}; Comment: jEdit - Programmer's Text Editor; HotKey: ctrl+alt+j
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	72 Name: {group}\{cm:ProgramOnTheWeb,jEdit}; Filename: {app}\jEdit.url; Comment: jEdit Website
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	73 Name: {group}\{cm:LaunchProgram,jEdit Server}; Filename: {app}\jedit.exe; Parameters: "-background -nogui --l4j-dont-wait"; WorkingDir: {app}; Comment: {cm:LaunchProgram,jEdit Server}
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	74 Name: {group}\{cm:QuitProgram,jEdit Server}; Filename: {app}\jedit.exe; Parameters: "-quit"; WorkingDir: {app}; Comment: {cm:QuitProgram,jEdit Server}
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	75 Name: {group}\{cm:UninstallProgram,jEdit}; Filename: {uninstallexe}; Comment: {cm:UninstallProgram,jEdit}
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	76 Name: {userdesktop}\jEdit; Filename: {app}\jedit.exe; Tasks: desktopicon; WorkingDir: {app}; Comment: jEdit - Programmer's Text Editor
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	77 Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\jEdit; Filename: {app}\jedit.exe; Tasks: quicklaunchicon; WorkingDir: {app}; Comment: jEdit - Programmer's Text Editor
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	78
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	79 [Languages]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	80 Name: en; MessagesFile: compiler:Default.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	81 Name: de; MessagesFile: compiler:Languages\German.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	82 Name: eu; MessagesFile: compiler:Languages\Basque.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	83 Name: pt_BR; MessagesFile: compiler:Languages\BrazilianPortuguese.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	84 Name: ca; MessagesFile: compiler:Languages\Catalan.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	85 Name: cs; MessagesFile: compiler:Languages\Czech.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	86 Name: da; MessagesFile: compiler:Languages\Danish.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	87 Name: nl; MessagesFile: compiler:Languages\Dutch.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	88 Name: fi; MessagesFile: compiler:Languages\Finnish.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	89 Name: fr; MessagesFile: compiler:Languages\French.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	90 Name: he; MessagesFile: compiler:Languages\Hebrew.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	91 Name: hu; MessagesFile: compiler:Languages\Hungarian.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	92 Name: it; MessagesFile: compiler:Languages\Italian.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	93 Name: ja; MessagesFile: compiler:Languages\Japanese.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	94 Name: no; MessagesFile: compiler:Languages\Norwegian.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	95 Name: pl; MessagesFile: compiler:Languages\Polish.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	96 Name: pt; MessagesFile: compiler:Languages\Portuguese.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	97 Name: ru; MessagesFile: compiler:Languages\Russian.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	98 Name: sk; MessagesFile: compiler:Languages\Slovak.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	99 Name: sl; MessagesFile: compiler:Languages\Slovenian.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	100 Name: es; MessagesFile: compiler:Languages\Spanish.isl
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	101
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	102 [CustomMessages]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	103 ; Default messages
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	104 APIDocumentation=API Documentation (for macro and plugin development)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	105 Macros=Default set of macros (highly recommended)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	106 AutostartJEditServer=Start jEdit Server automatically on system startup
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	107 QuitProgram=Quit %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	108 OpenWithProgram=Open with %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	109 pleaseQuitJEdit=The installer will now try to quit a running instance of jEdit.%nPlease save your work and exit jEdit for the installation to continue.
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	110 ViewFile=View %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	111 ; German messages
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	112 de.APIDocumentation=API Dokumentation (für Macro und Plugin Entwicklung)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	113 de.Macros=Standard Makros (sehr empfohlen)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	114 de.AutostartJEditServer=jEdit Server automatisch beim Hochfahren starten
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	115 de.QuitProgram=%1 beenden
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	116 de.OpenWithProgram=Mit %1 öffnen
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	117 de.pleaseQuitJEdit=Die Installation wird nun versuchen eine laufende Instanz von jEdit zu beenden.%nBitte speichern Sie Ihre Arbeit und beenden Sie jEdit um mit der Installation fortzufahren.
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	118 de.ViewFile=%1 anzeigen
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	119 ; French messages
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	120 fr.APIDocumentation=API Documentation (pour développement de Macro et Plugin)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	121 fr.Macros=Macros standards (vraiment recommandées)
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	122 fr.AutostartJEditServer=Démarrer automatiquement le serveur jEdit au démarrage de l'ordinateur
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	123 fr.QuitProgram=Quitter %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	124 fr.OpenWithProgram=Ouvrir avec %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	125 fr.pleaseQuitJEdit=L'installation va tenter à présent de quitter une instance de jEdit en cours.%nVeuillez enregistrer votre travail et quitter jEdit afin de poursuivre l'installation.
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	126 fr.ViewFile=Afficher %1
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	127
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	128 [Registry]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	129 Root: HKCR; Subkey: *\Shell; Flags: uninsdeletekeyifempty
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	130 Root: HKCR; Subkey: *\Shell\{cm:OpenWithProgram,jEdit}; Flags: uninsdeletekey
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	131 Root: HKCR; Subkey: *\Shell\{cm:OpenWithProgram,jEdit}\Command; ValueType: string; ValueData: """{app}\jedit.exe"" ""%1"""
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	132 Root: HKCR; Subkey: *\Shell\{cm:OpenWithProgram,jEdit}; ValueName: Icon; ValueType: string; ValueData: "{app}\jedit.exe"
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	133 Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: jEdit Server; ValueData: """{app}\jedit.exe"" -background -nogui --l4j-dont-wait"; Flags: uninsdeletevalue; Tasks: autostartserver
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	134
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	135 [Run]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	136 Filename: {app}\jedit.exe; Description: {cm:ViewFile,README}; Parameters: "--l4j-dont-wait -nosettings ""{app}\doc\README.txt"""; WorkingDir: {app}; Flags: nowait postinstall skipifsilent
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	137 Filename: {app}\jedit.exe; Description: {cm:ViewFile,CHANGES}; Parameters: "--l4j-dont-wait -nosettings ""{app}\doc\CHANGES.txt"""; WorkingDir: {app}; Flags: nowait postinstall skipifsilent
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	138 Filename: {app}\jedit.exe; Description: {cm:LaunchProgram,jEdit}; Parameters: "--l4j-dont-wait"; WorkingDir: {app}; Flags: nowait postinstall skipifsilent; Tasks: not autostartserver
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	139 Filename: {app}\jedit.exe; Description: {cm:LaunchProgram,jEdit}; Parameters: "--l4j-dont-wait -background"; WorkingDir: {app}; Flags: nowait postinstall skipifsilent; Tasks: autostartserver
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	140
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	141 [Code]
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	142 function findPathLine(lines: Array Of String): Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	143 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	144 i : Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	145 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	146 for i := 0 to GetArrayLength(lines) - 1 do begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	147 if Uppercase(Copy(Trim(lines[i]),1,5)) = 'PATH=' then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	148 Result := i;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	149 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	150 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	151 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	152
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	153 function appendAppDirIfNecessary(var path: String): Boolean;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	154 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	155 appDir : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	156 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	157 appDir := ExpandConstant('{app}');
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	158 if Pos(Uppercase(appDir),Uppercase(path)) = 0 then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	159 if Copy(path,Length(path),1) <> ';' then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	160 path := path + ';';
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	161 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	162 path := path + appDir;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	163 Result := true;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	164 end else begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	165 Result := false;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	166 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	167 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	168
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	169 procedure updatePATHVariableInRegistry;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	170 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	171 path : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	172 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	173 RegQueryStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment','Path',path);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	174 if appendAppDirIfNecessary(path) then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	175 RegWriteStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment','Path',path);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	176 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	177 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	178
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	179 procedure updatePATHVariableInAutoexecBat;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	180 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	181 lines : Array Of String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	182 pathLine : Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	183 path : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	184 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	185 LoadStringsFromFile(ExpandConstant('{sd}\AUTOEXEC.BAT'),lines);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	186 pathLine := findPathLine(lines);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	187 if pathLine = -1 then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	188 pathLine := GetArrayLength(lines);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	189 SetArrayLength(lines,pathLine + 1);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	190 lines[pathLine] := 'PATH=';
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	191 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	192 path := Trim(lines[pathLine]);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	193 if appendAppDirIfNecessary(path) then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	194 lines[pathLine] := path;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	195 SaveStringsToFile(ExpandConstant('{sd}\AUTOEXEC.BAT'),lines,false);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	196 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	197 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	198
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	199 procedure updatePATHVariable;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	200 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	201 if UsingWinNT then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	202 updatePATHVariableInRegistry;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	203 end else begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	204 updatePATHVariableInAutoexecBat;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	205 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	206 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	207
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	208 function removeAppDirIfNecessary(var path: String): Boolean;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	209 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	210 appDir : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	211 position : Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	212 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	213 appDir := ExpandConstant('{app}');
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	214 position := Pos(Uppercase(appDir),Uppercase(path));
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	215 if position = 0 then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	216 Result := false;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	217 end else begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	218 Delete(path,position,Length(appDir));
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	219 if Copy(path,position,1) = ';' then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	220 Delete(path,position,1);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	221 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	222 Result := true;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	223 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	224 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	225
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	226 procedure cleanPATHVariableInRegistry;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	227 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	228 path : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	229 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	230 RegQueryStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment','Path',path);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	231 if removeAppDirIfNecessary(path) then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	232 RegWriteStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment','Path',path);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	233 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	234 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	235
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	236 procedure cleanPATHVariableInAutoexecBat;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	237 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	238 lines : Array Of String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	239 pathLine : Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	240 path : String;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	241 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	242 LoadStringsFromFile(ExpandConstant('{sd}\AUTOEXEC.BAT'),lines);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	243 pathLine := findPathLine(lines);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	244 if pathLine <> -1 then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	245 path := Trim(lines[pathLine]);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	246 if removeAppDirIfNecessary(path) then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	247 lines[pathLine] := path;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	248 SaveStringsToFile(ExpandConstant('{sd}\AUTOEXEC.BAT'),lines,false);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	249 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	250 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	251 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	252
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	253 procedure cleanPATHVariable;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	254 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	255 if UsingWinNT then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	256 cleanPATHVariableInRegistry;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	257 end else begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	258 cleanPATHVariableInAutoexecBat;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	259 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	260 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	261
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	262 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	263 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	264 if CurUninstallStep = usPostUninstall then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	265 cleanPATHVariable;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	266 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	267 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	268
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	269 procedure quitJEdit;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	270 var
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	271 resultCode : Integer;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	272 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	273 case SuppressibleMsgBox(CustomMessage('pleaseQuitJEdit'),mbConfirmation,MB_OKCANCEL or MB_DEFBUTTON2, IDYES) of
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	274 IDOK: begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	275 ExtractTemporaryFile('@jar.filename@');
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	276 ExtractTemporaryFile('jedit.exe');
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	277 ExecAsOriginalUser(ExpandConstant('{tmp}/jedit.exe'),'-quit',ExpandConstant('{tmp}'),SW_SHOW,ewWaitUntilTerminated,resultCode);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	278 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	279 IDCANCEL: Abort;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	280 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	281 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	282
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	283 procedure CurStepChanged(CurStep: TSetupStep);
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	284 begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	285 if CurStep = ssInstall then begin
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	286 quitJEdit;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	287 end;
d175593317a8 Add a bunch of packaging stuff, NOT WORKING YET, David Barts <n5jrn@me.com> parents: diff changeset	288 end;

Mercurial > cgi-bin > hgweb.cgi > JpegWasher

annotate package-files/windows/win32installer.iss @ 34:d175593317a8