STRATOSV
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ; Mu Mod Пробная Версия [Setup] AppName=Bran_retrofit AppVerName=Моя Проба 1.0 AppPublisher=StrategyStrat DefaultDirName={sd}\SEGA\Medieval II Total War\mods\Bran_retrofit DefaultGroupName=Bran_retrofit AllowNoIcons=yes WizardImageFile=D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\2.bmp WizardSmallImageFile=D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\1.bmp WindowVisible=no WindowShowCaption=no WindowResizable=no OutputDir=E:\SEGA OutputBaseFilename=setup SetupIconFile=E:\SEGA\FFF\1.ico [Languages] Name: "russian"; MessagesFile: "compiler:Default.isl" [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] Source: "E:\SEGA\FFF\Bran_retrofit.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "{app}\Bran_retrofit.exe"; DestDir: "{app}"; Flags: ignoreversion external deleteafterinstall Source: "isxbb.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\BRUEGEL.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN1.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN10.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN11.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN12.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN13.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN14.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN2.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN3.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN4.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN5.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN6.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN7.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN8.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\САЙД ШОУ 2\SKRIN9.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\Ny Moding\ГРАФИКА\ИКОНКИ для МОДА\splash.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: "D:\APEX-VADIM\МУЗЫКА\МУЗОН ЭТНО И тд\Vangelis\El Greco\07 Movement VII.MP3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression [Icons] Name: "{userdesktop}\Brancampaign_retrofit.bat"; Filename: "{app}\Brancampaign_retrofit.bat"; Tasks: desktopicon; WorkingDir: "{app}"; IconFilename: "{app}\Brancampaign_retrofit.bat"; IconIndex: 0 Name: "{group}\{cm:UninstallProgram,Bran_retrofit}"; Filename: "{uninstallexe}" [Run] Filename: "{app}\Bran_retrofit.exe"; WorkingDir: "{src}"; Parameters: "-y"; StatusMsg: "Процесс Установки Мода..."; Flags: waituntilterminated [UninstallDelete] Type: filesandordirs; Name: "{app}" [_ISTool] EnableISX=True [Code] type HSTREAM=DWORD; TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD); const BackGround=6; Timer=16; Indent=25; var MP3List:TStringList; CurrentMP3:integer; hMP3:HWND; TimerID:LongWord; function isxbb_AddImage(Image: PChar; Flags: Cardinal): integer; external 'isxbb_AddImage@files:isxbb.dll stdcall delayload'; function isxbb_Init(hWnd: Integer): integer; external 'isxbb_Init@files:isxbb.dll stdcall delayload'; function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): integer; external 'isxbb_StartTimer@files:isxbb.dll stdcall'; function isxbb_KillTimer(Flags: Cardinal): integer; external 'isxbb_KillTimer@files:isxbb.dll stdcall'; procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload'; function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload'; function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT; external 'SetTimer@user32.dll stdcall delayload'; function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external 'KillTimer@user32.dll stdcall delayload'; function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall'; function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall'; function BASS_Init(Device:integer;Freq,Flags:DWORD;Win:HWND;CLSID:integer):boolean; external 'BASS_Init@files:bass.dll stdcall delayload'; function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall'; function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall'; function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall'; function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall'; function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall'; function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload'; function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall'; procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD); begin if BASS_ChannelIsActive(hMP3)=0 then begin BASS_Stop; BASS_StreamFree(hMP3); hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0); BASS_Start; if hMP3<>0 then if BASS_ChannelPlay(hMP3,True) then begin CurrentMP3:=CurrentMP3+1; if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0; end; end; end; function InitializeSetup:boolean; begin ExtractTemporaryFile('07 Movement VII.MP3'); MP3List:=TStringList.Create; MP3List.Add(ExpandConstant('{tmp}')+'\07 Movement VII.MP3'); CurrentMP3:=0; Result:=True; end; procedure InitializeWizard; begin WizardForm.Position:=poScreenCenter; MainForm.BorderStyle:=bsNone; MainForm.Width:=GetSystemMetrics(0); MainForm.Height:=GetSystemMetrics(1)+1; MainForm.Top:=-1; MainForm.Left:=0; ExtractTemporaryFile('splash.bmp'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.bmp',1000,3000,1000,0,255,False,$FFFFFF); TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5)); BASS_Init(-1,44100,0,0,0); BASS_SetConfig(5,100); BASS_SetConfig(6,100); ExtractTemporaryFile('BRUEGEL.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\BRUEGEL.jpg',BackGround); isxbb_Init(StrToInt(ExpandConstant('{hwnd}'))); MainForm.Visible:=True; end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep=ssInstall then begin ExtractTemporaryFile('SKRIN1.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN1.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN2.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN2.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN3.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN3.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN4.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN4.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN5.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN5.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN6.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN6.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN7.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN7.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN8.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN8.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN9.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN9.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN10.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN10.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN11.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN11.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN12.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN12.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN13.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN13.jpg',BackGround or Timer); ExtractTemporaryFile('SKRIN14.jpg'); isxbb_AddImage(ExpandConstant('{tmp}')+'\SKRIN14.jpg',BackGround or Timer); isxbb_Init(StrToInt(ExpandConstant('{hwnd}'))); isxbb_StartTimer(8,BackGround) end; if CurStep=ssPostInstall then begin isxbb_KillTimer(BackGround); end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID=wpInstalling then begin WizardForm.MainPanel.Visible:=False; WizardForm.Bevel1.Visible:=False; WizardForm.Width:=ScaleX(395); WizardForm.Height:=ScaleY(142); WizardForm.Left:=ScaleX(MainForm.Width-WizardForm.Width-Indent); WizardForm.Top:=ScaleY(MainForm.Height-WizardForm.Height-Indent); WizardForm.InnerNotebook.Left:=ScaleX(10); WizardForm.InnerNotebook.Top:=ScaleY(10); WizardForm.InnerNotebook.Width:=ScaleX(370); WizardForm.StatusLabel.Left:=ScaleX(0); WizardForm.StatusLabel.Top:=ScaleY(0); WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width; WizardForm.FileNameLabel.Left:=ScaleX(0); WizardForm.FileNameLabel.Top:=ScaleY(20); WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width; WizardForm.ProgressGauge.Top:=ScaleY(40); WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width; WizardForm.CancelButton.Left:=ScaleX(154); WizardForm.CancelButton.Top:=ScaleY(80); end; if CurPageID=wpFinished then begin WizardForm.Visible:=False; WizardForm.Width:=502; WizardForm.Height:=392; WizardForm.Left:=(MainForm.Width-WizardForm.Width) div 2; WizardForm.Top:=(MainForm.Height-WizardForm.Height) div 2; WizardForm.Visible:=True; end; end; procedure DeinitializeSetup; begin KillTimer(0,TimerID); BASS_Stop; BASS_Free; MP3List.Free; end; | Всего записей: 7 | Зарегистр. 01-11-2008 | Отправлено: 01:42 07-11-2008 | Исправлено: STRATOSV, 01:44 07-11-2008 |
|