Возникла проблемка при добавлении в скрипт установки DirectX чезер [code]
При компиляции ни на что не жалуется, но при установке выдаёт такую вот ошибку:
Цитата:
Command line option error. Type command/?for Help.
|
Вот эта часть скрипта отдельно:
читать дальше »
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode:Integer;
begin
if CurStep = ssPostInstall then
begin
WizardForm.StatusLabel.Caption:='Èäåò îáíîâëåíèå DirectX ...';
WizardForm.StatusLabel.Font.Color:= ClBlack;
WizardForm.StatusLabel.Font.Name:= 'Arial';
WizardForm.StatusLabel.Font.Size:= 7
WizardForm.StatusLabel.Font.Style := [fsBold, fsItalic];
Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;
А вот весь скрипт целиком:
читать дальше »
[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppName=F.E.A.R - C.O.O.P
AppVerName=F.E.A.R - C.O.O.P
AppPublisher=R.G.COOP-MOD
AppPublisherURL=http://coop-land.ru/rookovodstva/2614-rukovodstvo-zapuska-fear-coop-po-seti.html
DefaultDirName=F.E.A.R - C.O.O.P
DefaultGroupName=F.E.A.R - C.O.O.P
AllowNoIcons=yes
OutputDir=D:\GAMES\SETUP\F.E.A.R - C.O.O.P [RePack]
OutputBaseFilename=F.E.A.R - C.O.O.P
SetupIconFile=D:\GAMES\F.E.A.R\icon.ico
Compression=lzma/ultra64
SolidCompression=true
WizardImageFile=IMG\Fon.bmp
WizardSmallImageFile=IMG\Shapka.bmp
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
[Files]
Source: IMG\logo.bmp; Flags: dontcopy
Source: DLL\CallbackCtrl.dll; Flags: dontcopy
Source: IMG\splash.png; Flags: dontcopy
Source: DLL\isgsg.dll; Flags: dontcopy
Source: D:\GAMES\F.E.A.R\F.E.A.R - C.O.O.P.exe; DestDir: {app}; Flags: ignoreversion
;Source: D:\GAMES\SETUP\FEAR\MapList\[1] F.E.A.R. - C.O.O.P.txt; DestDir: {app}\CoopWarfare_User\ServerOptions; Attribs: ReadOnly; Flags: ignoreversion
;Source: D:\GAMES\SETUP\FEAR\MapList\[2] All Single Maps.txt; DestDir: {app}\CoopWarfare_User\ServerOptions; Attribs: ReadOnly; Flags: ignoreversion
;Source: D:\GAMES\SETUP\FEAR\MapList\[3] Coop-Warfare Mod.txt; DestDir: {app}\CoopWarfare_User\ServerOptions; Attribs: ReadOnly; Flags: ignoreversion
;Source: D:\GAMES\F.E.A.R\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: D:\GAMES\Monolith Productions\*; DestDir: C:\Users\Public\Documents; Flags: ignoreversion recursesubdirs createallsubdirs
[Icons]
Name: {group}\F.E.A.R - C.O.O.P; Filename: {app}\F.E.A.R - C.O.O.P.exe; WorkingDir: {app}
Name: {group}\Ðóêîâîäñòâî çàïóñêà F.E.A.R - C.O.O.P ïî ñåòè; Filename: http://coop-land.ru/rookovodstva/2614-rukovodstvo-zapuska-fear-coop-po-seti.html
Name: {group}\{cm:UninstallProgram,F.E.A.R - C.O.O.P}; Filename: {uninstallexe}
Name: {commondesktop}\F.E.A.R - C.O.O.P; Filename: {app}\F.E.A.R - C.O.O.P.exe; WorkingDir: {app}; Comment: Çàïóñòèòü êîîïåðàòèâíûé ðåæèì F.E.A.R.; Tasks: desktopicon
[CustomMessages]
russian.Error2=Óñòàíîâêà %nF.E.A.R - C.O.O.P%níå çàâåðøåíà.
russian.Error3=%nÂî âðåìÿ óñòàíîâêè ïðîèçîøëà îøèáêà, ïîæàëóéñòà îòêëþ÷èòå ñòîðîííèå ïðîãðàììû è ïîâòîðèòå ïîïûòêó óñòàíîâêè.%n%n%nÍàæìèòå «Çàâåðøèòü», ÷òîáû âûéòè.
russian.WelcomeLabel1=ÁÓÄÅÒ ÓÑÒÀÍÎÂËÅÍ%nÍÀ ÂÀØ ÊÎÌÏÜÞÒÅÐ
russian.FinisLabel1=ÓÑÏÅØÍÎ ÓÑÒÀÍÎÂËÅÍ%nÍÀ ÂÀØ ÊÎÌÏÜÞÒÅÐ
[code]
var
PageNameLabel, PageDescriptionLabel, WelcomeLabel1,WelcomeLabel2,FLabel1, FLabel2, WLabel1, WLabel2, WelcomeLabel4,FinishedHeadingLabel, FinishedHeadingLabel1,WelcomeLabel3: TLabel;
/////////////////////////////// ÔÎÍÎÂÎÅ ÈÇÎÁÐÀÆÅÍÈÅ ///////////////////////////////
procedure WizardImage();
begin
WizardForm.WizardBitmapImage.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Width:= ScaleX(497);
WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.Left := ScaleX(17); //Ñëåâà
WelcomeLabel1.Top := ScaleY(179); //Ñâåðõó
WelcomeLabel1.Width := ScaleX(300); //Ïî øèðèíå
WelcomeLabel1.Height := ScaleY(300); //Ïî âûñòîòå
WelcomeLabel1.AutoSize := False;
WelcomeLabel1.WordWrap := True;
WelcomeLabel1.Alignment := taCenter;
WelcomeLabel1.Font.Size := 17;
WelcomeLabel1.Font.Color:= clBlack;
WelcomeLabel1.Font.Style:= [fsBold]
WelcomeLabel1.Font.Name:= 'Arial Bold'
WelcomeLabel1.ShowAccelChar := False;
WelcomeLabel1.Caption :=ExpandConstant('{cm:WelcomeLabel1}');
WelcomeLabel1.Transparent := True;
WelcomeLabel1.Parent := WizardForm.WelcomePage;
WLabel1 := TLabel.Create(WizardForm);
WLabel1.Left := ScaleX(15);
WLabel1.Top := ScaleY(177);
WLabel1.Width := ScaleX(300);
WLabel1.Height := ScaleY(300);
WLabel1.AutoSize := False;
WLabel1.WordWrap := True;
WLabel1.Alignment := taCenter;
WLabel1.Font.Size := 17;
WLabel1.Font.Color:= clWhite;
WLabel1.Font.Style:= [fsBold]
WLabel1.Font.Name:= 'Arial Bold'
WLabel1.ShowAccelChar := False;
WLabel1.Caption :=ExpandConstant('{cm:WelcomeLabel1}');
WLabel1.Transparent := True;
WLabel1.Parent := WizardForm.WelcomePage;
FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.Left := ScaleX(17);
FinishedHeadingLabel.Top := ScaleY(179);
FinishedHeadingLabel.Width := ScaleX(300);
FinishedHeadingLabel.Height := ScaleY(300);
FinishedHeadingLabel.AutoSize := False;
FinishedHeadingLabel.WordWrap := True;
FinishedHeadingLabel.Alignment := taCenter;
FinishedHeadingLabel.Font.Size := 17;
FinishedHeadingLabel.Font.Color:= clBlack;
FinishedHeadingLabel.Font.Style:= [fsBold]
FinishedHeadingLabel.Font.Name:= 'Arial Bold'
FinishedHeadingLabel.ShowAccelChar := False;
FinishedHeadingLabel.Caption :=ExpandConstant('{cm:FinisLabel1}');
FinishedHeadingLabel.Transparent := True;
FinishedHeadingLabel.Parent := WizardForm.FinishedPage;
FLabel1 := TLabel.Create(WizardForm);
FLabel1.Left := ScaleX(15);
FLabel1.Top := ScaleY(177);
FLabel1.Width := ScaleX(300);
FLabel1.Height := ScaleY(300);
FLabel1.AutoSize := False;
FLabel1.Alignment := taCenter;
FLabel1.WordWrap := True;
FLabel1.Font.Size := 17;
FLabel1.Font.Name := 'Arial Bold'
FLabel1.Font.Color:= clWhite;
FLabel1.Font.Style:= [fsBold]
FLabel1.ShowAccelChar := False;
FLabel1.Caption := ExpandConstant('{cm:FinisLabel1}');
FLabel1.Transparent := True;
FLabel1.Parent := WizardForm.FinishedPage;
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;
/////////////////////////////////////////Ô.È.///////////////////////////////////////////
///////////////////////////////// ÈÇÎÁÐÀÆÅÍÈÅ ØÀÏÊÈ ////////////////////////////////////
procedure WizardSmallImage();
begin
WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);
PageNameLabel:= TLabel.Create(WizardForm)
with WizardForm.PageNameLabel do
PageNameLabel.SetBounds(Left, Top, Width, Height);
PageNameLabel.Transparent:= True;
PageNameLabel.Font:= WizardForm.PageNameLabel.Font;
PageNameLabel.Font.Color:= clblack;
PageNameLabel.Parent:= WizardForm.MainPanel;
PageDescriptionLabel:= TLabel.Create(WizardForm);
with PageDescriptionLabel do
begin
Left:= WizardForm.PageDescriptionLabel.Left-12;
Top:= WizardForm.PageDescriptionLabel.Top;
Height:= WizardForm.PageDescriptionLabel.Height;
Width:= ScaleX(280);
AutoSize:= False;
WordWrap:= True;
Font.Name:= WizardForm.PageDescriptionLabel.Font.Name;
Transparent:= True;
Parent:= WizardForm.MainPanel;
end;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
end;
/////////////////////////////////////////È.Ø.///////////////////////////////////////////
////////////////////////////////// ÂÑÏËÛÂÀÞÙÅÅ ËÎÃÎ ////////////////////////////////////
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';
procedure Splash();
begin
ExtractTemporaryFile('Splash.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False, $FFFFFF,10);
end;
/////////////////////////////////////////Â.Ë.///////////////////////////////////////////
////////////////////////////////// ÊËÈÊÀÁÅËÜÍÎÅ ËÎÃÎ ///////////////////////////////////
procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
ShellExec('', 'http://coop-land.ru/rookovodstva/2614-rukovodstvo-zapuska-fear-coop-po-seti.html', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
procedure Logo();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
ExtractTemporaryFile('logo.bmp')
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=173
Height:=26
Cursor:=crHand
OnClick:=@logoOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True;
Enabled:=False;
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
Parent:=BtnPanel
end
end;
/////////////////////////////////////////Ê.Ë.///////////////////////////////////////////
procedure InitializeWizard;
begin
Splash();
Logo();
WizardImage();
WizardSmallImage();
WizardForm.CancelButton.BringToFront;
end;
/////////////////////////////////////////Äîïîëíèòåëüíîå ÏÎ.///////////////////////////////////////////
procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode:Integer;
begin
if CurStep = ssPostInstall then
begin
WizardForm.StatusLabel.Caption:='Èäåò îáíîâëåíèå DirectX ...';
WizardForm.StatusLabel.Font.Color:= ClBlack;
WizardForm.StatusLabel.Font.Name:= 'Arial';
WizardForm.StatusLabel.Font.Size:= 7
WizardForm.StatusLabel.Font.Style := [fsBold, fsItalic];
Exec(ExpandConstant('{src}\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;
/////////////////////////////////////////Ê.Ë.///////////////////////////////////////////
Помогите пожалуйста если кто знает в чём может заключаться проблемма
ПС
В папке лежит DX
WEBSETUP.exe, но он переиминован в DXSETUP.exe
А если чтото меняю в скрипте то какая нибудь ошибка вылазиет.
