Rhinosniper
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Парни у меня такая проблема хотел сделать репак на worms reloaded с красивым оформлением(музыка, скин висты, курсор, картинки и т.д.). Ну так вот когда я делаю репак на игру весющую до 100 мб, то она норм запускается. А вот выше 100 мб, инсталятор компилируется, но при запуске Setup.exe выбираю язык, нажимаю далее и всё. Инсталятор завис. Вот скрипт:
[Setup]
SourceDir=.
OutputDir=E:\
AppName=Worms Reloaded Repack
AppVerName=Worms Reloaded Repack
AppVersion=Worms Reloaded Repack Update 4
AppPublisher=R.G. Cracker's
AppCopyright=R.G. Cracker's
AppPublisherURL=http://сайт.ru/
AppSupportURL=http://сайт.ru/
AppUpdatesURL=http://сайт.ru/
DefaultDirName={pf}\Worms: Reloaded Reoack
DefaultGroupName=Worms Reloaded Repack
InfoBeforeFile=C:\Documents and Settings\123\Рабочий стол\about_repack.txt
InfoAfterFile=C:\Documents and Settings\123\Рабочий стол\about_repack.txt
OutputBaseFilename=setup2232345
WizardImageFile=E:\worms.bmp
WizardSmallImageFile=C:\Program Files\Smart Install Maker\Bitmaps\Header\2.bmp
SetupIconFile=E:\Icon.ico
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
SolidCompression=yes
[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "E:\Program Files\Team17\Worms Reloaded\windows\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\Program Files\Team17\Worms Reloaded\Default.cfg"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\installscript.vdf"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\stdassert.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\steam_api.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\WormsReloaded.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\Steamclient.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\steam_appid.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\Skidrow.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "E:\Program Files\Team17\Worms Reloaded\Audio\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\Program Files\Team17\Worms Reloaded\DataPC\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\Program Files\Team17\Worms Reloaded\CommonData\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\Program Files\Team17\Worms Reloaded\UserLandscapes\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "E:\BASS.dll"; DestDir: "{tmp}"; Flags: dontcopy noencryption
Source: "C:\Program Files\Smart Install Maker\Bitmaps\Import\Bmp007.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Documents and Settings\123\Рабочий стол\new\logo.png"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "E:\isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "E:\wr2.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "E:\wr3.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Documents and Settings\123\Рабочий стол\new\Vista.cjstyles"; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Documents and Settings\123\Рабочий стол\new\ISSkin.dll"; DestDir: {tmp}; Flags: dontcopy
[Icons]
Name: "{group}\Worms: Reloaded Repack"; Filename: "{app}\WormsReloaded.exe"; WorkingDir: "{app}";
Name: "{userdesktop}\Worms: Reloaded Repack"; Filename: "{app}\WormsReloaded.exe"; WorkingDir: "{app}"; Tasks: desktopicon;
Name: "{group}\{cm:UninstallProgram,Worms: Reloaded Repack}"; Filename: "{uninstallexe}"
[Run]
Description: "{cm:LaunchProgram, Worms: Reloaded Repack}"; Filename: "{app}\WormsReloaded.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent unchecked
[UninstallDelete]
Type: filesandordirs; Name: "{app}"
[Code]
const
Indent=25;
dURL=2;
GCL_HCURSOR = (-12);
OCR_NORMAL = 32512;
var
URLLabel,URLLabelShadow:TLabel;
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:PChar); external 'ssSetBkgImage@files:isgsg.dll stdcall delayload';
procedure ssAddImage(FileName:PChar); 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';
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';
procedure ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
procedure URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','http://сайт.ru/','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top+dURL;
URLLabel.Left:=URLLabel.Left+dURL;
URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
URLLabel.Font.Color:=$50B5C4;
URLLabelShadow.Visible:=False;
end;
procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top-dURL;
URLLabel.Left:=URLLabel.Left-dURL;
URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
URLLabel.Font.Color:=$708A7A;
URLLabelShadow.Visible:=True;
end;
var
OldCursor, NewCursor: Longint;
function LoadCursorFromFile(FileName: String): Longint;
external 'LoadCursorFromFileA@user32 stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint;
external 'SetClassLongA@user32 stdcall';
function SetCursor(Cursor: Longint): Longint;
external 'SetCursor@user32 stdcall';
function SetSystemCursor(Cursor, CurType: Longint): Longint;
external 'SetSystemCursor@user32 stdcall';
function GetCursor(): Longint;
external 'GetCursor@user32 stdcall';
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('wr2.mp3');
ExtractTemporaryFile('wr3.mp3');
ExtractTemporaryFile('bass.dll');
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Vista.cjstyles', '');
Result:=True;
end;
procedure InitializeWizard;
begin
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://сайт.ru/';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$041207;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
NewCursor:= LoadCursorFromFile('C:\Normal Select.ani');
OldCursor:= SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, NewCursor);
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='http://crackmania.ru/';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=$708A7A;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ExtractTemporaryFile('logo.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\logo.png',1000,3000,1000,0,255,False,$FFFFFF,10);
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.сайт.ru',True,True,7000,Indent);
ssInitialize(GetWindowLong(MainForm.Handle,-8),60,False,2,$FF000000);
ExtractTemporaryFile('Bmp006.bmp');
ssSetBkgImage(ExpandConstant('{tmp}')+'\Bmp007.bmp');
WizardForm.BeveledLabel.Enabled:=True;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then begin
ExtractTemporaryFile('dead-rising-2-game.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\dead-rising-2-game.jpg');
ExtractTemporaryFile('06_deadrising2_jpg_595x1000_q85.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\06_deadrising2_jpg_595x1000_q85.jpg');
ExtractTemporaryFile('957986_20100613_790screen007.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\957986_20100613_790screen007.jpg');
ExtractTemporaryFile('aat.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\aat.jpg');
ExtractTemporaryFile('custom_1240919346548_Head_banging.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\custom_1240919346548_Head_banging.jpg');
ExtractTemporaryFile('eed3f688380e42f208d04d2d541447a5.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\eed3f688380e42f208d04d2d541447a5.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
KillMP3Panel;
ShowWindow(WizardForm.Handle,0);
UnloadSkin();
ssDeInitialize;
SetSystemCursor(OldCursor, OCR_NORMAL);
end;
|
Всего записей: 21 | Зарегистр. 25-09-2010 | Отправлено: 00:04 26-09-2010 | Исправлено: Rhinosniper, 00:07 26-09-2010 |
|
