Skip to content

Commit 0882615

Browse files
SolsticeSpectrumSolsticeSpectrum
committed
cleanup
1 parent cdc0c53 commit 0882615

File tree

1 file changed

+66
-79
lines changed

1 file changed

+66
-79
lines changed

‎installer/src/setup.iss

Lines changed: 66 additions & 79 deletions
Original file line numberDiff line numberDiff line change
@@ -1,26 +1,25 @@
11
; CODEX installer
22

3-
#define Style "CODEX" ; You can find more in Include\Style (PLAZA/RUNE + more).
4-
#define GroupName "CODEX" ; Name of the group (rename crack directory).
3+
#define Style "CODEX" ; You can find more in Include\Style (PLAZA/RUNE + more)
4+
#define GroupName "CODEX" ; Name of the group (rename crack directory)
55
#define LogoGroup "5" ; set header logo 1 .. 8 (more in Include/GFX/Logos)
66
#define IconGroup "1" ; set app icon 1 .. 3 (more in Include/GFX/Icons)
77
#define MusicGroup "1" ; set app icon 1 .. 3 (more in Include/Music)
8-
#define Game "Example Game" ; Name of release.
9-
#define GameExe "example.exe" ; Game executable
10-
#define Game_NeedSize "4616" ; Needed space for release.
11-
#define MyAppURL "http://store.steampowered.com/app/480"
8+
#define Game "Example Game" ; Name of release
9+
#define GameExe "example.exe" ; Game executable (include gamedir relative path if needed)
10+
#define GameNeedSize "4616" ; Needed space for release
11+
#define AppURL "http://store.steampowered.com/app/480"
1212
#define AppVersion "1.0.0.0"
1313
#define AppPublisher "Valve"
14-
#define Game_CrackDir "{src}\" + GroupName ; Game crack directory (if present).
15-
#define SetupFiles "Include" ; Files needed for the installation.
16-
#define OutputName "setup" ; Name of the output setup file.
17-
#define Uninstallexe "unins000.exe
14+
#define GameCrackDir "{src}\" + GroupName ; Game crack directory (if present)
15+
#define SetupFiles "Include" ; Files needed for the installation
16+
#define OutputName "setup" ; Name of the output setup file
1817

1918
[Setup]
2019
AppName={#Game}
2120
AppVerName={#Game}
2221
AppPublisher={#AppPublisher}
23-
AppSupportURL={#MyAppURL}
22+
AppSupportURL={#AppURL}
2423
AppVersion={#AppVersion}
2524
DefaultDirName={code:DefDirWiz}
2625
DefaultGroupName={#Game}
@@ -52,13 +51,13 @@ Source:CallbackCtrl.dll; Flags: dontcopy;
5251
;Source:Include\GFX\Icons\games.ico; Flags: dontcopy;
5352

5453
[Registry]
55-
Root: HKCU; Subkey: "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueName: "{app}\SETSUNA.exe"; ValueType: String; ValueData: "RUNASADMIN"; Check: "CheckError"; Flags: uninsdeletevalue uninsdeletekeyifempty
54+
Root: HKCU; Subkey: "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueName: "{app}\{#GameExe}"; ValueType: String; ValueData: "RUNASADMIN"; Check: "CheckError"; Flags: uninsdeletevalue uninsdeletekeyifempty
5655

5756
[Icons]
5857
Name: "{userdesktop}\{#Game}"; Filename: "{app}\{#GameExe}"; Check: Icon and CheckError;
5958
Name: "{group}\{#Game}"; Filename: "{app}\{#GameExe}"; Check: Start and CheckError;
60-
Name: "{group}\{cm:UninstallProgram,}"; Filename: "{uninstallexe}"; Check: Unnin and Start and CheckError;
61-
Name: "{group}\{cm:ProgramOnTheWeb,I am Setsuna}"; Filename: "{#MyAppURL}";
59+
Name: "{group}\{cm:UninstallProgram,{#Game}}"; Filename: "{uninstallexe}"; Check: Unnin and Start and CheckError;
60+
Name: "{group}\{cm:ProgramOnTheWeb,{#Game}}"; Filename: "{#AppURL}";
6261

6362
[Languages]
6463
Name: "English"; MessagesFile: "compiler:Default.isl"
@@ -135,13 +134,11 @@ Type: filesandordirs; Name: {app}
135134
lblGroupDir: TLabel;
136135
lblInstallResult: TLabel;
137136
bvlDirectories: TBevel;
138-
bvlInstallForm: TBevel;
139137
bvlDirInstall: TBevel;
140-
bvlStartMenuDir: TBevel;
141138
bvlIconGroup: TBevel;
142-
bvlOptionsForm: TBevel;
139+
bvlOptions: TBevel;
143140
bvlInstallOptions: TBevel;
144-
bvlButtonForm: TBevel;
141+
bvlButtons: TBevel;
145142
bvlLeftButton: TBevel;
146143
bvlRightButton: TBevel;
147144
bvlProgressForm: TBevel;
@@ -152,7 +149,6 @@ Type: filesandordirs; Name: {app}
152149
chbCopyCrack: TCheckBox;
153150
cbxDrive: TNewComboBox;
154151
ImageName: AnsiString;
155-
FNameSearch: AnsiString;
156152
FreeMB: Cardinal;
157153
TotalMB: Cardinal;
158154
hMutex: DWord;
@@ -195,13 +191,13 @@ Type: filesandordirs; Name: {app}
195191
196192
const
197193
// GetDriveType
198-
DRIVE_UNKNOWN = 0; // UNKNOWN
199-
DRIVE_NO_ROOT_DIR = 1; // Root path invalid
200-
DRIVE_REMOVABLE = 2; // Removable
201-
DRIVE_FIXED = 3; // Fixed
202-
DRIVE_REMOTE = 4; // Network
203-
DRIVE_CDROM = 5; // DVD-ROM and CD-ROM
204-
DRIVE_RAMDISK = 6; // Ram disk
194+
DRIVE_UNKNOWN = 0; // UNKNOWN
195+
DRIVE_NO_ROOT_DIR = 1; // Root path invalid
196+
DRIVE_REMOVABLE = 2; // Removable
197+
DRIVE_FIXED = 3; // Fixed
198+
DRIVE_REMOTE = 4; // Network
199+
DRIVE_CDROM = 5; // DVD-ROM and CD-ROM
200+
DRIVE_RAMDISK = 6; // Ram disk
205201
206202
const
207203
// BASS
@@ -281,11 +277,11 @@ Type: filesandordirs; Name: {app}
281277
{ $EXTERNALSYM FOF_CONFIRMMOUSE }
282278
FOF_CONFIRMMOUSE = $0002;
283279
{ $EXTERNALSYM FOF_SILENT }
284-
FOF_SILENT = $0004; // don't create progress/report
280+
FOF_SILENT = $0004; // Don't create progress/report
285281
{ $EXTERNALSYM FOF_RENAMEONCOLLISION }
286282
FOF_RENAMEONCOLLISION = $0008;
287283
{ $EXTERNALSYM FOF_NOCONFIRMATION }
288-
FOF_NOCONFIRMATION = $0010; // Don't prompt the user.
284+
FOF_NOCONFIRMATION = $0010; // Don't prompt the user.
289285
FOF_WANTMAPPINGHANDLE = $0020;
290286
FOF_ALLOWUNDO = $0040;
291287
FOF_FILESONLY = $0080;
@@ -392,7 +388,7 @@ Type: filesandordirs; Name: {app}
392388
procedure TaskBarUpdateButtons(APP: HWND);
393389
external 'TaskBarUpdateButtons@{tmp}\WinTB.dll stdcall delayload';
394390
procedure TaskBarButtonEnabled(Button: LongInt; Enabled: Boolean);
395-
external 'TaskBarButtonEnabled@{tmp}\WinTB.dll stdcall delayload'; // cdecl = 2, stdcall = 3 - delayload = 1, [ ] = 0
391+
external 'TaskBarButtonEnabled@{tmp}\WinTB.dll stdcall delayload'; // cdecl = 2, stdcall = 3 - delayload = 1, [ ] = 0
396392
procedure TaskBarButtonToolTip(Button: LongInt; Hint: PAnsiChar);
397393
external 'TaskBarButtonToolTip@{tmp}\WinTB.dll stdcall delayload';
398394
procedure TaskBarButtonIcon(Button: LongInt; Icon: DWord);
@@ -456,6 +452,7 @@ Type: filesandordirs; Name: {app}
456452
Result := not ISDoneError;
457453
end;
458454
455+
// Wtf does this do?
459456
function NoSD: String;
460457
var
461458
x, bit, i: Integer;
@@ -616,8 +613,6 @@ Type: filesandordirs; Name: {app}
616613
end;
617614
618615
procedure BtnOnClick(Btn: Integer);
619-
var
620-
i: LongInt;
621616
begin
622617
Case Btn of
623618
hInstall : if ISStep = 1 then
@@ -670,7 +665,7 @@ Type: filesandordirs; Name: {app}
670665
end;
671666
end;
672667
673-
procedure MyOnTimer1(h, msg, idevent, dwTime: LongWord);
668+
procedure MyOnTimer(h, msg, idevent, dwTime: LongWord);
674669
begin
675670
if Transparency > 100 then begin
676671
KillTimer(WizardForm.Handle, TimerID);
@@ -690,7 +685,7 @@ Type: filesandordirs; Name: {app}
690685
end;
691686
SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
692687
if (Transparency = 0) and (DraggingEnabled <> 0) then begin
693-
TimerID := SetTimer(WizardForm.Handle, 1, 10, WrapTimerProc(@MyOnTimer1, 4));
688+
TimerID := SetTimer(WizardForm.Handle, 1, 10, WrapTimerProc(@MyOnTimer, 4));
694689
end;
695690
end;
696691
if Msg = 533 then begin
@@ -703,8 +698,8 @@ Type: filesandordirs; Name: {app}
703698
704699
function IsCrackTheres: Boolean;
705700
begin
706-
if DirExists(ExpandConstant('{#Game_CrackDir}')) then begin
707-
if not PathIsDirectoryEmpty(ExpandConstant('{#Game_CrackDir}')) then begin
701+
if DirExists(ExpandConstant('{#GameCrackDir}')) then begin
702+
if not PathIsDirectoryEmpty(ExpandConstant('{#GameCrackDir}')) then begin
708703
Result := True; end
709704
else begin
710705
Result := False;
@@ -732,7 +727,6 @@ Type: filesandordirs; Name: {app}
732727
procedure CBDriveOnClick(Sender: TObject);
733728
var
734729
DirValue: AnsiString;
735-
I: Integer;
736730
begin
737731
DirValue := WizardForm.DirEdit.Text;
738732
Delete(DirValue, 1, Length(cbxDrive.Text));
@@ -778,7 +772,7 @@ Type: filesandordirs; Name: {app}
778772
MsgBox(ExpandConstant('{cm:ErrBro}'), mbError, MB_OK);
779773
Result := False;
780774
end;
781-
if FreeMB < {#Game_NeedSize} then begin
775+
if FreeMB < {#GameNeedSize} then begin
782776
MsgBox(ExpandConstant('{cm:ErrSize}'), mbError, MB_OK);
783777
Result := False;
784778
end;
@@ -797,8 +791,8 @@ Type: filesandordirs; Name: {app}
797791
begin
798792
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
799793
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
800-
lblDiskSizeNeeded.Caption := ExpandConstant('{cm:FreeSpace1}') + ' ' + MbOrTb({#Game_NeedSize})+ ' ' + ExpandConstant('{cm:FreeSpace2}');
801-
if not (FreeMB > {#Game_NeedSize}) then begin
794+
lblDiskSizeNeeded.Caption := ExpandConstant('{cm:FreeSpace1}') + ' ' + MbOrTb({#GameNeedSize})+ ' ' + ExpandConstant('{cm:FreeSpace2}');
795+
if not (FreeMB > {#GameNeedSize}) then begin
802796
lblDiskSizeNeeded.Font.Color := $1B1BE7; end
803797
else begin
804798
lblDiskSizeNeeded.Font.Color := $E6E0E1;
@@ -928,8 +922,6 @@ Type: filesandordirs; Name: {app}
928922
end;
929923
930924
function UnnIn: Boolean;
931-
var
932-
Unused: Integer;
933925
begin
934926
if ((chbNoUninstaller.Checked) and (ISDoneCancel <> 1)) then
935927
Result := False
@@ -1088,7 +1080,7 @@ Type: filesandordirs; Name: {app}
10881080
end;
10891081
end;
10901082
1091-
procedure ImgButton1OnClick(Sender: TObject);
1083+
procedure ImgButtonOnClick(Sender: TObject);
10921084
begin
10931085
if not (BASS_ChannelIsActive(mp3HNDL) = BASS_ACTIVE_PAUSED) then begin
10941086
BASS_ChannelPause(mp3HNDL);
@@ -1125,7 +1117,7 @@ Type: filesandordirs; Name: {app}
11251117
bmpPauseButton.OnMouseLeave := @ImgButtonOnMouseLeave;
11261118
bmpPauseButton.OnMouseDown := @ImgButtonOnMouseDown;
11271119
bmpPauseButton.OnMouseUp := @ImgButtonOnMouseUp;
1128-
bmpPauseButton.OnClick := @ImgButton1OnClick;
1120+
bmpPauseButton.OnClick := @ImgButtonOnClick;
11291121
bmpPlayButton := TBitmapImage.Create(WizardForm);
11301122
bmpPlayButton.Parent := WizardForm;
11311123
bmpPlayButton.ReplaceColor := clBlack;
@@ -1192,7 +1184,7 @@ Type: filesandordirs; Name: {app}
11921184
TaskBarButtonIcon(hMusic, TBIcon[3].Handle);
11931185
end;
11941186
1195-
procedure DubleOnClick(Sender: TObject);
1187+
procedure DoubleOnClick(Sender: TObject);
11961188
begin
11971189
case Sender of
11981190
btnLeftButton: WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
@@ -1516,13 +1508,13 @@ Type: filesandordirs; Name: {app}
15161508
WizardForm.Position := poScreenCenter;
15171509
WizardForm.WizardBitmapImage.Parent := WizardForm;
15181510
WizardForm.WizardBitmapImage.SetBounds(WizardForm.ClientWidth / 2 - ScaleX(225), ScaleY(0), ScaleX(450), ScaleY(65));
1519-
bvlInstallForm := TBevel.Create(WizardForm);
1520-
bvlInstallForm.SetBounds(ScaleX(10), ScaleY(60), WizardForm.ClientWidth - ScaleX(20), ScaleY(180));
1521-
bvlInstallForm.Shape := bsBox;
1522-
bvlInstallForm.Style := bsRaised;
1523-
bvlInstallForm.Parent := WizardForm;
1511+
bvlDirectories := TBevel.Create(WizardForm);
1512+
bvlDirectories.SetBounds(ScaleX(10), ScaleY(60), WizardForm.ClientWidth - ScaleX(20), ScaleY(180));
1513+
bvlDirectories.Shape := bsBox;
1514+
bvlDirectories.Style := bsRaised;
1515+
bvlDirectories.Parent := WizardForm;
15241516
bvlDirInstall := TBevel.Create(WizardForm);
1525-
bvlDirInstall.SetBounds(bvlInstallForm.Left + ScaleX(10), bvlInstallForm.Top + ScaleY(10), bvlInstallForm.Width - ScaleX(20), ScaleY(75));
1517+
bvlDirInstall.SetBounds(bvlDirectories.Left + ScaleX(10), bvlDirectories.Top + ScaleY(10), bvlDirectories.Width - ScaleX(20), ScaleY(75));
15261518
bvlDirInstall.Shape := bsBox;
15271519
bvlDirInstall.Style := bsLowered;
15281520
bvlDirInstall.Parent := WizardForm;
@@ -1531,13 +1523,13 @@ Type: filesandordirs; Name: {app}
15311523
bvlIconGroup.Shape := bsBox;
15321524
bvlIconGroup.Style := bsLowered;
15331525
bvlIconGroup.Parent := WizardForm;
1534-
bvlOptionsForm := TBevel.Create(WizardForm);
1535-
bvlOptionsForm.SetBounds(bvlInstallForm.Left, bvlInstallForm.Top + bvlInstallForm.Height + ScaleY(10), bvlInstallForm.Width, bvlDirInstall.Height - ScaleY(7));
1536-
bvlOptionsForm.Shape := bsBox;
1537-
bvlOptionsForm.Style := bsLowered;
1538-
bvlOptionsForm.Parent := WizardForm;
1526+
bvlOptions := TBevel.Create(WizardForm);
1527+
bvlOptions.SetBounds(bvlDirectories.Left, bvlDirectories.Top + bvlDirectories.Height + ScaleY(10), bvlDirectories.Width, bvlDirInstall.Height - ScaleY(7));
1528+
bvlOptions.Shape := bsBox;
1529+
bvlOptions.Style := bsLowered;
1530+
bvlOptions.Parent := WizardForm;
15391531
bvlInstallOptions := TBevel.Create(WizardForm);
1540-
bvlInstallOptions.SetBounds(bvlOptionsForm.Left + ScaleX(10), bvlOptionsForm.Top + ScaleY(10), bvlOptionsForm.Width - ScaleX(20), bvlOptionsForm.Height - ScaleY(20));
1532+
bvlInstallOptions.SetBounds(bvlOptions.Left + ScaleX(10), bvlOptions.Top + ScaleY(10), bvlOptions.Width - ScaleX(20), bvlOptions.Height - ScaleY(20));
15411533
bvlInstallOptions.Shape := bsBox;
15421534
bvlInstallOptions.Style := bsLowered;
15431535
bvlInstallOptions.Parent := WizardForm;
@@ -1687,25 +1679,25 @@ Type: filesandordirs; Name: {app}
16871679
lblCopyCrack.OnMouseLeave := @LabelCrackOnMouseLeave;
16881680
lblCopyCrack.OnClick := @LabelCrackOnClick;
16891681
if IsCrackTheres then begin
1690-
bvlOptionsForm.Height := WizardForm.ClientHeight - bvlInstallOptions.Top - chbCopyCrack.Top + chbCopyCrack.Height + ScaleY(55);
1691-
bvlInstallOptions.Height := bvlOptionsForm.Height - ScaleY(20);
1682+
bvlOptions.Height := WizardForm.ClientHeight - bvlInstallOptions.Top - chbCopyCrack.Top + chbCopyCrack.Height + ScaleY(55);
1683+
bvlInstallOptions.Height := bvlOptions.Height - ScaleY(20);
16921684
end
16931685
else begin
16941686
chbCopyCrack.Hide;
16951687
lblCopyCrack.Hide;
16961688
end;
1697-
bvlButtonForm := TBevel.Create(WizardForm);
1698-
bvlButtonForm.SetBounds(bvlInstallForm.Left, bvlOptionsForm.Top + bvlOptionsForm.Height + ScaleY(10), bvlInstallForm.Width, ScaleY(50));
1699-
bvlButtonForm.Shape := bsBox;
1700-
bvlButtonForm.Style := bsLowered;
1701-
bvlButtonForm.Parent := WizardForm;
1689+
bvlButtons := TBevel.Create(WizardForm);
1690+
bvlButtons.SetBounds(bvlDirectories.Left, bvlOptions.Top + bvlOptions.Height + ScaleY(10), bvlDirectories.Width, ScaleY(50));
1691+
bvlButtons.Shape := bsBox;
1692+
bvlButtons.Style := bsLowered;
1693+
bvlButtons.Parent := WizardForm;
17021694
bvlLeftButton := TBevel.Create(WizardForm);
1703-
bvlLeftButton.SetBounds(bvlButtonForm.Left + ScaleX(5), bvlButtonForm.Top + ScaleY(5), bvlButtonForm.Width / 2 - ScaleX(8), bvlButtonForm.Height - ScaleY(10));
1695+
bvlLeftButton.SetBounds(bvlButtons.Left + ScaleX(5), bvlButtons.Top + ScaleY(5), bvlButtons.Width / 2 - ScaleX(8), bvlButtons.Height - ScaleY(10));
17041696
bvlLeftButton.Shape := bsBox;
17051697
bvlLeftButton.Style := bsLowered;
17061698
bvlLeftButton.Parent := WizardForm;
17071699
bvlRightButton := TBevel.Create(WizardForm);
1708-
bvlRightButton.SetBounds(bvlLeftButton.Left + bvlLeftButton.Width + ScaleX(6), bvlButtonForm.Top + ScaleY(5), bvlButtonForm.Width / 2 - ScaleX(8), bvlButtonForm.Height - ScaleY(10));
1700+
bvlRightButton.SetBounds(bvlLeftButton.Left + bvlLeftButton.Width + ScaleX(6), bvlButtons.Top + ScaleY(5), bvlButtons.Width / 2 - ScaleX(8), bvlButtons.Height - ScaleY(10));
17091701
bvlRightButton.Shape := bsBox;
17101702
bvlRightButton.Style := bsLowered;
17111703
bvlRightButton.Parent := WizardForm;
@@ -1720,7 +1712,7 @@ Type: filesandordirs; Name: {app}
17201712
btnLeftButton.Font.Name := WizardForm.DirEdit.Font.Name;
17211713
btnLeftButton.Font.Size := 8;
17221714
btnLeftButton.Parent := WizardForm;
1723-
btnLeftButton.OnClick := @DubleOnClick;
1715+
btnLeftButton.OnClick := @DoubleOnClick;
17241716
if IsThemeActive then begin
17251717
btnRightButton := TButton.Create(WizardForm); end
17261718
else begin
@@ -1730,9 +1722,9 @@ Type: filesandordirs; Name: {app}
17301722
btnRightButton.Font.Name := WizardForm.DirEdit.Font.Name;
17311723
btnRightButton.Font.Size := 8;
17321724
btnRightButton.Parent := WizardForm;
1733-
btnRightButton.OnClick := @DubleOnClick;
1725+
btnRightButton.OnClick := @DoubleOnClick;
17341726
bvlProgressForm := TBevel.Create(WizardForm);
1735-
bvlProgressForm.SetBounds(bvlInstallForm.Left, bvlButtonForm.Top + bvlButtonForm.Height + ScaleY(10), bvlInstallForm.Width, WizardForm.ClientHeight - bvlButtonForm.Top - bvlButtonForm.Height - ScaleY(20));
1727+
bvlProgressForm.SetBounds(bvlDirectories.Left, bvlButtons.Top + bvlButtons.Height + ScaleY(10), bvlDirectories.Width, WizardForm.ClientHeight - bvlButtons.Top - bvlButtons.Height - ScaleY(20));
17361728
bvlProgressForm.Shape := bsBox;
17371729
bvlProgressForm.Style := bsLowered;
17381730
bvlProgressForm.Parent := WizardForm;
@@ -1870,11 +1862,8 @@ Type: filesandordirs; Name: {app}
18701862
18711863
procedure CurStepChanged(CurStep: TSetupStep);
18721864
var
1873-
unused1, unused2: Integer;
1874-
Comps1, Comps2, Comps3, TmpValue: Cardinal;
1875-
FindHandle1, ColFiles1, CurIndex1, tmp: Integer;
1876-
ExecError, ISFailed: Boolean;
1877-
InFilePath, OutFilePath, OutFileName: PAnsiChar;
1865+
Comps1, Comps2, Comps3: Cardinal;
1866+
ExecError: Boolean;
18781867
ArcFileIndex, ArcFileCount: Integer;
18791868
ArcFileName: String;
18801869
begin
@@ -1884,7 +1873,7 @@ Type: filesandordirs; Name: {app}
18841873
ExtractTemporaryFile('unarc.dll');
18851874
ISPaused := False;
18861875
ISDoneError := True;
1887-
ISFailed := False;
1876+
ExecError := False;
18881877
ArcFileIndex := 1;
18891878
ArcFileCount := 0;
18901879
while True do begin
@@ -1906,12 +1895,12 @@ Type: filesandordirs; Name: {app}
19061895
while ArcFileIndex <= ArcFileCount do begin
19071896
ArcFileName := ExpandConstant('{src}\setup-' + IntToStr(ArcFileIndex) + '.bin');
19081897
if not ISArcExtract(0, 100 / ArcFileCount, FileSearch(ArcFileName), ExpandConstant('{app}'), '', False, '', '', ExpandConstant('{app}'), False) then begin
1909-
ISFailed := True;
1898+
ExecError := True;
19101899
Break;
19111900
end;
19121901
Inc(ArcFileIndex);
19131902
end;
1914-
if ISFailed then begin
1903+
if ExecError then begin
19151904
Break;
19161905
end;
19171906
ISDoneError := False;
@@ -1946,7 +1935,7 @@ Type: filesandordirs; Name: {app}
19461935
memProgressLog.Lines.Add(SetupMessage(msgStatusRunProgram));
19471936
if (CurStep = ssPostInstall) and (chbCopyCrack.Checked) and not ISDoneError then begin
19481937
hMutex := CreateMutexA(0, 1, 'WSjuQKBxmd_mut');
1949-
if IsXCOPY(ExpandConstant('{#Game_CrackDir}'), ExpandConstant('{app}'), 'WpAYr2duAuquv8OF') then
1938+
if IsXCOPY(ExpandConstant('{#GameCrackDir}'), ExpandConstant('{app}'), 'WpAYr2duAuquv8OF') then
19501939
CrackInstalled := True
19511940
else
19521941
MsgBox(ExpandConstant('{cm:ErrCopy}'), mbConfirmation, MB_OK);
@@ -1955,8 +1944,6 @@ Type: filesandordirs; Name: {app}
19551944
end;
19561945
19571946
procedure DeinitializeSetup;
1958-
var
1959-
unused: LongInt;
19601947
begin
19611948
if bInitDone then begin
19621949
ShowWindow(WizardForm.Handle, SW_HIDE);

0 commit comments

Comments
 (0)