Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (25-09-2007 17:33): лимит страниц. продолжаем здесь  Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

   

Widok



Moderator-Следопыт		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 

Это мощное средство для создания установочных пакетов (дистрибутивов) программ. Поддерживается шифрование, установка пароля, различные задачи по завершении установки. Можно легко самим создавать диалоги, используя спец. дизайнер. И всё это абсолютно бесплатно! По сравнению с NullSoft (основной конкурент на бесплатной ниве) мне albel понравилась более интуитивно-понятная структура скрипта, простота в настройке.  
 
Последний релиз: 5.2.0 [19 сентября 2007 года]
История версий | скачать || скачать Preprocessor
 
Русификатор от NightW0lf для версии 5.2.0
Скачать | зеркало
 
Английская справка для Inno Setup Preprocessor (ISPP) 5.0.xx
Скачать
 
Русская справка к версиям 5.0.xx
Скачать | зеркало || cкачать в .chm формате
И снова BagIra на высоте
 
Руководство по расширенным возможностям Inno Setup 5 (не для чайников) от Kindly
[3 версия]  
Скачать | зеркало
[4 версия]  
Скачать | зеркало
[5 версия]  
Скачать | зеркало
[5.1 версия]  
Скачать | зеркало
 
Inno Setup Extensions Knowledge Base  
Скачать | зеркало
 
Corona Skin & Check System Requirements от Victor_Dobrov
Скачать | Скриншот | Справка
Кроме визуального стиля Corona(WMP9) в инсталлятор по выбору пользователя добавляется: Проверка системы/минимальных требований. Шифрование. Деинсталляция неучтённых файлов. Подсчёт времени установки. Расширенный прогрессбар. Экран скриншота/справки. Screensaver, BMP или AVI-файл в фоновом окне. Проигрывание музыки в фоне и многое другое...
 
Примечание: начиная с версии 5.1.10 в Inno Setup при использовании в инсталляторе фонового изображения формата BMP стало глючить возможность растягивания картинки на весь экран - чтобы это исправить добавьте этот код.
Если вы захотите использовать метод проверки внешнего файла через сумму MD5 (который описан в 5 версии руководства по программированию в Inno Setup) для запуска инсталлятора то вам понадобится калькулятор хеша MD5, калькулятор сумм MD5, SHA-256, CRC32. Если вы хотите узнать какие ключи в реестр вносит та или иная программа (или игра) то Вам понадобится RegShot.

Дополнительные утилиты для Inno Setup


 
Последний релиз: 5.2.0 [21 сентября 2007 года]
Скачать | зеркало  
(как сказано в описании изменений, добавлена поддержка новых директив 5.2.0)
 
Русификатор
Скачать | зеркало

 
Распаковщик установок, сделанных с помощью Inno Setup. При распаковке извлекаются  ресурсы и скрипт установки (немного усечённый). Возможно подключение к TotalCommander или FAR с помощью MultiArc плагинов.
 
Поддерживает распаковку инсталляторов, сделанных с помощью Inno Setup начиная с версии 3.0.0-beta по 5.1.14
 
Последний релиз: 0.20 - Тестовая версия [27 августа 2007 года] New
Скачать | зеркало | зеркало

 
Удобная оболочка для облегчения написания скриптов установки для Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
 
Последний релиз: 5.1.6.9 [09 июля 2006 года]
Скачать 4.2 мб | обновление 3.1 мб
 
Русификатор отGloThin
Скачать с сайта GloThin | Зеркало | Зеркало | зеркало
Пароль: ruboard
Примечание: офф. сайт косо отображается в Oper`е.
 
Новое название проекта на сайте, похоже произошла замена ScriptMaker на:
 
Inno Script Generator

Последний релиз: 1.0.2.11 [7 Августа 2007 года]
Скачать | обновление | Изменения
Примечание: обновление ставится только на Inno Setup Quickstartpack 5.1.13.
 
Примечание для всех участников
 
Длинные куски кода помещайте под тегом [more], дабы дать возможность знатокам Inno Setup прочитать сам вопрос, а не пролистывать бесконечно длинные листинги скриптов в посте.
Всего записей: 24190 | Зарегистр. 07-04-2002 | Отправлено: 18:01 23-04-2007 | Исправлено: Nekt, 00:33 25-09-2007
marat shakirov

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sero
 
var
  DriverList: TComboBox;
  NewStaticText1: TNewStaticText;
   
 
procedure CustomForm_Activate(Page: TWizardPage);
var
  Path: string;
  FreeMB, TotalMB: Cardinal;
  drives: DWORD;
  i: integer;
begin
  drives := GetLogicalDrives();
  DriverList.Items.Clear;
  for i := 0 to 31 do
  begin
    if (drives and (1 shl i)) > 0 then
    begin
      Path := chr(ord('A') + i) + ':\';
      if GetDriveType(Path) = DRIVE_FIXED then
      begin
        GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
        if FreeMB>1024 then DriverList.Items.Add(Path + '  Свободно: ' + IntToStr(round(FreeMB / TotalMB * 100)) + '%  ' +
                                                 floatToStr(round(FreeMB/1024*100)/100) + ' GB')
        else DriverList.Items.Add(Path + '  Свободно: ' + IntToStr(round(FreeMB / TotalMB * 100)) + '%  ' + IntToStr(FreeMB) + ' MB');
      end;
    end;
  end;
  DriverList.ItemIndex:=0;
end;
 
 
{ CustomForm_NextkButtonClick }
 
function CustomForm_NextButtonClick(Page: TWizardPage): Boolean;
var
  Path,s: String;
  FreeB, TotalB: Cardinal;
  ResultCode: Integer;
begin
      Path:= ExtractFileDrive(DriverList.Text);
      GetSpaceOnDisk(Path, True, FreeB, TotalB);
       if (FreeB < GetComponentSpace()) then
          begin
                 s:='Необходимо '+ IntTostr(GetComponentSpace())+ ' Мб,'#13+
                    'Свободно '+ IntToStr(FreeB) + ' Мб!';
            MsgBox(s,mbConfirmation,MB_OK);
            Result := False;
          end
       else
          Result := True;
//      Result:=False;
end;
 
{ CustomForm_CreatePage }
 
function CustomForm_CreatePage(PreviousPageId: Integer): Integer;
var
  Page: TWizardPage;
begin
  Page := CreateCustomPage(
    PreviousPageId,
    ExpandConstant('{cm:CustomForm_Caption}'),
    ExpandConstant('{cm:CustomForm_Description}')
  );
 
{ DriverList }
  DriverList := TComboBox.Create(Page);
  with DriverList do
  begin
    Parent := Page.Surface;
    Left := ScaleX(48);
    Top := ScaleY(48);
    Width := ScaleX(313);
    Height := ScaleY(21);
    TabOrder := 0;
//    OnChange := @DriverListOnChange    ;
  end;
 
  { NewStaticText1 }
  NewStaticText1 := TNewStaticText.Create(Page);
  with NewStaticText1 do
  begin
    Parent := Page.Surface;
    Caption := ExpandConstant('{cm:CustomForm_NewStaticText1_Caption0}');
    Left := ScaleX(24);
    Top := ScaleY(16);
    Width := ScaleX(260);
    Height := ScaleY(14);
    TabOrder := 1;
  end;
 
  with Page do
  begin
    OnActivate := @CustomForm_Activate;
    OnNextButtonClick := @CustomForm_NextButtonClick;
  end;
 
  Result := Page.ID;
end;
 
{ CustomForm_InitializeWizard }
procedure InitializeWizard();
begin
  CustomForm_CreatePage(wpSelectComponents);
end;
 
 
Мне важна только переменная Path. Ее надо использовать вместо {app}
 
Добавлено:
Genri
Спасибо, уже проверяю
 
Кстати, я там лишний кусок стереть забыл в коде. Сначала был List потом заменил его на ComboBox.
Всего записей: 14 | Зарегистр. 11-05-2007 | Отправлено: 15:17 22-05-2007
Sero



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
marat shakirov
Вот попробуй!
 
Добавлено:
Вместо {app} поставь {code:GetPath}
Всего записей: 309 | Зарегистр. 29-10-2006 | Отправлено: 15:29 22-05-2007 | Исправлено: Sero, 15:32 22-05-2007
Victor_Dobrov



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скрипт проверки аппаратных требований. Версия 2
 
Изменил принцип создания страницы, свободной формы теперь нет (для NightW0lf)
DelSp теперь убирает начальные и конечные пробелы (для iTASmania_Inc)
Размер папок считается быстро. Кто найдёт недостатки, того достану!
 
P.S. Любители украшательств, советую обратить внимание на стиль приложений пакета Microsoft Plus! Digital Media Edition.
Всего записей: 742 | Зарегистр. 27-09-2005 | Отправлено: 15:47 22-05-2007 | Исправлено: Victor_Dobrov, 16:58 22-05-2007
boss911



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sero
 
Дабавил анимацию, работает, спасибо!
 


Цитата:
Что нужно поставить, чтоб инсталлятор не стал устанавливать, если ОС ниже XP SP2, случаем не это:

Код:
[Setup]  
OnlyBelowVersion=0,5.1.2600sp2

Неужели ни кто не знает? Эта опция есть в ISTool, но я не совсем понемаю, как ей правильно воспользоваться!
Всего записей: 3699 | Зарегистр. 29-01-2005 | Отправлено: 17:56 22-05-2007 | Исправлено: boss911, 17:58 22-05-2007
maxdddca123

Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron

Цитата:
В скине Vista радиобаттоны вроде нормально смотрятся.

У меня нет
data.cod.ru/1023245770
Всего записей: 211 | Зарегистр. 14-12-2006 | Отправлено: 18:07 22-05-2007
Sampron

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
maxdddca123
Радиобаттоны не поддерживают свойство Transparent, и это исправить нельзя только цвет можно изменить.
Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 18:15 22-05-2007
Chuvakstepan



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите пожалуйста!
Надо скрестить два кода:
 
1. Мой код в котором реализованны кнопки управления музыкой + те-же кнопки вместе с измененным окном  процесса установки: вот код
2. код, в котором реализованны текстуры этих кнопок: вот код
 
Я просто запутался, очень нужна помощь чтобы заменить то-что было на то что стало
Всего записей: 202 | Зарегистр. 29-01-2007 | Отправлено: 19:15 22-05-2007 | Исправлено: Chuvakstepan, 19:17 22-05-2007
Sero



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Chuvakstepan
Скрипт!
Всего записей: 309 | Зарегистр. 29-10-2006 | Отправлено: 19:37 22-05-2007
iTASmania_Inc



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Genri
Спасибо - не успел написать - сразу ответ! Вот это класс!!!
Всего записей: 443 | Зарегистр. 29-04-2007 | Отправлено: 21:39 22-05-2007
GloThin



Тобольский шашлычник		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Victor_Dobrov
17:47 22-05-2007
Цитата:
Скрипт проверки аппаратных требований. Версия 2  
 
Изменил принцип создания страницы, свободной формы теперь нет (для NightW0lf)  
DelSp теперь убирает начальные и конечные пробелы (для iTASmania_Inc)  
Размер папок считается быстро. Кто найдёт недостатки, того достану!  
 
P.S. Любители украшательств, советую обратить внимание на стиль приложений пакета Microsoft Plus! Digital Media Edition.  

заметил интересную картинку - не удержался сделал скрин....
Чтобы это значило?.

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!
Всего записей: 706 | Зарегистр. 28-04-2004 | Отправлено: 21:44 22-05-2007 | Исправлено: GloThin, 22:26 22-05-2007
iTASmania_Inc



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Victor_Dobrov
Тебе тоже ОГРОМНОЕ спасибо за доработку DelSP!
Всего записей: 443 | Зарегистр. 29-04-2007 | Отправлено: 21:47 22-05-2007
Genri

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GloThin
Цитата:
Чтобы это значило?
-- ограничение LongWord
 
iTASmania_Inc -- так функция Trim помогла или нет?
Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 22:45 22-05-2007
GloThin



Тобольский шашлычник		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
GloThin
Цитата:Чтобы это значило?  
-- ограничение LongWord  

Не понял? причем тут это ограничение, вернее переход в минуса при превышении максимального значения....
насколько помнится максимальное значение лонгинт никак не больше 2000000000 байт..  
А почему не использовать лонгинт вместь лонгворд?
Щас проверю.....

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!
Всего записей: 706 | Зарегистр. 28-04-2004 | Отправлено: 22:59 22-05-2007 | Исправлено: GloThin, 23:05 22-05-2007
Sero



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите с этим скриптом! плииииз!
Всего записей: 309 | Зарегистр. 29-10-2006 | Отправлено: 23:36 22-05-2007
Genri

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GloThin
Код:
 
function InitializeSetup(): Boolean;
var
  curr: Currency;
  lw: LongWord;
  li: LongInt;
begin
  lw  := 2147483647;
  curr:= 2147483647;
  li:= 2147483647;
  MsgBox('LongInt  = ' + FloatToStr(li) + #10#13 +
         'LongWord = ' + FloatToStr(lw)+ #10#13 +
         'Currency = ' + FloatToStr(curr), mbInformation, MB_OK);
         
  lw:= lw + 1;
  curr:= curr + 1;
  li:= li + 1;
   
  MsgBox('LongInt  = ' + FloatToStr(li) + #10#13 +
         'LongWord = ' + FloatToStr(lw)+ #10#13 +
         'Currency = ' + FloatToStr(curr), mbInformation, MB_OK);
end;
 

 
 
Добавлено:

Цитата:
А почему не использовать лонгинт вместь лонгворд?
-- потому что размер файла отрицательным не бывает Но в любом случае это дает порядка 2-х гигов. А вот использование Currency имеет смысл:
........................
  lw:= lw * 429496;
  curr:= curr * 429496;
  li:= li * 429496;
........................
 
ЗЫ. Я не програмер. Поэтому все вышеизложенное сугубо ИМХО  
 
Добавлено:
boss911
Цитата:
OnlyBelowVersion=0,5.1.2600sp2  
Неужели ни кто не знает? Эта опция есть в ISTool, но я не совсем понемаю, как ей правильно воспользоваться!

 
*******************************
[Setup]: MinVersion
 
Формат:    a.bb,c.dd, где a.bb версия Windows, c.dd версия Windows NT.  
Значение по умолчанию:    4,4  
 
Описание:
Вы можете указать минимальную версию Windows или Windows NT, под которой ваша программа будет работать. Если ваша программа не работает под Windows или Windows NT, укажите "0" в соответствующем месте. Build и/или Service Pack также могут быть указаны в номере версии.
Если версия системы пользователя меньше указанной, инсталятор выдаст сообщение об ошибке и прервет процесс установки.
*******************************
((C)BagIra)
Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 00:00 23-05-2007
Victor_Dobrov



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
заметил интересную картинку - не удержался сделал скрин....  
Чтобы это значило?.

 
Когда результат более $80000000, знак меняется на -, как это исправить?
В самой функции ловушки и замена (...): Longword на Currency ничего не меняет
 
[Setup]
AppName=CalcDirSize
AppVerName=CalcDirSize
DefaultDirName={pf}\CalcDirSize
 
[Code]
Function CalcDirSize(const fromDir, fileMask: string; SubDirsAllow: Boolean): Longword;
var FSR, DSR: TFindRec; APath: string; FindResult: Boolean;
    Begin
        APath:= AddBackslash(fromDir);
FindResult:= FindFirst(APath + fileMask, FSR);
Try
while FindResult do
 begin
    if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then Result:= Result +(FSR.SizeLow);
    FindResult:= FindNext(FSR);
 end;
    FindResult:= FindFirst(APath + '*.*', DSR);
while FindResult and SubDirsAllow do
 begin
    if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then
    {Recursion} Result:= Result + CalcDirSize(APath + DSR.Name, fileMask, SubDirsAllow);
    FindResult:= FindNext(DSR);
 end;
Finally
    FindClose(FSR); FindClose(DSR);
 end;
End;
 
Procedure DirOnClick(Sender: TObject); var UserSelectDir: String; res: Longword;
    Begin
UserSelectDir:= WizardForm.DirEdit.Text
If BrowseForFolder('Выберите папку для установки или создайте новую', UserSelectDir, True) then
    begin
        WizardForm.DirEdit.Text:= UserSelectDir
        res:= CalcDirSize(UserSelectDir, '*', True)/(1024*1024);    //результат в Мб
        If res < 1000 then MsgBox(IntToStr(res)+ ' Mb', mbInformation, MB_OK) else
        MsgBox(FloatToStr(round(res/1024*1000)/1000)+ ' Gb', mbInformation, MB_OK)
    end;
End;
 
Procedure InitializeWizard;
Begin
    WizardForm.DirBrowseButton.OnClick:= @DirOnClick;
End;
Всего записей: 742 | Зарегистр. 27-09-2005 | Отправлено: 02:14 23-05-2007 | Исправлено: Victor_Dobrov, 15:12 23-05-2007
boss911



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Genri
 
Я что-то совсем запутался! Так правильно будет:

Код:
MinVersion=0,5.01.2600sp2

Повторюсь:

Цитата:
нужно поставить, чтоб инсталлятор не стал устанавливать, если ОС ниже XP SP2

Если не правильно, то напиши плиз как надо, что-то я плужу!
Всего записей: 3699 | Зарегистр. 29-01-2005 | Отправлено: 03:01 23-05-2007
GRom V

Full Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Люди подскажите пожалуйсто кто нить - КАК УБИТЬ не убиваемый процесс, например kav.exe ?
Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 07:22 23-05-2007
Chuvakstepan



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sero
Не работает твой скрипт, даже не компилится
Всего записей: 202 | Зарегистр. 29-01-2007 | Отправлено: 08:15 23-05-2007
Sampron

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто может помочь с этим вопросом: http://data.cod.ru/1027833290
Нужно форму сделать подвижной и сворачивание формы в панель задач при нажатии на кнопку Minimize.  
Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 12:33 23-05-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (25-09-2007 17:33): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru