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

[vint56]

Richter, http://rghost.ru/17090951

[insombia]

http://images.bcm.net.ua/images/30135809874011916282.jpg как сделать чтобы Дополнительные файлы были сразу выбраны http://images.bcm.net.ua/images/59910963793368922737.jpg?

[VinTagE]

insombia, Как - то так:

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: Version; Description: Версия 'Таблетки'; Types: full; Flags: fixed
Name: Version\Version1; Description: Версия 1; Flags: exclusive;
Name: Version\Version2; Description: Версия 2; Flags: exclusive;

[insombia]

VinTagE да оно выручил как всегда

[insombia]

У кого-то есть нормальный скрипт чтобы знать сколько осталось до завершение установки?Просто тот что есть на innoultra не пишет слово осталось времени а какие то иероглифы

[nano321]

Доброго всем времени суток! Короче у меня такая проблема я скачал готовый скрипт nfs undercover 2.2. С установкой у меня все ок, но вот в чем проблема, после установки нажимаеш на кнопку финиш или как там ее установщи закрывается и игра автоматически сама запускается. помогите плиз!!!

[insombia]

nano321 в строке [Run] значит указано про запуск игры убери то что указано и игра не будет запускаться сразу после закрытия инсталятора

[nano321]

insombia, спс какже я сам не додумался? :search:

[insombia]

nano321 Полезное сообщение замена спасибо :clapping:

[VinTagE]

insombia, У кого-то есть нормальный скрипт чтобы знать сколько осталось до завершение установки?Просто тот что есть на innoultra не пишет слово осталось времени а какие то иероглифы »
Вот сделал:

[Setup]
AppName=FreeArc Example
AppVerName=FreeArc Example 3.3 Extreme
DefaultDirName={pf}\FreeArc Example

[Files]
Source: compiler:innocallback.dll; DestDir: {tmp}; Flags: dontcopy;
Source: {win}\Help\; DestDir: {app}; Flags: external;

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Name]
Name: rus; Name: compiler:Name\Russian.isl

[CustomMessages]
rus.hour= часов
rus.min= мин
rus.sec= сек

[code_]
type
TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord);

var
StartInstall: Integer;
TimeLabel: TLabel;
TimerID: Longword;

function GetTickCount: DWord; external 'GetTickCount@kernel32';
function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload';

Function cm(Message: String): String; Begin Result:= ExpandConstant('{cm:'+ Message +'}') End;

Function TicksToTime(Ticks: DWord; h,m,s: String; detail: Boolean): String;
Begin
if detail then {hh: mm:ss format}
Result:= PADZ(IntToStr(Ticks/3600000), 2) +':'+ PADZ(IntToStr((Ticks/1000 - Ticks/1000/3600*3600)/60), 2) +':'+ PADZ(IntToStr(Ticks/1000 - Ticks/1000/60*60), 2)
else if Ticks/3600 >= 1000 then {more than hour}
Result:= IntToStr(Ticks/3600000) +h+' '+ PADZ(IntToStr((Ticks/1000 - Ticks/1000/3600*3600)/60), 2) +m
else if Ticks/60 >= 1000 then {1..60 minutes}
Result:= IntToStr(Ticks/60000) +m+' '+ IntToStr(Ticks/1000 - Ticks/1000/60*60) +s
else Result:= Format('%.1n', [Abs(Ticks/1000)]) +s {less than one minute}
End;

procedure GetTime(HandleW, Msg, idEvent, TimeSys: LongWord);
var Remaining: Integer;
begin
with WizardForm.ProgressGauge do begin
if position > 0 then Remaining:= trunc((GetTickCount - StartInstall) * Abs((max - position)/position))
TimeLabel.Caption:= 'Осталось ждать: ' + TicksToTime(Remaining, cm('hour'), cm('min'), cm('sec'), false)
if (Remaining = 0) then TimeLabel.Caption:= 'Завершение...'
end;
end;

procedure InitializeWizard();
begin
TimeLabel:= TLabel.Create(WizardForm)
TimeLabel.SetBounds(ScaleX(0), ScaleY(80), ScaleX(457), ScaleY(20));
TimeLabel.AutoSize:= False
TimeLabel.Transparent:= True;
TimeLabel.Parent:= WizardForm.InstallingPage;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep = ssInstall then
begin
StartInstall:= GetTickCount
TimerID:= SetTimer(0,0, 500, WrapTimerProc(@GetTime, 4))
end;
end;

procedure DeinitializeSetup();
begin
KillTimer(0, TimerID)
end;

[salat]

а как подвинуть вниз StatusInfo?
http://iceimg.com/t/e6/a6/589de34b61.jpg (http://iceimg.com/e6a6589de34b61.jpg.htm)

[insombia]

salat скрипт нужен и мне кажется что нужно уменьшить размер прогресс бара и будет тебе счастье

[Grenader007]

У меня вопрос, как сделать БЭКАП файлов папки packs перед установкой в тужу самую папку?

AppId={{60CAB1F5-A8F8-41D5-B10E-4C551FA92C8A}
AppName=SOmod
AppVersion=1.1
;AppVerName=SOmod 1.1
AppPublisher=Áðàòñòâî Ñïåêòð, Inc.
AppPublisherURL=http://spectrum.stalker-online.co/
AppSupportURL=http://spectrum.stalker-online.co/
AppUpdatesURL=http://spectrum.stalker-online.co/
DefaultDirName=C:\Program Files\stalker-online\packs;
DisableDirPage=yes
DefaultGroupName=SOmod
DisableProgramGroupPage=yes
LicenseFile=C:\Users\1\Desktop\ModSO\lic.txt
InfoBeforeFile=C:\Users\1\Desktop\ModSO\inf-do.txt
OutputDir=C:\Users\1\Desktop\ModSO
OutputBaseFilename=SOmod
SetupIconFile=C:\Users\1\Desktop\ModSO\favicon.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: "C:\Users\1\Downloads\packs\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{cm:ProgramOnTheWeb,SOmod}"; Filename: "http://spectrum.stalker-online.co/"

[alert30]

salat, дай этот скрипт, пожалуйста, где "Установка ..., осталось ждать ..." (который подчеркнуто). Заранее спасибо!

[salat]

insombia, а в том то и дело что я хочу оставить широкий бар.
Это стандартный фриарковский с запросом след диска.
alert30
http://rghost.ru/2927495


Разобрался короч.

[insombia]

как можно реализовать такую фишку как в 3D инсталяторе что когда переходишь с начальной странички на следующую то он прокручивается или что-то такое?

[R.i.m.s.k.y.]

епт, это ведь просто инсталлер! на кой йенг такие сложности? :o
такими темпами когда-нибудь инсталлер станет сложнее самой устанавливаемой проги

[bagrat]

ребята кто-то может дать скрипт для тихой установки программы , заранее спасибо

[Gugle]

Доброго времени суток!
Подскажите пожалуйста, как можно вытянуть список доступных сетевых интерфейсов (MAC адрес, IP адрес и название) и создать страницу, на которой будет этот список и около каждой карты CheckBox, после выбора карт получить массив с выбранными?

[Richter]

bagrat,
[Tasks]
Name: task1; Description: Дополнительное программное обеспечение:
Name: task1\task2; Description: Обновить DirectX
Name: task1\task3; Description: Установить PhysX
Name: task1\task4; Description: Установить Microsoft Visual C++ Redist

[Run]
Filename: {src}\Redist\DirectX\DirectX.exe; Parameters: /silent; Tasks: task1\task2; Flags: waituntilterminated
Filename: {src}\Redist\PhysX.exe; Parameters: /Q; Tasks: task1\task3; Flags: waituntilterminated
Filename: {src}\Redist\VC Redist.exe; Parameters: /Q; Tasks: task1\task4; Flags: waituntilterminated
;установка доп по после установки игры. папка Redist и setup.exe находятся в одной папке

Программы в смысле ПО для репака? Если правильно понял - то так.