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

[neorom]

Просьба одредактироваить скрипт з єтого

зделать так

и разнинє папки з файлами для инсталяции

Мой скрипт (програма инсталятор должна сама определять какиє програми инстальовани и стояли там видпавиднеє галочки в окне исталяции)



[Setup]

AppName=Microsoft® Windows® XP Ukrainian User Interface Pack

AppVerName=Microsoft® Windows® XP Ukrainian Multilingual User Interface Pack

AppPublisher=Music Mix Studio© & Records Company® 2006-2008

AppPublisherURL=

http://winxp.org.ua

AppSupportURL=

http://winxp.org.ua

AppUpdatesURL=

http://winxp.org.ua

CreateAppDir=no

OutputBaseFilename=setup1

Compression=lzma

Uninstallable=no

PrivilegesRequired=none

DisableProgramGroupPage=yes

LicenseFile=embedded\License.txt

InfoBeforeFile=embedded\InfoBefore.txt

InfoAfterFile=embedded\InfoAfter.txt

WizardImageFile=embedded\WizardImage.bmp

WizardSmallImageFile=embedded\WizardSmallImage.bmp



[Files]

Source: {tmp}\*.*; DestDir: {tmp}\mui; Flags: ignoreversion



[Run]

Filename: {tmp}\mui\muisetup_ru_sp2.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp2comp; Tasks: sp2

Filename: {tmp}\mui\muisetup_ru_sp3.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp3comp; Tasks: sp3

Filename: {tmp}\mui\muisetup_ru_sp2.exe; Components: sp2comp; Tasks: sp2m

Filename: {tmp}\mui\muisetup_ru_sp3.exe; Components: sp3comp; Tasks: sp3m

Filename: {tmp}\mui\wmp_8_mui.cmd; Tasks: mp8

Filename: {tmp}\mui\wmp_9_mui.cmd; Tasks: mp9

Filename: {tmp}\mui\wmp_10_mui.cmd; Tasks: mp10

Filename: {tmp}\mui\wmp_11_mui.cmd; Tasks: mp11



[Tasks]

Name: sp2; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp2comp

Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp

Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp

Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp

Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача

Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача

Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача

Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача



[Components]

Name: sp2comp; Description: Service Pack 2; Types: sp2os

Name: sp3comp; Description: Service Pack 3; Types: sp3os



[Types]

Name: sp3os; Description: Service Pack 3

Name: sp2os; Description: Service Pack 2



[Languages]

Name: ukrainian; MessagesFile: compiler:Languages\Ukrainian.isl

[saurn]

neorom,



С привязкой сообщений к нескольким языкам:





Код:

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

[Languages]
//Здесь указываете языки инсталятора
Name: russian; MessagesFile: compiler:Languages\Russian.isl
Name: english; MessagesFile: compiler:Languages\English.isl
[Tasks]
Name: linkdesk; Description: {cm:MakeLinkDesk} //Здесь константы сообщений, которые вы изначально задаете в секции CustomMessages
Name: linkstartmenu; Description: {cm:MakeLinkStartMenu}
[CustomMessages]
//Здесь вариации сообщений для каждого языка
russian.MakeLinkDesk=Ярлык на Рабочем столе
russian.MakeLinkStartMenu=Ярлык в меню "Пуск"
english.MakeLinkDesk=Create link on Desktop
english.MakeLinkStartMenu=Create link on Start Menu

Без привязки:





Код:

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

[Tasks]
Name: linkdesk; Description: Ярлык на Рабочем столе
Name: linkstartmenu; Description: Ярлык в меню "Пуск"

[saurn]

Прошу

http://us.ua/1060318/

Компиляция не идьот , пишет

[neorom]

[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}

Name: startmenuicon; Description: Create an additional start menu icon; GroupDescription: {cm:AdditionalIcons}

Вот єта чая часть скрипта , в третем рядке надо исправить так что би информация ишла из файла язика а не из [CustomMessages]

[habib2302]

Всем привет. Господа знатоки, подскажите, если не сложно. Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:

if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно?




Цитата habib2302:



дай скрипт

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

На.

читать дальше »

Код:

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

#include "botva2.iss"
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: botva2.dll; Flags: dontcopy;
Source: CallbackCtrl.dll; Flags: dontcopy;
Source: 1.png; Flags: dontcopy;
[ Code]
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
if not FileExists(ExpandConstant('{tmp}\1.png')) then ExtractTemporaryFile('1.png');
  Result:=True;
end;
procedure InitializeWizard;
begin
  ImgLoad(WizardForm.WelcomeLabel2.Handle, ExpandConstant('{tmp}\1.png'), ScaleX(110), ScaleY(70), ScaleX(64), ScaleY(64), True, True);
  ImgApplyChanges(WizardForm.WelcomeLabel2.Handle);
end;
procedure DeinitializeSetup;
begin
  gdipShutdown;
end;

Библиотеку botva2 от

htuos

качай

тут

, ну и разбирайся дальше что да как.




Цитата neorom:



Памагите созтать такой скрипт

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

Тоже самое, через botva2 можно реализовать (картинки вставить и так далее)... Что касается рамок - это просто Bevel или скорей всего таже самая картика в формате .png

[Tco 03]

del

[DragonTander@fb]

Цитата Tco 03:



Что касается рамок - это просто Bevel

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

нет, это самый натуральный TNewGroupBox на этом скрине

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

аж три раза! Удобная штука. Посмотри в дизайнере, если интересно


Цитата Tco 03:



Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:

if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно?

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

даже не знаю

MajorVersion = 5 есть и у винды 2000 и 2003 а они старее XP. Короче вот код на определение версии винды. Не стал пользоваться встроенной

procedure GetWindowsVersionEx(var Version: TWindowsVersion); тк она сама использует вин апишную GetVersionEx + ещё какие-то процедуры/функции для заполнения нижних частей структуры TWindowsVersion (инфа о сервиспаке и тп)

короче если нужна чисто версия винды так будет быстрее, при работе напрямую с GetVersionEx(...) :

читать дальше »

Код:

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

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
type
  WindowsVersion = (Windows2000, Windows2003, WindowsXP, WindowsVista, Windows7, Windows8);
  _OSVERSIONINFO = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of Char;
  end;
function GetVersionEx(var lpVersionInformation: _OSVERSIONINFO): BOOL; external 'GetVersionEx{#A}@kernel32.dll stdcall';
function GetWindowsVersion(): WindowsVersion;
var
  VersionInformation: _OSVERSIONINFO;
begin
  VersionInformation.dwOSVersionInfoSize := SizeOf(VersionInformation);
  if not GetVersionEx(VersionInformation) then Exit;
  case VersionInformation.DwMajorVersion of
    5: case VersionInformation.DwMinorVersion of
      0: Result := Windows2000;
      1: Result := WindowsXP;
      2: Result := Windows2003;
    end;
    6: case VersionInformation.DwMinorVersion of
      0: Result := WindowsVista;
      1: Result := Windows7;
      2: Result := Windows8;
    end;
  end;
end;
procedure InitializeWizard();
begin
  if GetWindowsVersion = Windows7 then MsgBox('Windows7', mbInformation, MB_OK);
  if GetWindowsVersion = WindowsXP then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK);
end;

Цитата Tco 03:



Johny777 не могли бы Вы его, пожалуйста, отрехтовать

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

в шапке уже есть пример. Там правда можно убрать каллбэк библиотеку, тк CallBackAddr('имя процедуры/функции') встроенная в расширенную инно тоже вернёт адрес нужной процедуры/функции. Как это сделать есть у меня в примере да и много где ещё. Я б сам сделал, но времени у меня уже нет и думаю появится оно у меня очень нескоро

[neorom]

Памагите созтать такой скрипт. Фото -

[alert30]

neorom, мы не можем делать готовый код, а мы его дополняем или помогаем.

[neorom]

помогите сделать так чтобы в инсталяторе менялись картиники ну хотя бы две

у меня так:

первая картинка

предпоследняя картинка