» Inno Setup (создание инсталяционных пакетов)

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

Yoldosh
Вот ты спрашиваешь иногда не понятно.чтобы двигался не знаю! Но вот чтобы переместить я думаю повторяюсь надо почитать шапку темы!
Ну или же лень,тогда могу только подкинуть намек!
[more]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling
then
begin
WizardForm.ProgressGauge.Left:=20
WizardForm.ProgressGauge.Top:=160
WizardForm.ProgressGauge.Width:=215
WizardForm.ProgressGauge.Height:=20
end
end;
[/more]

Если Вы хотите получить исходный текст секции Code установочного скрипта любого инсталлятора сделанного с помощью Inno Setup, присылайте инсталлятор (либо ссылку на него) на адрес dissasminno@ya.ru.
Исходные тексты Code готовы к немедленной компиляции и дают 100% совпадение с оригиналом exe.

dissasminno, методикой извлечения секции [соdе] я так понимаю делиться не хочешь?

dissasminno
лохов ищи в другом месте... уже на разных форумах разместил это сообщение... Работоспособную секцию Code извлечь невозможно...
Я понимаю, кризис... нужны деньги...

Добавлено:
Yoldosh
поиск рулит...

При копировании файла схожего по названию.....имеющийся не заменяется новым...что делать?

Studio13 OutlaW
Flags: ignoreversion;

Спасибо, разобрался. Я оказывается слово неправильно писал...

Делаю установку с выбором компонентов, в каждом из них есть по .ехе файлу, к которым должны быть созданы ярлыки на Рабочий стол, в быстром запуске и т.п.
Получается: есть 2 компонента, один из них может быть не выбран в процессе установки.Но ярлыки-то создавать надо!Если я просто пишу создание ярлыков для обоих .ехе (из обоих компонентов), то при НЕ выборе одного из компонентов для него по-прежнему создаётся ярлык, разуммется, нерабочий. Подскажите пожалуйста, как лучше указать Inno Setup-у, что нужно создавать ярлык только в том случае, когда экзешник существует?

Zabo4ka
[more=Так делали]

[Setup]
AppName=My Program
AppVerName=My Program v 1.0
DefaultDirName={pf}\My Program

[Files]
Source: "compiler:Examples\MyProg.exe"; DestName: "MyProg1.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: "main1";
Source: "compiler:Examples\MyProg.exe"; DestName: "MyProg2.exe"; DestDir: "{app}"; Flags: ignoreversion; Components: "main2";

[Components]
Name: "main1"; Description: "Main Files 1"; Types: full compact custom;
Name: "main2"; Description: "Main Files 2"; Types: full compact custom;

[Icons]
Name: "{userdesktop}\MyProg1"; Filename: "{app}\MyProg1.exe"; WorkingDir: "{app}"; Components: "main1";
Name: "{userdesktop}\MyProg2"; Filename: "{app}\MyProg1.exe"; WorkingDir: "{app}"; Components: "main2";

[/more]

Как можно при определенном условии выбрать компонент (если пользователь не выбрал его)?

Господа, подскажите, плиз, как в зависимости от версии винды импортировать или нет функцию из dll

Sig666

Цитата:

в зависимости от версии винды импортировать или нет функцию из dll

Думаю так
if версия винды ... then
LoadDLL(const DLLName: String; var ErrorCode: Integer);
CallDLLProc(const DLLHandle: Longint; const ProcName: String; const Param1, Param2: Longint; var Result: Longint);

ток зачем мудрить, в нужной версии винды вызывать нужные функции, в ненужной просто не вызывать.
зы конечно ИМХО.

kombat 77

Не получается так, говорит begin expected. Если вызывать непосредственно функции, то при закрытии инсталлятора так или иначе выдает "отравить/не отправлять"

[more]procedure InitializeWizard();
var
WLabel1, WLabel2,
FLabel1, FLabel2: TLabel;
begin
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.WizardBitmapImage.Width := WizardForm.Width;
WizardForm.WizardBitmapImage.Height := ScaleY(313);

WLabel1 := TLabel.Create(WizardForm);
WLabel1.Left := ScaleX(176);
WLabel1.Top := ScaleY(16);
WLabel1.Width := ScaleX(301);
WLabel1.Height := ScaleY(54);
WLabel1.AutoSize := False;
WLabel1.WordWrap := True;
WLabel1.Font.Size := 12;
WLabel1.Font.Style := [fsBold];
WLabel1.Font.Color:= clRed;
WLabel1.ShowAccelChar := False;
WLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WLabel1.Transparent := True;
WLabel1.Parent := WizardForm.WelcomePage;

WLabel2 :=TLabel.Create(WizardForm);
WLabel2.Top := ScaleY(76);
WLabel2.Left := ScaleX(176);
WLabel2.Width := ScaleX(301);
WLabel2.Height := ScaleY(234);
WLabel2.AutoSize := False;
WLabel2.WordWrap := True;
WLabel2.Font.Color:= clRed;
WLabel2.ShowAccelChar := False;
WLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
WLabel2.Transparent := True;
WLabel2.Parent := WizardForm.WelcomePage;

WizardForm.WizardBitmapImage2.Width := WizardForm.Width;
WizardForm.WizardBitmapImage2.Height := ScaleY(313);

FLabel1 := TLabel.Create(WizardForm);
FLabel1.Left := ScaleX(176);
FLabel1.Top := ScaleY(16);
FLabel1.Width := ScaleX(301);
FLabel1.Height := ScaleY(54);
FLabel1.AutoSize := False;
FLabel1.WordWrap := True;
FLabel1.Font.Size := 12;
FLabel1.Font.Style := [fsBold];
FLabel1.Font.Color:= clRed;
FLabel1.ShowAccelChar := False;
FLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
FLabel1.Transparent := True;
FLabel1.Parent := WizardForm.FinishedPage;

FLabel2 :=TLabel.Create(WizardForm);
FLabel2.Top := ScaleY(76);
FLabel2.Left := ScaleX(176);
FLabel2.Width := ScaleX(301);
FLabel2.Height := ScaleY(53);
FLabel2.AutoSize := False;
FLabel2.WordWrap := True;
FLabel2.Font.Color:= clRed;
FLabel2.ShowAccelChar := False;
FLabel2.Caption := WizardForm.FinishedLabel.Caption;
FLabel2.Transparent := True;
FLabel2.Parent := WizardForm.FinishedPage;
end;[/more] можете помчь с етим скриптом почему на послденей странице в места текста * стоит

Добавлено:
http://www.imageup.ru/img8/setup-skin7151971580.png и если у когота есть такой скрипт поделитесь плизз

Yoldosh

По поводу первого вопроса посмотри на предыдущих страницах я уже выкладывал его ранее!!!
А по поводу второго вопроса там создавалась тема программой ISSKin!!!

Добавлено:
Товарищи помогите у кого нить есть скрипт чтоб так сделать

Sig666 попробуй [more=это][no][Setup]
AppId={{D680886C-AFED-47F3-AFAA-1387918509FF}
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl

[Files]
Source: Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy

[Code]
var
win_ver:boolean;

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;
begin
ExtractTemporaryFile('isskin.dll');
{для справки
4.0.950=Windows 95
4.0.1111=Windows 95 OSR2
4.0.1212=Windows 95 OSR2.5
4.0.1381=Windows NT 4.0
4.0.1381sp1=Windows NT 4.0 SP1
4.0.1381sp2=Windows NT 4.0 SP2
4.0.1381sp3=Windows NT 4.0 SP3
4.0.1381sp4=Windows NT 4.0 SP4
4.0.1381sp5=Windows NT 4.0 SP5
4.0.1381sp6=Windows NT 4.0 SP6
4.1.1998=Windows 98
4.1.2222=Windows 98 SE
4.90.3000=Windows ME
5.0.2195=Windows 2000
5.0.2195sp1=Windows 2000 SP1
5.0.2195sp2=Windows 2000 SP2
5.0.2195sp3=Windows 2000 SP3
5.0.2195sp4=Windows 2000 SP4
5.1.2600=Windows XP
5.1.2600sp1=Windows XP SP1
5.1.2600sp2=Windows XP SP2
5.1.2600sp3=Windows XP SP3
5.2.3790=Windows Server 2003
6.0.6000=Windows Vista
6.0.6000sp1=Windows Vista SP1
}
If (Copy(GetWindowsVersionString, 1, 1) = '5') and (Copy(GetWindowsVersionString, 3, 1) = '1')
then win_ver:=true; {все скобки обязательны}
Result := True;
end;[/no][/more]
дальше в коде пиши: If win_ver then {что нужно, если подходящая версия винды}

Добавлено:
skeptik_vdm [more=вот][no][Files]
Source: logo.bmp; DestDir: {tmp}; Flags: dontcopy

[Code]
var
bottom_img:TBitmapImage;

procedure initializeWizard();
begin
ExtractTemporaryFile('logo.bmp');
bottom_img:= TBitmapImage.Create(WizardForm);
bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
bottom_img.SetBounds(0, 315, 70, 45); {первые 2 параметра - координаты левогого верхнего угла по горизонтали и вертикали, дальше ширина и высота, до которой растянуть}
bottom_img.Parent:= WizardForm;
bottom_img.Stretch:= True;
end;[/no][/more]

DeKaNszn
Спасибо но как еще ссылку на нее повесить????

skeptik_vdm, здесь выкладывали пример.

kombat 77
У меня был кусок такого кода в хелпе, но именно секции [ICONS] там и не было.Спасибо большое.

wetcase
Чтот я не нашел там такого может скинешь сам код!!!

skeptik_vdm
[more][Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

[Files]
Source: путь до картинки; Flags: dontcopy

[Code]
procedure urlbuttonclick(sender:tobject);
var rescode:Integer;
begin
shellexec('open', 'http://www.site.com', '', '',sw_shownormal, ewnowait, rescode)
end;

procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;

begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=10
Top:=328
Width:=200
Height:=22
Cursor:=crHand
onclick:=@urlbuttonclick;
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('Logo.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Logo.bmp')
Parent:=BtnPanel
end
end;[/more]

skeptik_vdm
А что у тебя в секции [Files] в скрипте Mirror's Edge?

подскажите както можно это убрать
[more=Читать дальше..]; -- Components.iss --
; Demonstrates a components-based installation.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
OutputDir=userdocs:Inno Setup Examples Output

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

[Types]
Name: full; Description: Full installation
Name: compact; Description: Compact installation
Name: custom; Description: Custom installation; Flags: iscustom

[Components]
;Name: program; Description: Program Files; Types: full compact custom; Flags: fixed
Name: help; Description: Help File; Types: full; Flags: exclusive
Name: readme; Description: Readme File; Types: full; Flags: exclusive
Name: readme\en; Description: English; Flags: exclusive
Name: readme\de; Description: German; Flags: exclusive

[Files]
;Source: MyProg.exe; DestDir: {app}; Components: program
Source: MyProg.chm; DestDir: {app}; Components: help
Source: Readme.txt; DestDir: {app}; Components: readme\en; Flags: isreadme
Source: Readme-German.txt; DestName: Liesmich.txt; DestDir: {app}; Components: readme\de; Flags: isreadme

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe[/more]

de_MAX
Там была папка с игрой!!!

viktor9

Замени
[no][Types]
Name: full; Description: Full installation
Name: compact; Description: Compact installation
Name: custom; Description: Custom installation; Flags: iscustom[/no]

на
[no][Types]
Name: "custom"; Description: "Выборочная установка"; Flags: iscustom[/no]

Krec13
Спасибо но меня этот вариант не устраивает!!!

skeptik_vdm
Думал что-то ещё.

skeptik_vdm, пример скрипта и все необходимое для его правильной работы.

Хочу вернуться к одному коду

Цитата:

Filename: "{app}\rep.exe"; WorkingDir: "{app}"; Parameters: "Layer01.pcf.rep"; StatusMsg: "Восстанавливаются игровые архивы, 3% выполнено..."; Flags: runminimized runasoriginaluser

Может подскажите как пользоваться rep.exe Как компилировать этой штукой