Victor_Dobrov
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=Corona
AppVerName=Inno Setup Corona Skin & System Test
DefaultDirName={pf}\Corona Skin
UsePreviousAppDir=false
OutputBaseFilename=Corona Skin
OutputDir=.
[_ISToolPreCompile]
#define Requirements "NeedSp:= 2; NeedMHZ:= 2000; NeedRAM:= 1024"
#define MediaPlayer "{src}\Music"
#define PerfectProgressBar 10
#define MiniProgress "100,100"
;Corona Skin by Victor Dobrov, thanks to Genri.
#define SkinPath AddBackslash(SourcePath) + "Corona\"
#include SkinPath + "Corona_kernel.iss"
[Languages]
#expr AddLocale('Russian', 'compiler:Languages\Russian.isl','','',''), AddLocaleFiles
[Code]
Procedure CurPageChanged(CurPageID: Integer);
Begin
ShowSkinPage(CurPageID) { Corona Skin® & System Test © Victor Dobrov}
End;
Procedure InitializeWizard;
Begin
InitializeSkin { Corona Skin® with Buttons & checking System requirements by Victor Dobrov}
End;
Procedure DeinitializeSetup;
Begin
DeInitializeSkin { требуется, если указаны MediaPlayer, PerfectProgressBar, ShowOnBackground}
End;
Function InitializeSetup: Boolean;
Begin
If not WizardSilent and (FindWindowbyWindowName(FmtMessage(SetupMessage(msgSetupWindowTitle), ['{#AppName}'])) > 0) then MessageBox(0, cm('AlreadyRun'), '{#AppName}', MB_OK or $40) else Result:= true
End;
|
