Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

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

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

Ветеран


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


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

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


Изменения
Автор: jameszero
Дата: 08-11-2010
Описание: тема закрыта
Лимит страниц.
Тема закрыта.
Продолжение по ссылке Скрипты Inno Setup. Помощь и советы [часть 3]




Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме
Inno Setup. Прочие вопросы.


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

  • Inno Script Generator - ещё один редактор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
    Последняя версия: 1.0.3.1 [23.03.2008] - Скачать;

  • Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы. Официальный сайт - недоступен.
    Последняя версия: 2.0.8 [12.11.2006] - Страница с зеркалами;

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

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

  • InnoSetup Script Joiner - Программа для объединения нескольких скриптов InnoSetup в один;

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


Ссылка на архив предыдущей темы (также можно скачать из вложения)

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 22:06, 23-08-2009

 

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


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

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


Код: Выделить весь код
Components]
Name: g0; Description: Half-Life; Flags: fixed disablenouninstallwarning; Types: custom full
Name: g1; Description: Rcochet; Types: full custom; Flags: disablenouninstallwarning checkablealone

[Files]

Source: "C:\Documents and Settings\Админ\Мои документы\Downloads\s\zepsa\*"; DestDir: "{app}\half-life"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0
Source: "C:\Documents and Settings\Админ\Мои документы\Downloads\s\ricochet\*"; DestDir: "{app}\half-life\ricochet"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g1
Как мне сделать, чтобы g3 компонент если выбрать, он заменял определённые файлы g1. Я пробЫвал чтобы g3 устанавливался в ...\valve\models, но он говорит что-то про директорию и выдаёт ошибку.

Мне сказали, что вроде надо батник как-то писать?

Отправлено: 09:06, 20-02-2010 | #1311



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

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


Ветеран


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

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


Цитата semiono:
Нужно найти файл »
Пример поиска по маске
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
var
  // задаём переменную глобально, для всего скрипта
  Mask: string;

procedure RunMyProg(FileNeme: string);
begin
  // здесь что нибудь делаем с найденым файлом
  MsgBox(FileNeme, mbInformation, MB_OK );
end;

function FindFile(Path: string): Boolean;
var
  FSR, DSR: TFindRec;
  FindResult: Boolean;
begin
  Result:= False;
  if Path[Length(Path)] <> '\' then Path:= Path + '\';
  FindResult:= FindFirst(Path + Mask, FSR);
  try
    while FindResult do
      begin
        if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          begin
            RunMyProg(Path + FSR.Name);
            Result:= True;
            Exit;
          end;
        FindResult:= FindNext(FSR);
      end;
    FindResult:= FindFirst(Path + '*.*', DSR);
    while FindResult do
      begin
        if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and
          not ((DSR.Name = '.') or (DSR.Name = '..')) then
         FindFile(Path + DSR.Name);
        FindResult:= FindNext(DSR);
      end;
  finally
    FindClose(FSR);
    FindClose(DSR);
  end;
end;

function InitializeSetup(): Boolean;
var
  i: Integer;
  ArrayOfMask: TArrayOfString;
  StartFolder: string;
begin
  StartFolder:= ExpandConstant('{pf}\Inno Setup 5'); // задаём папку откуда начинать поиск
  ArrayOfMask:= ['*n*.txt', 'R*.txt', '*m*.txt']; // заполняем массив масок для поиска
  for i:= 0 to GetArrayLength(ArrayOfMask)-1 do // перебираем весь масив масок
    begin
      Mask:= ArrayOfMask[i];
      if FindFile(StartFolder) then Break;
    end;
end;


Цитата vint56:
не подскажеш как на второй процесбар наложить текстуру »
честно говоря не знаю.

Цитата Vengeance:
чтобы g3 компонент если выбрать, он заменял определённые файлы g1 »
Поподробней раскажите.
Цитата Vengeance:
но он говорит что-то про директорию и выдаёт ошибку. »
Покажите пример как делаете.
Цитата Vengeance:
Мне сказали, что вроде надо батник как-то писать? »
Зачем, всё можно сделать в секции [Сode]

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

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

Отправлено: 11:04, 20-02-2010 | #1312


Аватара для Молодой

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


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

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


Всем доброго времени суток, как известно файлы сжимаемые freearcom, сжимаються в архив с расширением .arc, но в репаках игр файлы с расширением .bin. как это сделать так что бы распаковывалась игра, потому что после того как перевожу в другой фармат меняеться расширение, и с помошью скрипта не распаковываеться! Надеюсь на помощь.

-------
Да поможет мне CTRL + ALT + DELETE


Отправлено: 11:44, 20-02-2010 | #1313


Старожил


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

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


Молодой, надо в скрипте менять тоже на .bin
как известно файлы сжимаемые freearcom, сжимаються в архив с расширением.arc поменяй на .bin

Отправлено: 12:15, 20-02-2010 | #1314


Аватара для Молодой

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


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

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


vint56, Спасибо попробуем!

-------
Да поможет мне CTRL + ALT + DELETE


Отправлено: 12:47, 20-02-2010 | #1315


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


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

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


Подскажите как сменить цвет всего шрифта во всех пунктах меню на черный ?


Отправлено: 13:06, 20-02-2010 | #1316


Старожил


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

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


D_Rix,
DirEdit.Font.Color:= Clblack;
GroupEdit.Font.Color:= Clblack;

Отправлено: 13:29, 20-02-2010 | #1317


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


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

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


vint56,
Спасибо.
Остался один вопросик:
Как сделать чтобы посде распаковки data1.ark он начал распаковывать data2.ark и т.д.
Как правильно дописать это ?

Код: Выделить весь код
//--- указываем расположение архивов FreeArc; 
Archives = '{src}\data.arc';

Отправлено: 15:09, 20-02-2010 | #1318


Старожил


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

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


D_Rix,
Archives = '{src}\*.arc'; // указываем расположение архивов FreeArc;
* означает data1.ark и data2.ark и т.д. он распакует

Отправлено: 16:07, 20-02-2010 | #1319


Аватара для semiono

Ветеран


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

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


Цитата Serega:
Пример поиска по маске »
Warning Line 57, Column 10:[hint] variable 'Result' never used

тут проблема:
function InitializeSetup(): Boolean;

но я не могу додумать, помоги?

у меня даже MsgBox не открылся

----
Это мне не надо:
[Languages]
; Name: rus; MessagesFile: compiler:Languages\Russian.isl

-------
Полезное сообщение


Отправлено: 21:09, 20-02-2010 | #1320



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты Inno Setup. Помощь и советы [часть 3] Serega Автоматическая установка приложений 3755 26-10-2011 17:58
[архив] Inno Setup .:[все вопросы]:. Mchik Автоматическая установка приложений 1329 23-08-2009 20:13
[архив - Часть 2] AutoIt скрипты Vadikan AutoIt 985 21-01-2008 09:58
Скрипты Inno Setup Compiler QAZAK Автоматическая установка приложений 7 15-01-2007 17:59
[Архив - Часть 1.1] AutoIt скрипты EgOrus AutoIt 335 04-02-2006 16:58




 
Переход