AmenGaik
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Setup] SourceDir=. OutputDir=Setup AppName=Call of Duty: Black Ops AppVerName=Call of Duty: Black Ops AppVersion=Call of Duty: Black Ops DefaultDirName={pf}\Black Ops DefaultGroupName=Black Ops AllowNoIcons=yes OutputBaseFilename=setup WizardImageFile=C:\Users\Amen\Desktop\Call of Duty Black Ops\inno.bmp WizardSmallImageFile=C:\Users\Amen\Desktop\Call of Duty Black Ops\inno.bmp WindowVisible=no WindowShowCaption=no WindowResizable=no Compression=lzma/ultra SolidCompression=yes DiskSpanning=yes DiskSliceSize=2100000000 SlicesPerDisk=1 [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Files] Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\1900x1200_sittingbull.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-01.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-02.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-03.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-04.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-05.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\Black-Ops-Hi-Res-Wallpaper-06.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_01_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_02_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_03_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_04_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_05_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_06_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_07_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_08_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_10_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_11_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_12_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_13_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\codblackops_wallpaper_14_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\CODBlackOps_Wallpaper_2_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\CODBlackOps_Wallpaper_3_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Oboi\CODBlackOps_Wallpaper_5_1900x1200.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Users\Amen\Desktop\Call of Duty Black Ops\Music.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak Source: "C:\Program Files (x86)\Inno Setup 5\GameScript Generator for Inno Setup\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension [Icons] Name: "{group}\{cm:UninstallProgram,Call of Duty Black Ops}"; Filename: "{uninstallexe}" [UninstallDelete] Type: filesandordirs; Name: "{app}" [Code] type HSTREAM=DWORD; TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD); const Indent=25; var MP3List:TStringList; CurrentMP3:integer; hMP3:HWND; TimerID:LongWord; function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall delayload'; function ssInitialize(hParent:HWND;ssTimeShow:integer;FadeOut:boolean;StretchMode:integer;BkgColor:DWORD):boolean; external 'ssInitialize@files:isgsg.dll stdcall delayload'; procedure ssDeInitialize; external 'ssDeInitialize@files:isgsg.dll stdcall delayload'; procedure ssSetBkgImage(FileName:PAnsiChar); external 'ssSetBkgImage@files:isgsg.dll stdcall delayload'; procedure ssAddImage(FileName:PAnsiChar); external 'ssAddImage@files:isgsg.dll stdcall delayload'; procedure ssStartShow; external 'ssStartShow@files:isgsg.dll stdcall delayload'; procedure ssStopShow; external 'ssStopShow@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:PAnsiChar;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,PAnsiChar(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('Music.mp3'); MP3List:=TStringList.Create; MP3List.Add(ExpandConstant('{tmp}')+'\Music.mp3'); CurrentMP3:=0; Result:=True; end; procedure InitializeWizard; begin TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5)); BASS_Init(-1,44100,0,0,0); BASS_SetConfig(5,100); BASS_SetConfig(6,100); ssInitialize(GetWindowLong(MainForm.Handle,-8),10,False,1,$FF000000); ExtractTemporaryFile('1900x1200_sittingbull.jpg'); ssSetBkgImage(ExpandConstant('{tmp}')+'\1900x1200_sittingbull.jpg'); end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep=ssInstall then begin ExtractTemporaryFile('1900x1200_sittingbull.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\1900x1200_sittingbull.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-01.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-01.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-02.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-02.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-03.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-03.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-04.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-04.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-05.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-05.jpg'); ExtractTemporaryFile('Black-Ops-Hi-Res-Wallpaper-06.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\Black-Ops-Hi-Res-Wallpaper-06.jpg'); ExtractTemporaryFile('codblackops_wallpaper_01_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_01_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_02_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_02_1900x1200.jpg'); ExtractTemporaryFile('CODBlackOps_Wallpaper_2_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\CODBlackOps_Wallpaper_2_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_03_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_03_1900x1200.jpg'); ExtractTemporaryFile('CODBlackOps_Wallpaper_3_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\CODBlackOps_Wallpaper_3_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_04_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_04_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_05_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_05_1900x1200.jpg'); ExtractTemporaryFile('CODBlackOps_Wallpaper_5_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\CODBlackOps_Wallpaper_5_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_06_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_06_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_07_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_07_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_08_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_08_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_10_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_10_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_11_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_11_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_12_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_12_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_13_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_13_1900x1200.jpg'); ExtractTemporaryFile('codblackops_wallpaper_14_1900x1200.jpg'); ssAddImage(ExpandConstant('{tmp}')+'\codblackops_wallpaper_14_1900x1200.jpg'); ssStartShow; end; if CurStep=ssPostInstall then ssStopShow; 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(GetSystemMetrics(0)-WizardForm.Width-Indent); WizardForm.Top:=ScaleY(GetSystemMetrics(1)-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) or (CurPageID=wpInfoAfter) then begin if WizardForm.Width<>502 then begin WizardForm.Visible:=False; WizardForm.Width:=ScaleX(502); WizardForm.Height:=ScaleY(392); WizardForm.Left:=(GetSystemMetrics(0)-WizardForm.Width) div 2; WizardForm.Top:=(GetSystemMetrics(1)-WizardForm.Height) div 2; WizardForm.MainPanel.Visible:=True; WizardForm.Bevel1.Visible:=True; WizardForm.InnerNotebook.Left:=ScaleX(40); WizardForm.InnerNotebook.Top:=ScaleY(72); WizardForm.InnerNotebook.Width:=ScaleX(417); WizardForm.Visible:=True; end; end; end; procedure DeinitializeSetup; begin KillTimer(0,TimerID); BASS_Stop; BASS_Free; MP3List.Free; ssDeInitialize; end; |
| Всего записей: 6 | Зарегистр. 29-10-2010 | Отправлено: 19:01 04-11-2010 | Исправлено: AmenGaik, 23:22 04-11-2010 |
|