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

MOD_TEC
это лейбл и картинка.

Snoopak96
Пример можно пожалуйста...

MOD_TEC вот пример
[more][Setup]
AppName=«Company of Heroes. Anthology»
AppVersion=1.5
DefaultDirName={pf}\Company of Heroes. Anthology
DefaultGroupName=Company of Heroes. Anthology


[Files]
Source: Files\botva2.dll; DestDir: {tmp}; Flags: dontcopy;
Source: Files\b2p.dll; DestDir: {tmp}; Flags: dontcopy;
Source: Files\Edit.png; DestDir: {tmp}; Flags: dontcopy;

[Icons]
Name: "{group}\«Company of Heroes. Anthology»"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,Ìîÿ ïðîãðàììà}"; Filename: "{uninstallexe}"

[Code]
var
Edit,GroupEdit: Longint;
DirEditLabel, GroupEditLabel: TLabel;

#include "Modules\botva2.iss"

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
Result:=True;
end;

procedure DirChange(Sender: TObject);
begin
DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
end;

procedure GroupChange(Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;

procedure InitializeWizard;
begin

Edit:=ImgLoad(WizardForm.SelectDirPage.Handle,ExpandConstant('{tmp}\Edit.png'),ScaleX(0), ScaleY(81),ScaleX(332),ScaleY(22),True,True);
GroupEdit:=ImgLoad(WizardForm.SelectProgramGroupPage.Handle,ExpandConstant('{tmp}\Edit.png'),ScaleX(0), ScaleY(81),ScaleX(332),ScaleY(22),True,True);
ImgApplyChanges(WizardForm.SelectDirPage.Handle);
ImgApplyChanges(WizardForm.SelectProgramGroupPage.Handle);

DirEditLabel := TLabel.Create(WizardForm);
with DirEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(5), ScaleY(85), ScaleX(446), ScaleY(15));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Arial'
Font.Size:= 9;
Font.Color:=$000000;
Font.Style:=[fsBold];
Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
Parent := WizardForm.SelectDirPage;
end;

GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(5), ScaleY(85), ScaleX(446), ScaleY(15));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Arial'
Font.Size:= 9;
Font.Color:=$000000;
Font.Style:=[fsBold];
Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
Parent := WizardForm.SelectProgramGroupPage;
end;
WizardForm.DirEdit.OnChange := @DirChange;
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text;
WizardForm.GroupEdit.OnChange := @GroupChange;
end;

procedure HideComponents;
begin
WizardForm.DirEdit.Hide;
WizardForm.GroupEdit.Hide;
DirEditLabel.Hide;
GroupEditLabel.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
HideComponents;
case CurPageID of
wpSelectDir:
begin
DirEditLabel.Show;
end;
wpSelectProgramGroup:
GroupEditLabel.Show;
end;
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;[/more]

vint56
Спасибо большое...

Как на b2p сделать деинсталлятор как инсталлятор или это надо делать на botva2 подскажите пожалуйста....

MOD_TEC, никак. тоесть, можно, конечно - загнать графику в те-же RawDataResource и переписать модуль для b2p. Могу занятся, если время будет. но скорей всего в ближайшее время его не будет - мне на сборку-то мою, и то пришлось соавтора приглашать...
P.S. И да, b2p - это всего лишь воспомогательный плагин для botva2, который подает botva2 картинки из памяти, не более, сами картинки грузит из botva2.

Кто-нибудь может переделать ТОЛЬКО оформление этого скрипта под World of Tanks ???

ZverBY
Половина как минимум не видит сайт кривого Васи, меньше надо юзать ломанные движки.

Народ, а вот скажите возможно ли произвести склейку видео и звуковой дорожки с помощью bikmix'а из RAD Video Tools с помощью секции [Run] или IsDone'овского IsExec? А если таковое возможно, то как? Просто, если это проворачивать через батник, то надо постоянно кликать "Done", что как-то... не эстетично что ли. Заранее спасибо!

Цитата:

ZverBY
Половина как минимум не видит сайт кривого Васи, меньше надо юзать ломанные движки.

в скором времени исправим ситуацию. Переежаем на сервер

Сорри за оффтоп

2ALL
Наконец таки я добрался до шапки и обновил ссылки на новые релизы компилятора от Restools.

SotM
Вроде, перевод справки есть уже на версию 5.5.1?
Переводчика прошу откликнуться в личку - предлагаю обеспечить ссылку с постоянным адресом, для удобства.

Цитата:

Вроде, перевод справки есть уже на версию 5.5.1?

Почему вроде? Так и есть тык

Цитата:

Почему вроде? Так и есть тык

Блин, там же регаться
Выложите пожалуйста на ФО.

Спасибо, nik1967
Можно и в шапке поправить

DimitarSerg, держи.

Подскажите пожалуйста что нужно зделать чтобы текструированный прогрессбар работал на ssPostInstall. Дело в том что на
ssInstall он работает а на ssPostInstall нет...

Добавлено:
Как сделать так чтобы кнопка была без надписи....
http://forum.oszone.net/attachment.php?attachmentid=87150&d=1346755409

MOD_TEC
Ответил на другом форуме.

Здравствуйте!

После установки последней версии Inno Setup, появилась проблема
Компилятор ругается на Screen в секции Code
Unknown identifier 'screen'

Скажите пожалуйста как решить эту проблему.

Eugeny1987
код покажи. что вы так не любите читать правила топика?

вот код

Код:
Procedure InitializeWizard;
begin
WizardForm.Left:=( Screen.Width / 2 ) - ( WizardForm.Width / 2 );
WizardForm.Top:= ( Screen.Height - 35 ) - ( WizardForm.Height);
end;

Eugeny1987
Логичный встречный вопрос: а ты где изначально взял этот "страшный" код?

Eugeny1987
а не проще так -

Код: procedure InitializeWizard();
begin
WizardForm.Position := poScreenCenter;
end;

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

Цитата:

Логичный встречный вопрос: а ты где изначально взял этот "страшный" код?

Я сам его написал.
и до обновления он работал

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

vint56
Ответил на другом форуме.

Snoopak96 большое спасибо

Подскажите, как убрать это



Скрипт: http://rghost.ru/40226453

IsDone.iss http://rghost.ru/40226446

Del.

assembler
Как убрать? Для начала читаем правила и НЕ ВЫКЛАДЫВАЕМ картинки такого размера.

Вот такую фигню сделал-_- Косячные, правда, кнопки.
Ссыль