Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

Закрытая тема
Настройки темы
Скрипты Inno Setup. Помощь и советы [часть 7]

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: El Sanchez
Дата: 16-02-2015
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме
Inno Setup. Прочие вопросы.


Показать/скрыть: Справка, руководство, примеры:

Показать/скрыть: Ссылки на примеры скриптов:

Показать/скрыть: Дополнительные программы для Inno Setup:
  • ISTool - неплохой редактор скриптов Inno Setup.
    Последняя версия: 5.3.0.1 [29.09.2009] - Скачать | зеркало;

  • Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
    Последняя версия: 1.0.3.1 [23.03.2008] - Скачать | зеркало на русифицированную программу;
    Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
    Последняя версия: 2.0.8 [12.11.2006] - Скачать;
    Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;

  • ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
    Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;

  • ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
    Последняя версия: 3.0 [23.07.2009]

  • Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
    Последняя версия: 0.1.4 [13.03.2010] - Скачать;

  • RegExporter - Фриварная утилита для экспорта реестра и конвертации файлов *.reg и *.ini в инсталляционные скрипты Inno Setup и NSIS.
    Последняя версия: 1.2.0 [23.09.2014] - Скачать;



Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах:

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

Отправлено: 11:48, 10-03-2014

 

SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать


Цитата Kashtan007:
но теперь я не могу изменить цвет шрифта и размер. »
Как вариант:
читать дальше »
Код: Выделить весь код
#define Bitmap2 "SmallImage.bmp"

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Files]
Source: {#Bitmap2}; Flags: dontcopy solidbreak

[Code]
var
  Panel1: TPanel;
  BitmapImage1: TBitmapImage;
  Label1: TLabel;
  Label2: TLabel;

procedure InitializeWizard();
begin
  WizardForm.MainPanel.Hide;

  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do
  begin
    Parent := WizardForm.InnerPage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(59);
  end;

  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := Panel1;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(57);
    ExtractTemporaryFile('{#Bitmap2}');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\{#Bitmap2}'));
  end;

  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Font.Color := clRed;
    Font.Size := 12;
    Font.Style := [fsBold];
    Parent := Panel1;
    Transparent := True;
    Left := ScaleX(24);
    Top := ScaleY(10);
    Width := ScaleX(405);
    Height := ScaleY(14);
  end;

  Label2 := TLabel.Create(WizardForm);
  with Label2 do
  begin
    Font.Color := clBlue;
    Font.Size := 12;
    Parent := Panel1;
    Transparent := True;
    Left := ScaleX(40);
    Top := ScaleY(26);
    Width := ScaleX(389);
    Height := ScaleY(29);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  Label1.Caption:=WizardForm.PageNameLabel.Caption
  Label2.Caption:=WizardForm.PageDescriptionLabel.Caption
end;

-------
09a468a9b4293cd82adf6d6c60a9da82 | Tm9yZGVr
В связи со сменой железа и переходом на LInux с полным отказом от Windows - посещение на форуме будет редким.

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:24, 14-07-2014 | #1131



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Shkutu:
похоже на то, что нужно »
Shkutu, шлак это, а не функция, как оказалось.
Цитата Shkutu:
Для того, чтобы узнать, что вводимый путь был корректным, его можно сравнить с тем, что получается в результате функции и кладется во 2й параметр.»
Shkutu, сравнивать бестолку, например, допустимый путь С:\\\\\\test функция возвратит как C:\test.
Цитата Shkutu:
для корректной работы функции, надо чтобы размер второй строки был больше длины изначальной. »
Shkutu, размер буфера в 260 для ANSI, 32767 для Unicode, лишнее потом отрезать.
Но, как я уже сказал, функция не годится, слишком корявый у нее принцип работы, тут нужно парсить путь с помощью регулярных выражений. У меня пока не получилось написать регулярку, учитывающую все варианты, а существующие решения далеки от идеала.
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:33, 14-07-2014 | #1132


Пользователь


Сообщения: 149
Благодарности: 38

Профиль | Отправить PM | Цитировать


El Sanchez, видимо недостаток образования, но не знала, что С:\\\\\\test - это корректный путь. Думала, функция как раз убирает лишние слеши и точки/запятые. На недопустимые символы, типа *,<,> и т д там проверки нет. Впрочем в комментариях сказано, что среди Вин Апи функций вообще нет ни одной для валидации пути, вводимого пользователем. Так что видимо и правда из вариантов только свою делать.
Цитата El Sanchez:
написать регулярку, учитывающую все варианты »
Не уверена, что такое в принципе бывает. Там же многое зависит от системы и фиг знает чего еще.
Цитата El Sanchez:
лишнее потом отрезать »
А вот про это можно подробнее? Или банальный copy должен прокатить?

Отправлено: 17:28, 14-07-2014 | #1133


Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Shkutu:
А вот про это можно подробнее? Или банальный copy должен прокатить? »
Shkutu, имеется в виду, что буфер по максимуму в 260 символов, а PathSearchAndQualify заполнит его не весь (не все ж пути такие длинные), хвост нужно будет убирать. Буфер лучше всего создавать с помощью StringOfChar, хвост из нулевых символов убрать Trim-ом. Если бы PathSearchAndQualify работала по-человечески, то задачу можно было бы решить вот так:
Код: Выделить весь код
#define A = (Defined UNICODE) ? "W" : "A"

function PathSearchAndQualify(pcszPath: String; pszFullyQualifiedPath: String; cchFullyQualifiedPath: UINT): BOOL; external 'PathSearchAndQualify{#A}@shlwapi.dll stdcall';

////////////////////////////////////////////////////////////////////////////////////////
function IsValidFileName(const FileName: String; var CorrectFileName: String): Boolean;
begin
    CorrectFileName := StringOfChar(#0, 260);
    Result := PathSearchAndQualify(FileName, CorrectFileName, Length(CorrectFileName));
    CorrectFileName := Trim(CorrectFileName);
end;

/////////////////////////////
procedure InitializeWizard();
var
    s: String;
begin
    if IsValidFileName('C:\\\\\test', s) then
        MsgBox(s, mbInformation, MB_OK);
end;

Отправлено: 19:55, 14-07-2014 | #1134


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Народ спасайте помогите прикрутить страницу компонентов к этому скрипту с выбором компонентов и отображение картинки и описание компонента

Скрипт - Ссылка

Скрипт (примера компонентов) - Ссылка

Скриншот примерно как должна выглядит страницы https://yadi.sk/i/l8EtFfw3WcADH


Заранее большое спасибо, мучаюсь очень долго не могу понять как правильно прописать вывод компонентов страницы

Отправлено: 00:24, 15-07-2014 | #1135


Пользователь


Сообщения: 149
Благодарности: 38

Профиль | Отправить PM | Цитировать


El Sanchez, пробовала тримить, хвост не убирается, ни если длину строки setlength'ом задавать, ни с помощью StringOfChar.
А вот еще вопрос. Можно как-то на страницу компонентов к этим самым компонентам хинты прикрутить?

Отправлено: 12:54, 15-07-2014 | #1136


Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Shkutu:
пробовала тримить, хвост не убирается »
Shkutu, все там убирается, не так что-то проверяете.
Цитата Shkutu:
ни если длину строки setlength'ом задавать »
Shkutu, SetLength вообще не рекомендую для выделения буфера, ибо строка будет инициализирована в свободном участке памяти, полном всякого мусора.
Цитата Shkutu:
Можно как-то на страницу компонентов к этим самым компонентам хинты прикрутить? »
Shkutu, для ComponentsList установить свойство ShowHint в True, в обработчике OnItemMouseMove свойству Hint уже задавать значения в зависимости от параметра Index обработчика.
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:10, 15-07-2014 | #1137


Пользователь


Сообщения: 149
Благодарности: 38

Профиль | Отправить PM | Цитировать


Цитата El Sanchez:
все там убирается, не так что-то проверяете »
Ну например вот так:
читать дальше »
Код: Выделить весь код
    function PathSearchAndQualify(pszPath, qPath: String; qPbuf:integer): BOOL;
      external 'PathSearchAndQualifyA@Shlwapi.dll stdcall delayload';

procedure InitializeWizard;
var s:string;
i:integer;
begin
  s:=StringOfChar(#0,256);
  PathSearchAndQualify('d:\\sss', s, length(s));
  MsgBox(inttostr(length(s)), mbInformation, MB_OK);
  Trim(s);
  MsgBox(inttostr(length(s)), mbInformation, MB_OK);
end;
Оба раза выдаст 260, можете проверить.
Цитата El Sanchez:
обработчике OnItemMouseMove »
Вот вообще не нашла такого обработчика Может, это в какой-то расширенной версии только есть? Или он есть и его просто в описании нет?

Отправлено: 17:57, 15-07-2014 | #1138


Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Shkutu:
Оба раза выдаст 260, можете проверить. »
Shkutu, вы же результат от Trim ничему не присваиваете. Должно быть s := Trim(s)
Цитата Shkutu:
Вот вообще не нашла такого обработчика Может, это в какой-то расширенной версии только есть? »
Shkutu, да, в расширенной есть.
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:53, 15-07-2014 | #1139


SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать


habib2302,
Код: Выделить весь код
[Registry]
Root: HKLM; SubKey: SOFTWARE\Classes\SystemFileAssociations\image; ValueType: string; ValueName: TitleInfo; ValueData: prop:Dimensions; Flags: uninsdeletevalue

-------
09a468a9b4293cd82adf6d6c60a9da82 | Tm9yZGVr
В связи со сменой железа и переходом на LInux с полным отказом от Windows - посещение на форуме будет редким.


Отправлено: 22:10, 16-07-2014 | #1140



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7]

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты Inno Setup. Помощь и советы [часть 6] El Sanchez Автоматическая установка приложений 2494 10-03-2014 11:51
Скрипты Inno Setup. Помощь и советы [часть 5] El Sanchez Автоматическая установка приложений 1999 28-03-2013 19:09
Скрипты Inno Setup. Помощь и советы [часть 4] El Sanchez Автоматическая установка приложений 2099 22-05-2012 23:16
Скрипты Inno Setup. Помощь и советы [часть 3] Serega Автоматическая установка приложений 3755 26-10-2011 17:58
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] Serega Автоматическая установка приложений 2651 08-11-2010 18:34




 
Переход