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

это скрипт для кнопки в углу при нажатии показывающая информацию.
Проблема в том что слово 'Info' показывается не чёрным цветом а белым,как сделать ёго чёрным?

my94

Цитата:

это скрипт для кнопки в углу при нажатии показывающая информацию.

Я и без объяснений понял для чего скрипт

Цитата:

Проблема в том что слово 'Info' показывается не чёрным цветом а белым,как сделать ёго чёрным?

Код: Font.Color:=clBlack;

вопрос не много не в тему, но может кто нить дать пример упаковки файлов с помощью pkzip25 после установки?

как сделать что бы несколько файлов из пункта RUN запускались перед тем как создаются ярлыки? используется скрипт isdone

YURSHAT
с этим я уже разобрался, я же зачеркнул

меня нижнее теперь интересует. а чем секция RUN связана с внешними упаковщиками?

Despofix

Цитата:

как сделать что бы несколько файлов из пункта RUN запускались перед тем как создаются ярлыки?

Запустить установку этих файлов из кода, ибо секция RUN отрабатывается после создания ярлыков, и это не изменить.

ЗЫ. Можно еще создать ярлыки из кода...

YURSHAT
через Exec(ExpandConstant) установку? если я в


Цитата:

begin
if CurStep = ssInstall then begin //Если необходимо, можно поменять на ssPostInstall

WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Hide;
CreateControls;
WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
ISDoneCancel:=0;

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

Despofix

Цитата:

работе мешать не будет?

Не будет

Добавлено:

Цитата:

или же файлы ьудут запускать раньше распаковки архивов если так сделать?

просто софт тебе нужно распаковать на этапе ssInstall, думаю лучше перед распаковкой архивов

Добавлено:
т.е.

Код:
begin
if CurStep = ssInstall then begin //Если необходимо, можно поменять на ssPostInstall

function Exec...

WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Hide;
CreateControls;
WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
ISDoneCancel:=0;

YURSHAT
перед распаковкой мне не надо, мне надо именно после распаковки архивов и до создания ярлыков. так как надо запустить pakzip и батник для удаления файлов. что можешь посоветовать?

Despofix
Ну а что не через Exec2 сделать, если isdone юзаешь, сюда любой внешний MZ можно прицепить:

Цитата:

Exec2(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'),'/silent', true);

Snoopak96
пробовал, не хочет запускать pkzip с параметрами упаковки.

Народ подскажите как сделать рамку,как на скрине[?]

Despofix,
Тебе это надо привязать к чек боксу? чтоб опционально ставилась распаковка из этого PKzip?

Добавлено:
ENERGES
Это не рамка, а панель вроде как, сверху неё и наложен чек бокс и текст. Вот вставка панели:

Цитата:

var
DiskPanel: TPanel;

procedure InitializeWizard();
begin
DiskPanel := TPanel.Create(WizardForm);
DiskPanel.Parent := WizardForm.SelectDirPage;
DiskPanel.Top := ScaleY(170);
DiskPanel.Left := ScaleX(209);
DiskPanel.Width := ScaleX(208);
DiskPanel.Height := ScaleY(61);
DiskPanel.BevelInner := bvRaised;
DiskPanel.BevelOuter := bvLowered;
end

Snoopak96
Да странно )

ENERGES
Tbevel в помощь.

meekrab

Цитата:

ENERGES
Tbevel в помощь.

а если по конкретнее?

Snoopak96
не нужен мне никакой чексбокс, мне нужно что бы сразу после распаковки архивов запускался pkzip с параметром и создавался zip архив.

ENERGES
Цитата:

Народ подскажите как сделать рамку,как на скрине[?]

Примерно так:
[more=Код][Code]
var
Bevel2: TBevel;

procedure InitializeWizard();
begin
{ Bevel2 }
Bevel2 := TBevel.Create(WizardForm);
with Bevel2 do
begin
Name := 'Bevel2';
Parent := WizardForm.SelectProgramGroupPage;
Left := ScaleX(20);
Top := ScaleY(190);
Width := ScaleX(218);
Height := ScaleY(22);
Shape := bsFrame;
end;

with WizardForm.NoIconsCheck do
begin
Left := ScaleX(24);
Top := ScaleY(192);
Width := ScaleX(209);
end;
end;
[/more]

Ура заработала
О о Gnom3 спасибо вам еще раз ОГРОМНОЕ за помочь
походу основной мозг, forumа Gnom3

Gnom3
Зря разжевал )

ENERGES
А вы справку курите.

meekrab
по крайне мере Gnom3 помогает Людям,в отличия от некоторых!
извините не курю!

meekrab,
Ну а почему зря)) я вот чёт даже с этим параметром не экспериментировал)) хотя да, справка рулит ))



Добавлено:
Despofix,
Кинь в личку строку на упаковку как она выглядит в cmd (PKZip мне качать не охота), через Exec можно будет сделать.

Добавлено:
ENERGES,
Ну ты мне и сообщений нашлёпал в лс

Snoopak96
отправил

Despofix,
так она примерно через Exec будет:

Цитата:

if not ISExec ( 0, 0, 0, ExpandConstant('{app}\pkzip25.exe'), ExpandConstant(' -add -dir=relative -NoZipExtension russian.zip localized/*.*'), ExpandConstant(''), '...') then break;

Как сделать, что б места белого фона была картинка?
Что б картинка была вот тут http://s56.radikal.ru/i152/1106/d5/4b9317d1655c.jpg

tema001
Как-то [more=так][Code]
procedure InitializeWizard();
begin
with WizardForm.WizardBitmapImage do
begin
Top := ScaleY(-77);
Width := ScaleX(417);
Parent := WizardForm.SelectDirPage;
end;
end;[/more] но тебе это не поможет если решиш, что результат удовлетворительный, то таким образом придется делать на каждой странице.

Gnom3
А нету скрипта проще, чтоб всё одним кодом по всем страницам?
Тот пример, который Вы преподнесли не работает

tema001
Мой код работает, он растягивает визардимедж на странице выбора папки установки, как ты и просил.
Проще - невозможно, абсолютно любой другой вариант гораздо сложнее, уж поверь. поройся в готовых скриптах, все ухищрения направлены только на то, чтоб растянуть картинку на весь инсталл, и поверь, для этого действительно придется здорово поработать руками и головой самому.

Gnom3
не знаю почему, но твой код ничего не делает, даже чуть "гадит" с внешним видом инсталлятора. Ну придётся пошариться по скриптам...

tema001
Вот поэтому мне иногда и не хочется помогать.
вот инсталл откомпиленный с этого кода. Долает он ровно то, о чем ты и просил - растягивает картинку на странице выбора папки, чтоб не морочится я не стал вставлять другое изображение, и использовал системное, легко заменяется такой строчкой в секции [Setup]:
WizardImageFile=твоя картинка.bmp

Протестируйте инсталл Интересует прорисовка лейбла Доп ПО (менять в компонентах)
http://rghost.ru/10279851