installer2/setup_win/AEI_no_jre.iss

#define AppId "{{B67333BB-1CF9-4EFD-A40B-E25B5CB4C8A7}}"
#define AppVersion "0.99h"
#define AppLongName "Anniversary Edition of Oni"
#define AppShortName "AEInstaller"

#define MinJavaVersion "1.6"
#define JavaDownloadPage "http://www.java.com/en/download/manual.jsp#win"

[Setup]
AppId={#AppId}
AppVersion={#AppVersion}
AppName={#AppLongName}
DefaultDirName={pf32}\Oni
OutputBaseFilename={#AppShortName}-v{#AppVersion}-noJRE-Setup
DefaultGroupName=Oni AE

DirExistsWarning=no
AppendDefaultDirName=no

ShowComponentSizes=no
AppPublisher=
AppPublisherURL=
AppSupportURL=
AppUpdatesURL=
AllowNoIcons=yes
OutputDir=.
Compression=lzma2/max
SolidCompression=yes

[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl"

[Messages]
en.SelectDirBrowseLabel=Please select the installation directory of Oni.

[CustomMessages]
en.wrongDir=This doesn't seem to be your Oni installation; I don't see a file here named "Oni.exe".
en.JavaNotFound=This program needs a Java Runtime (JRE) with version being at least %1.%nPlease download and install a suitable JRE.%nDo you want do download a JRE now?

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Dirs]
Name: "{app}\Edition"; Permissions: users-modify
 
[Files]
Source: "AEInstaller2.jar"; DestDir: "{app}\Edition\AEInstaller"
Source: "AElogo.ico"; DestDir: "{app}\Edition\AEInstaller"
Source: "..\locales\*"; DestDir: "{app}\Edition\AEInstaller\locales"; Excludes: ".svn"; Flags: createallsubdirs recursesubdirs onlyifdoesntexist

[Icons]
Name: "{group}\AEInstaller 2"; Filename: "{code:GetJavaPath}\bin\javaw.exe"; WorkingDir: "{app}\Edition\AEInstaller"; IconFilename: "{app}\Edition\AEInstaller\AElogo.ico"; Parameters: "-Dsun.java2d.d3d=false -jar AEInstaller2.jar"; Check: IsJavaInstalled
Name: "{commondesktop}\AEInstaller 2"; Filename: "{code:GetJavaPath}\bin\javaw.exe"; WorkingDir: "{app}\Edition\AEInstaller"; IconFilename: "{app}\Edition\AEInstaller\AElogo.ico"; Parameters: "-Dsun.java2d.d3d=false -jar AEInstaller2.jar"; Tasks: desktopicon; Check: IsJavaInstalled


[Code]
var
  javaPath: String;

procedure DecodeVersion (verstr: String; var verint: array of Integer);
var
  i,p: Integer; s: string;
begin
  // initialize array
  verint := [0,0,0,0];
  i := 0;
  while ((Length(verstr) > 0) and (i < 4)) do
  begin
    p := pos ('.', verstr);
    if p > 0 then
    begin
      if p = 1 then s:= '0' else s:= Copy (verstr, 1, p - 1);
      verint[i] := StrToInt(s);
      i := i + 1;
      verstr := Copy (verstr, p+1, Length(verstr));
    end
    else
    begin
      verint[i] := StrToInt (verstr);
      verstr := '';
    end;
  end;

end;

function CompareVersion (ver1, ver2: String) : Integer;
var
  verint1, verint2: array of Integer;
  i: integer;
begin
  SetArrayLength (verint1, 4);
  DecodeVersion (ver1, verint1);

  SetArrayLength (verint2, 4);
  DecodeVersion (ver2, verint2);

  Result := 0; i := 0;
  while ((Result = 0) and ( i < 4 )) do
  begin
    if verint1[i] > verint2[i] then
      Result := 1
    else
      if verint1[i] < verint2[i] then
        Result := -1;
    i := i + 1;
  end;

end;

procedure CheckJavaRuntime();
var
  W6432: Boolean;
  Res: Boolean;
  JavaVer: String;
begin
  W6432 := False;
  Res := RegQueryStringValue(HKLM, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', JavaVer);
  if (Res = False) and IsWin64() then
  begin
    Res := RegQueryStringValue(HKLM32, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', JavaVer);
    W6432 := Res;
  end;
  if Res = True then
  begin
    if Length( JavaVer ) > 0 then
    begin
        if CompareVersion(JavaVer, '{#MinJavaVersion}') >= 0 then
        begin
        if W6432 then
          Res := RegQueryStringValue(HKLM32, 'SOFTWARE\JavaSoft\Java Runtime Environment\'+JavaVer, 'JavaHome', javaPath)
        else
          Res := RegQueryStringValue(HKLM, 'SOFTWARE\JavaSoft\Java Runtime Environment\'+JavaVer, 'JavaHome', javaPath);
        end;
    end;
  end;
end;

function IsJavaInstalled(): Boolean;
begin
  Result := Length(javaPath) > 0;
end;

function GetJavaPath(Param: String): String;
begin
  Result := javaPath;
end;

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
begin
  CheckJavaRuntime();
  Result := IsJavaInstalled();
  if not Result then
  begin
    if MsgBox(FmtMessage(CustomMessage('JavaNotFound'), ['{#MinJavaVersion}']), mbConfirmation, MB_YESNO) = idYes then
    begin
        ShellExecAsOriginalUser('open', '{#JavaDownloadPage}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    end;
  end;
end;

function DirOk(Path: String): boolean;
begin
  Result := DirExists(Path+'\GameDataFolder') and FileExists(Path+'\Oni.exe');
end;

function NextButtonClick(CurPageID: Integer): boolean;
begin
  Result := True;

  if CurPageID = wpSelectDir then
  begin
    if (not DirOk(WizardDirValue)) then
    begin
      MsgBox(CustomMessage('wrongDir'), mbError, MB_OK);
      Result := False;
    end;
  end;
end;


function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := PageID = wpSelectComponents;
end;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
begin
  Result := MemoUserInfoInfo + NewLine;
  Result := Result + MemoDirInfo + NewLine;
  Result := Result + MemoGroupInfo + NewLine;
  Result := Result + MemoTasksInfo + NewLine;
end;

Revision:	657
Committed:	Tue Jan 29 11:43:01 2013 UTC (12 years, 8 months ago) by alloc
File size:	5629 byte(s)
Log Message:	AEI2 0.99i: - Added (un)select all button - Fixed install in offline mode - Added entry in mod-table-context menu to delete local package - Added "added" column to mod table
#	Content
1	#define AppId "{{B67333BB-1CF9-4EFD-A40B-E25B5CB4C8A7}}"
2	#define AppVersion "0.99h"
3	#define AppLongName "Anniversary Edition of Oni"
4	#define AppShortName "AEInstaller"
5
6	#define MinJavaVersion "1.6"
7	#define JavaDownloadPage "http://www.java.com/en/download/manual.jsp#win"
8
9	[Setup]
10	AppId={#AppId}
11	AppVersion={#AppVersion}
12	AppName={#AppLongName}
13	DefaultDirName={pf32}\Oni
14	OutputBaseFilename={#AppShortName}-v{#AppVersion}-noJRE-Setup
15	DefaultGroupName=Oni AE
16
17	DirExistsWarning=no
18	AppendDefaultDirName=no
19
20	ShowComponentSizes=no
21	AppPublisher=
22	AppPublisherURL=
23	AppSupportURL=
24	AppUpdatesURL=
25	AllowNoIcons=yes
26	OutputDir=.
27	Compression=lzma2/max
28	SolidCompression=yes
29
30	[Languages]
31	Name: "en"; MessagesFile: "compiler:Default.isl"
32
33	[Messages]
34	en.SelectDirBrowseLabel=Please select the installation directory of Oni.
35
36	[CustomMessages]
37	en.wrongDir=This doesn't seem to be your Oni installation; I don't see a file here named "Oni.exe".
38	en.JavaNotFound=This program needs a Java Runtime (JRE) with version being at least %1.%nPlease download and install a suitable JRE.%nDo you want do download a JRE now?
39
40	[Tasks]
41	Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
42
43	[Dirs]
44	Name: "{app}\Edition"; Permissions: users-modify
45
46	[Files]
47	Source: "AEInstaller2.jar"; DestDir: "{app}\Edition\AEInstaller"
48	Source: "AElogo.ico"; DestDir: "{app}\Edition\AEInstaller"
49	Source: "..\locales\*"; DestDir: "{app}\Edition\AEInstaller\locales"; Excludes: ".svn"; Flags: createallsubdirs recursesubdirs onlyifdoesntexist
50
51	[Icons]
52	Name: "{group}\AEInstaller 2"; Filename: "{code:GetJavaPath}\bin\javaw.exe"; WorkingDir: "{app}\Edition\AEInstaller"; IconFilename: "{app}\Edition\AEInstaller\AElogo.ico"; Parameters: "-Dsun.java2d.d3d=false -jar AEInstaller2.jar"; Check: IsJavaInstalled
53	Name: "{commondesktop}\AEInstaller 2"; Filename: "{code:GetJavaPath}\bin\javaw.exe"; WorkingDir: "{app}\Edition\AEInstaller"; IconFilename: "{app}\Edition\AEInstaller\AElogo.ico"; Parameters: "-Dsun.java2d.d3d=false -jar AEInstaller2.jar"; Tasks: desktopicon; Check: IsJavaInstalled
54
55
56	[Code]
57	var
58	javaPath: String;
59
60	procedure DecodeVersion (verstr: String; var verint: array of Integer);
61	var
62	i,p: Integer; s: string;
63	begin
64	// initialize array
65	verint := [0,0,0,0];
66	i := 0;
67	while ((Length(verstr) > 0) and (i < 4)) do
68	begin
69	p := pos ('.', verstr);
70	if p > 0 then
71	begin
72	if p = 1 then s:= '0' else s:= Copy (verstr, 1, p - 1);
73	verint[i] := StrToInt(s);
74	i := i + 1;
75	verstr := Copy (verstr, p+1, Length(verstr));
76	end
77	else
78	begin
79	verint[i] := StrToInt (verstr);
80	verstr := '';
81	end;
82	end;
83
84	end;
85
86	function CompareVersion (ver1, ver2: String) : Integer;
87	var
88	verint1, verint2: array of Integer;
89	i: integer;
90	begin
91	SetArrayLength (verint1, 4);
92	DecodeVersion (ver1, verint1);
93
94	SetArrayLength (verint2, 4);
95	DecodeVersion (ver2, verint2);
96
97	Result := 0; i := 0;
98	while ((Result = 0) and ( i < 4 )) do
99	begin
100	if verint1[i] > verint2[i] then
101	Result := 1
102	else
103	if verint1[i] < verint2[i] then
104	Result := -1;
105	i := i + 1;
106	end;
107
108	end;
109
110	procedure CheckJavaRuntime();
111	var
112	W6432: Boolean;
113	Res: Boolean;
114	JavaVer: String;
115	begin
116	W6432 := False;
117	Res := RegQueryStringValue(HKLM, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', JavaVer);
118	if (Res = False) and IsWin64() then
119	begin
120	Res := RegQueryStringValue(HKLM32, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', JavaVer);
121	W6432 := Res;
122	end;
123	if Res = True then
124	begin
125	if Length( JavaVer ) > 0 then
126	begin
127	if CompareVersion(JavaVer, '{#MinJavaVersion}') >= 0 then
128	begin
129	if W6432 then
130	Res := RegQueryStringValue(HKLM32, 'SOFTWARE\JavaSoft\Java Runtime Environment\'+JavaVer, 'JavaHome', javaPath)
131	else
132	Res := RegQueryStringValue(HKLM, 'SOFTWARE\JavaSoft\Java Runtime Environment\'+JavaVer, 'JavaHome', javaPath);
133	end;
134	end;
135	end;
136	end;
137
138	function IsJavaInstalled(): Boolean;
139	begin
140	Result := Length(javaPath) > 0;
141	end;
142
143	function GetJavaPath(Param: String): String;
144	begin
145	Result := javaPath;
146	end;
147
148	function InitializeSetup(): Boolean;
149	var
150	ErrorCode: Integer;
151	begin
152	CheckJavaRuntime();
153	Result := IsJavaInstalled();
154	if not Result then
155	begin
156	if MsgBox(FmtMessage(CustomMessage('JavaNotFound'), ['{#MinJavaVersion}']), mbConfirmation, MB_YESNO) = idYes then
157	begin
158	ShellExecAsOriginalUser('open', '{#JavaDownloadPage}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
159	end;
160	end;
161	end;
162
163	function DirOk(Path: String): boolean;
164	begin
165	Result := DirExists(Path+'\GameDataFolder') and FileExists(Path+'\Oni.exe');
166	end;
167
168	function NextButtonClick(CurPageID: Integer): boolean;
169	begin
170	Result := True;
171
172	if CurPageID = wpSelectDir then
173	begin
174	if (not DirOk(WizardDirValue)) then
175	begin
176	MsgBox(CustomMessage('wrongDir'), mbError, MB_OK);
177	Result := False;
178	end;
179	end;
180	end;
181
182
183	function ShouldSkipPage(PageID: Integer): Boolean;
184	begin
185	Result := PageID = wpSelectComponents;
186	end;
187
188	function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
189	begin
190	Result := MemoUserInfoInfo + NewLine;
191	Result := Result + MemoDirInfo + NewLine;
192	Result := Result + MemoGroupInfo + NewLine;
193	Result := Result + MemoTasksInfo + NewLine;
194	end;
195