Skip to content

Commit 7e1eedc

Browse files
Merge pull request #3 from RimisiusDev/EAFC25-CrackByRimisiusDev-Setup
Create eafc25_crackpatchersetupscript.iss
2 parents e35f051 + e760912 commit 7e1eedc

File tree

1 file changed

+102
-0
lines changed

1 file changed

+102
-0
lines changed
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,102 @@
1+
; Script generated by the Inno Setup Script Wizard.
2+
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
3+
4+
#define MyAppName "EAFC25_CrackByRimisiusDev"
5+
#define MyAppVersion "1.0"
6+
#define MyAppPublisher "RimisiusDEV"
7+
#define MyAppExeName "EAFC25-CrackPatcher.exe"
8+
9+
[Setup]
10+
; NOTE: The value of AppId uniquely identifies this application. Do not use the same AppId value in installers for other applications.
11+
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
12+
AppId={{CF4F0501-81E3-4E3F-B6BB-599E3BDDC5E4}
13+
AppName={#MyAppName}
14+
AppVersion={#MyAppVersion}
15+
;AppVerName={#MyAppName} {#MyAppVersion}
16+
AppPublisher={#MyAppPublisher}
17+
DefaultDirName=C:\MyCrack\{#MyAppName}
18+
UninstallDisplayIcon={app}\{#MyAppExeName}
19+
DefaultGroupName={#MyAppName}
20+
AllowNoIcons=yes
21+
LicenseFile=C:\Users\ikop\Documents\MITByRIMISIUSDEV.txt
22+
; Uncomment the following line to run in non administrative install mode (install for current user only).
23+
;PrivilegesRequired=lowest
24+
OutputBaseFilename=eafc25crackbyrimisiusdev_setup
25+
SetupIconFile=C:\Users\ikop\Documents\EAFC25.ico
26+
SolidCompression=yes
27+
WizardStyle=modern
28+
29+
[Languages]
30+
Name: "english"; MessagesFile: "compiler:Default.isl"
31+
Name: "bulgarian"; MessagesFile: "compiler:Languages\Bulgarian.isl"
32+
Name: "danish"; MessagesFile: "compiler:Languages\Danish.isl"
33+
Name: "dutch"; MessagesFile: "compiler:Languages\Dutch.isl"
34+
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
35+
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
36+
Name: "hebrew"; MessagesFile: "compiler:Languages\Hebrew.isl"
37+
Name: "hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"
38+
Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"
39+
Name: "japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
40+
Name: "korean"; MessagesFile: "compiler:Languages\Korean.isl"
41+
Name: "norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"
42+
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
43+
Name: "slovak"; MessagesFile: "compiler:Languages\Slovak.isl"
44+
Name: "slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"
45+
Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"
46+
Name: "ukrainian"; MessagesFile: "compiler:Languages\Ukrainian.isl"
47+
48+
[Code]
49+
function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
50+
external 'BASS_Init@files:bass.dll stdcall';
51+
52+
function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): DWORD;
53+
external 'BASS_StreamCreateFile@files:bass.dll stdcall';
54+
55+
function BASS_Start(): Boolean;
56+
external 'BASS_Start@files:bass.dll stdcall';
57+
58+
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
59+
external 'BASS_ChannelPlay@files:bass.dll stdcall';
60+
61+
function BASS_Stop(): Boolean;
62+
external 'BASS_Stop@files:bass.dll stdcall';
63+
64+
function BASS_Free(): Boolean;
65+
external 'BASS_Free@files:bass.dll stdcall';
66+
const
67+
BASS_SAMPLE_LOOP = 4;
68+
var
69+
mp3Handle: HWND;
70+
mp3Name: string;
71+
procedure InitializeWizard();
72+
begin
73+
ExtractTemporaryFile('AnnoDominiBeatsWARZONE.mp3');
74+
mp3Name := ExpandConstant('{tmp}\AnnoDominiBeatsWARZONE.mp3');
75+
BASS_Init(-1, 48000, 0, 0, 0);
76+
mp3Handle := BASS_StreamCreateFile(FALSE, PAnsiChar(mp3Name), 0, 0, 0, 0, BASS_SAMPLE_LOOP);
77+
BASS_Start();
78+
BASS_ChannelPlay(mp3Handle, False);
79+
end;
80+
procedure DeinitializeSetup();
81+
begin
82+
BASS_Free();
83+
BASS_Stop();
84+
end;
85+
86+
[Tasks]
87+
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
88+
89+
[Files]
90+
Source: "AnnoDominiBeatsWARZONE.mp3"; DestDir: "{tmp}"; Flags: dontcopy ignoreversion
91+
Source: "C:\Include_DLLInnoSetup\bass.dll"; DestDir: {tmp}; Flags: dontcopy ignoreversion
92+
Source: "E:\EAFC25_CrackPatcher\{#MyAppExeName}"; DestDir: "{app}"; Flags: ignoreversion
93+
Source: "E:\EAFC25_CrackPatcher\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
94+
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
95+
96+
[Icons]
97+
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
98+
Name: "{autodesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
99+
100+
[Run]
101+
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
102+

0 commit comments

Comments
 (0)