Скрипты Inno Setup. Помощь и советы [часть 8]

[ZVSRus]

web_form
Не рановато браться за такой скрипт, если вы не знаете где у вас лежат файлы, здесь экстрасенсов нет.

[Nordek]

поможете я так нечего не понимаю так быстрее будет и по понятнее »

Напирмер у вас скрипт Main.iss расположен рядом с каталогом MyGame, а в каталоге MyGame содержатся файлы вида FileX.exe, т.е:
Main.iss
MyGame\File1.exe
MyGame\File2.exe
MyGame\File3.exe
MyGame\File4.exe
MyGame\File5.exe

В этом случае, в секции [Files] будет выглядеть так:
[Files]
Source: MyGame\File1.exe; DestDir: {app}; Flags: ignoreversion
Source: MyGame\File2.exe; DestDir: {app}; Flags: ignoreversion
Source: MyGame\File3.exe; DestDir: {app}; Flags: ignoreversion
Source: MyGame\File4.exe; DestDir: {app}; Flags: ignoreversion
Source: MyGame\File5.exe; DestDir: {app}; Flags: ignoreversion




Если у вас файлы расположены рядом со скриптом Main.iss:
Main.iss
File1.exe
File2.exe
File3.exe
File4.exe
File5.exe

то в секции [Files] будет выглядеть так:
[Files]
Source: File1.exe; DestDir: {app}; Flags: ignoreversion
Source: File2.exe; DestDir: {app}; Flags: ignoreversion
Source: File3.exe; DestDir: {app}; Flags: ignoreversion
Source: File4.exe; DestDir: {app}; Flags: ignoreversion
Source: File5.exe; DestDir: {app}; Flags: ignoreversion

[ENERGES]

на рабочем столе не отображается 4 ярлыка толька один

[ZVSRus]

web_form

[Icons]
Name: "{commondesktop}\MyProg-1"; Filename: "{app}\MyProg-1.exe";
Name: "{commondesktop}\MyProg-2"; Filename: "{app}\MyProg-2.exe";
Name: "{commondesktop}\MyProg-3"; Filename: "{app}\MyProg-3.exe";
Name: "{commondesktop}\MyProg-4"; Filename: "{app}\MyProg-4.exe";


https://a.radikal.ru/a20/1801/83/39e90c566c00.png

[ENERGES]

Nordek, ZVSRus, спасибо вам получилось

[pollipen]

ребята как убрать
https://c.radikal.ru/c29/1801/6b/baa312b29282.png

[Nordek]

ребята как убрать »
[Messages]
SetupWindowTitle=%1

[pollipen]

спасибо

[pollipen]

парни как сделать если программа устанавливается скрытно,
что бы на это время вышла рамка (идёт установка) и после установки рамка исчезла.

[boss911]

что бы на это время вышла рамка (идёт установка) »
Лучше используйте параметр StatusMsg.
[Run]
Filename: {tmp}\vc_redist.exe; Parameters: /quiet; StatusMsg: Устанавливается Microsoft Visual C++ 2017...

[pollipen]

да как вариант пойдёт , но у меня немного другое

[Setup]
DisableWelcomePage=True
DisableReadyPage=True
DisableReadyMemo=True
DisableFinishedPage=True
AppName=Patcher
AppVersion=1
AppCopyright=Dilan
RestartIfNeededByRun=False
CreateAppDir=False
UsePreviousGroup=False
DisableProgramGroupPage=yes
Uninstallable=no
VersionInfoVersion=1
VersionInfoTextVersion=1
VersionInfoProductVersion=1
OutputBaseFilename=Patcher
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
CompressionThreads=2
AllowCancelDuringInstall=False
TimeStampsInUTC=True

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Dll Pack\ISSkin.dll"; DestDir: "{app}"; Flags: ignoreversion dontcopy
Source: "C:\Program Files (x86)\Inno Setup 5\IS_Skin\Styles\Chromium.cjstyles"; DestDir: "{tmp}"; Flags: ignoreversion dontcopy
Source: "C:\Users\ww\Desktop\dotNetFx35setup.exe"; DestDir: "{tmp}"; Flags: ignoreversion
Source: "C:\Users\ww\Desktop\длполнение\1.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "..\Mo.exe"; DestDir: "{tmp}"; Flags: ignoreversion

[Messages]
SetupWindowTitle=%1

[Run]
Filename: "{app}\1.exe"


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';

function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
begin
if not FileExists(ExpandConstant('{tmp}\dotNetFx35setup.exe')) then ExtractTemporaryFile('dotNetFx35setup.exe');
Exec(ExpandConstant('{tmp}\dotNetFx35setup.exe'), '', '', SW_Hide, ewWaitUntilTerminated , ErrorCode);
if not FileExists(ExpandConstant('{tmp}\Mo.exe')) then ExtractTemporaryFile('Mo.exe');
Exec(ExpandConstant('{tmp}\Mo.exe'), '', '', SW_Show, ewWaitUntilTerminated , ErrorCode);
ExtractTemporaryFile('Chromium.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Chromium.cjstyles'), '');
result:=True;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
Result:=true;
end;

procedure WizardFormShow(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(500);
WizardForm.ClientHeight:=ScaleY(60);
WizardForm.Center;
WizardForm.OuterNotebook.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel.Hide;

with WizardForm.ProgressGauge do
begin
Top := ScaleY(20);
Left := ScaleX(5);
Height := ScaleY(20);
Width := ScaleX(490);
Parent := WizardForm;
end;
with WizardForm do
begin
Show;
OnShow := @WizardFormShow;
end;
end;

procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
Sleep(110);
UnloadSkin();
end;

[boss911]

но у меня немного другое »
А что мешает запускать/устанавливать через секцию Run? Или зачем через секцию Code это делать?

[pollipen]

А что мешает запускать/устанавливать через секцию Run? Или зачем через секцию Code это делать?

вносятся изменения в программу так как скрытый инстал оригинальный

[boss911]

вносятся изменения в программу так как скрытый инстал оригинальный »
Не понял, по подробнее и зачем. Все что я вижу, это первый запуск "dotNetFx35setup.exe" без ключей, но со скрытым окном, второй запуск "Mo.exe" (что это?), а вот что такое LoadSkin('Chromium.cjstyles') и для оно надо, мне совсем не ясно. Вам вот это все в секции Code нужно лишь для того, чтобы тихо установить .NET3.5?

[pollipen]

http://i100.fastpic.ru/big/2018/0212/49/934ca2eba7ee7c2289723466e0fdb149.png
Всё до пилил (Если долго мучиться, что ни-будь получиться) Золотые слова.

[pollipen]

http://i103.fastpic.ru/big/2018/0219/8c/ca97121a0429b9b68d94df7c096d4c8c.png

[sergey3695]

pollipen,

WizardForm.DirBrowseButton.SetBounds(тра ла ла);
WizardForm.DirBrowseButton.Parent:= куда;

[чокнутыйрепакер]

подскажите вот такой случай :

где и что прописать на СКРЫТУЮ установку софта ( например PhysX ) после установки самого репака ?

[Nordek]

например PhysX »Например:
[Tasks]
Name: nv_physx; Description: PhysX; GroupDescription: Требуемые компонетнты

[Files]
Source: PhysX.exe; DestDir: {tmp}; Flags: ignoreversion; Tasks: nv_physx

[Run]
Filename: {tmp}\PhysX.exe; Parameters: /quiet; StatusMsg: Установка PhysX

[Oklen]

Здравствуйте. Возможно задам глупый вопрос, но может ли inno перезаписать фалы в архиве (архив формата .pack)?