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

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

R.i.m.s.k.y.,

инсталлер сделан на инно.

[No4noylis]

на мой вопрос не ответят???

[No4noylis]

R.i.m.s.k.y., я так понял, что анпакер эту версию вообще не может распаковать?

Хотя на сайте написано


Цитата:



0.32 (2010.06.14)

Added support for IS versions 5.3.10 (both ANSI and Unicode).



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

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

Цитата Rikill:



Как сделать запрет на запуск нескольких экземпляров инсталлятора одновременно?

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

Rikill, указать AppMutex в секции [Setup], потом в нужном месте вызывать функцию CreateMutex.

[Rikill]

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



спасибо не заметил.

upd

при компилировании вылезает следующая ошибка internal error an attempt was made to access wizardform before it has been created с жалобой на строчку

WizardForm.PasswordEdit.Text:= 'Вот и нет пароля';

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

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

[Rikill]

No4noylis, читай форумы, гугли в конце концов, короче:

TNewStaticText не имеет свойство прозрачности , а статик текст во всём инсталляторе используется (по дефолту) , но есть альтернатива

Код:

Код: Выделить всё

procedure initializewizard();
var
label: TLabel;
begin
  Label := TLabel.Create(WizardForm);
  with Label do begin
    AutoSize:=False; //авторазмер
    SetBounds(ScaleX(100), ScaleY(219), ScaleX(200), ScaleY(17)); //размеры
    OnClick:= @LabelClick; //что делает текст при нажатии, если не нужно удалить
    Cursor:= CrHand; //курсор при наведении, если не нужно удалить
    Transparent:=True; //а вот и главное, прозрачность
    Font.Name:= 'Comic Sans MS' //шрифт если не нужно удалить
    Font.Size:= 8;//размер текста если не нужно удалить
    Font.Color:=$00FFFF; //цвет текста если не нужно удалить
    Font.Style:=[fsItalic]; //стиль текста italic это курсив fsbold это жирный и тд. если не нужно удалить
    Caption := 'наш текст';
    Parent := WizardForm; //где находится
  end;
end;

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

Rikill, спасиба)

[Rikill]

R.i.m.s.k.y., брал прямиком из архива со справкой, странно

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

Rikill, покаж скрипт