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

Компьютерный форум 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

 

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


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

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


Уже закипел)) Вот такой простой вопрос. Есть exe файл, иконка не красивая)), хочу чтобы на рабочий стол выводился мой ярлык, с моим рисунком, но запускал он этот exe. Как реализовать? (в рестораторе не получилось поменять иконку)

P.S. вставил IconFilename: "{app}\icon.ico"; иконка появилась на ярлыке, но название ярлыка исчезло((

Последний раз редактировалось acer0072, 08-09-2014 в 15:52.


Отправлено: 14:00, 08-09-2014 | #1501



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

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


Аватара для kotyarko@fb

Старожил


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

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


Цитата acer0072:
Есть exe файл, иконка не красивая) »
Иконку екзешнику можно указать так:
Код: Выделить весь код
[Setup]
SetupIconFile=Icon_Name.ico
Создание ярлыка ещё нужно?

-------
http://forum.worldoftanks.ru/topic/1429925-/
Исходник моего установщика: https://bitbucket.org/Kotyarko_O/kmp


Отправлено: 15:52, 08-09-2014 | #1502


Аватара для Dodakaedr

Ветеран


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

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


Цитата acer0072:
Уже закипел)) Вот такой простой вопрос. Есть exe файл, иконка не красивая)), хочу чтобы на рабочий стол выводился мой ярлык, с моим рисунком, но запускал он этот exe. Как реализовать? (в рестораторе не получилось поменять иконку)

P.S. вставил IconFilename: "{app}\icon.ico"; иконка появилась на ярлыке, но название ярлыка исчезло((
В справке про секцию [ICON] прочтите. И покажите полностью вашу строчку иконки.

Отправлено: 15:56, 08-09-2014 | #1503


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


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

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


kotyarko@fb - exe не тот, что компилируется, а то что запускает приложение.

Dodakaedr
Цитата:
[Icons]
Name: "{commondesktop}\"; Filename: "{#MyAppExeName}"; Check: IconsCheck; IconFilename: "{app}\icon.ico";


Вот так получилось, что изображение поменялось, а название ярлыка - нету.

Последний раз редактировалось acer0072, 08-09-2014 в 16:32.


Отправлено: 16:02, 08-09-2014 | #1504


SHVtYW4=


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

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


Цитата acer0072:
а название ярлыка - нету. »
Код: Выделить весь код
[Icons]
Name: {commondesktop}\{#MyAppName}; Filename: {#MyAppExeName}; Check: IconsCheck; IconFilename: {app}\icon.ico;

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

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

Отправлено: 17:11, 08-09-2014 | #1505


Аватара для Dodakaedr

Ветеран


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

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


Цитата acer0072:
Вот так получилось, что изображение поменялось, а название ярлыка - нету. »
Поняли ошибку? Потому что вы его не указали...

-------
Inno Setup 5 Ultra Unicode

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

Отправлено: 17:49, 08-09-2014 | #1506


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


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

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


Да, всем спасибо за помощь.

Отправлено: 20:03, 08-09-2014 | #1507


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


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

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


Ребят, а не посмотрите код, всё ли правильно
Код: Выделить весь код
#define NeedSize "2100"
#define NeedInstallSize "2590"

[Setup]
OutputDir=.
AppName=аываваыв
AppVerName=ывпывамвапмаывп
DefaultDirName={pf}\dfsdgxfgf

[CustomMessages]
MBCaption=Мб.
GBCaption=Гб.
TBCaption=Тб.
TotalSpaceCaption=Всего места на диске:
FreeSpaceCaption=Доступно места на диске:
InstallSpaceCaption=Требуется места для установки:
NeedSpaceCaption=Требуется места на диске:

[Code_]
var
  DirPathLbl, TotalSpaceLbl, FreeSpaceLbl, NeedSpaceLbl, InstallSpaceLbl: TLabel;

//==========***Начало- Необходимое место для установки***==========//
function NumToStr(Float: Extended): String;
begin
  Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
  while (Result[Length(Result)] = '0')or((Result[Length(Result)] = '.')and(Pos('.', Result) > 0)) do
  SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result:= NumToStr(Float) + ExpandConstant(' {cm:MBCaption}') else
  if Float/1024 < 1024 then Result:= NumToStr(Float/1024) + ExpandConstant(' {cm:GBCaption}') else
  Result:= NumToStr(Float/(1024*1024))+CustomMessage('TBCaption');
end;

procedure GetFreeSpaceCaption(Sender: TObject);
var
  FreeMB, TotalMB: Cardinal;
begin
  DirPathLbl.Caption:= MinimizePathName(WizardForm.DirEdit.Text, DirPathLbl.Font, DirPathLbl.Width);
  GetSpaceOnDisk(ExtractFileDrive(WizardForm.DirEdit.Text), True, FreeMB, TotalMB);
  TotalSpaceLbl.Caption:= ExpandConstant('{cm:TotalSpaceCaption}')+MbOrTb(TotalMB);
  FreeSpaceLbl.Caption:= ExpandConstant('{cm:FreeSpaceCaption}')+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  if FreeMb < {#NeedInstallSize} then begin
    InstallSpaceLbl.Font.Color:= $0000ff; WizardForm.NextButton.Enabled:= False; end else begin
      InstallSpaceLbl.Font.Color:= $000000; WizardForm.NextButton.Enabled:= True;
  end;
end;
//==========***Конец- Необходимое место для установки***==========//

procedure InitializeWizard();
begin
  WizardForm.DirEdit.Visible:= False;
  WizardForm.DiskSpaceLabel.Visible:= False;

  DirPathLbl:= TLabel.Create(WizardForm);
  with DirPathLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(81), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Font.Name:= 'Arial';
    Font.Style:= [fsBold, fsItalic];
    Font.Size:= 9;
    Font.Color:= $ffffff;
    Transparent:= True;
  end;

  TotalSpaceLbl:= TLabel.Create(WizardForm);
  with TotalSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(128), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Transparent:= True;
  end;

  FreeSpaceLbl:= TLabel.Create(WizardForm);
  with FreeSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(144), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Color:= clNone;
    Transparent:= True;
  end;

  InstallSpacelbl:= TLabel.Create(WizardForm);
  with InstallSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(160), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Caption:= ExpandConstant('{cm:InstallSpaceCaption} ') + MbOrTb({#NeedInstallSize});
    Color:= clNone;
    Transparent:= True;
  end;

  NeedSpaceLbl:= TLabel.Create(WizardForm);
  with NeedSpaceLbl do begin
    Parent:= WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(176), ScaleX(348), ScaleY(14));
    AutoSize:= False;
    Caption:= ExpandConstant('{cm:NeedSpaceCaption} ') + MbOrTb({#NeedSize});
    Color:= clNone;
    Transparent:= True;
  end;
  WizardForm.DirEdit.OnChange:= @GetFreeSpaceCaption;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectDir: begin
      GetFreeSpaceCaption(WizardForm.DirEdit);
    end;
  end;
end;
Пришлось изрядно полазить по чужим скриптам, чтобы слепить это. Там путь установки прописываеться в лейбл и данные о винтах!!!

Отправлено: 00:47, 09-09-2014 | #1508


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


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

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


Ещё один вопросик. Вот кусок кода из скрипта

Цитата:
[Languages]
Name: "en"; MessagesFile: "compiler:Default.isl";
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl";

[Run]
Filename: "{app}\ConfigLanguageFromSetup.exe"; Parameters: "DriverSearch {language}"; MinVersion: 0.0,5.0;
Тут привязка языка интерфейса программы, я так понял, что к языку самого установщика. (взят с оригинального кода установщика), т.е. при выборе английского языка установки, ставится англ.язык и т.к.

Вопрос: как привязать к чекбоксам, чтобы выбирался нужный язык (русский и английский)

Последний раз редактировалось acer0072, 09-09-2014 в 12:04.


Отправлено: 10:12, 09-09-2014 | #1509


Аватара для kotyarko@fb

Старожил


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

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


Цитата Nightwishh:
Ребят, а не посмотрите код, всё ли правильно »
На вид - да. Вы просто решили спросить или у вас там что-то не работает и вы обратились за помощью?

Цитата acer0072:
Вопрос: как привязать к чекбоксам, чтобы выбирался нужный язык (русский и английский) »
Имеется ввиду язык интерфейса установщика?
А так, то {language} - это константа выбранного языка. То есть, если выбран язык "ru" - на месте константы подставится ru.

-------
http://forum.worldoftanks.ru/topic/1429925-/
Исходник моего установщика: https://bitbucket.org/Kotyarko_O/kmp

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

Отправлено: 13:11, 09-09-2014 | #1510



Компьютерный форум 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




 
Переход