[4o_kavo]

Всем привет.
Нужна помощь для создания Setup файла с помощью программы Inno Setup, кто умеет обращаться с этой программой, будьте добры, отпишитесь мне в ЛС или в теме, я займу у вас не более 5 минут.

[K.A.V.]

А выше тема вам чем не понравилась? Скрипты Inno Setup. Помощь и советы [часть 8]

[Макс_Скоробогатов@vk]

Помогите, уже 3 дня голову ломаю…
Как установить скин??? У меня Inno Setup Compiler 5.5.1.ee2(u)
[Files]
Source: cybertron.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy

[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external ‘LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external ‘UnloadSkin@files:isskin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile(‘cybertron.cjstyles’);
LoadSkin(ExpandConstant(‘{tmp}\cybertron.cjstyles’), »);
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;
Выдает ошибку на строке
procedure DeinitializeSetup();
собсна ошибка
Duplicate identifier «DEINITIALIZESETUP»

сколько не пробЫвал найти дубликат не где не чего подобного не вижу!

[Nordek]

Как установить скин??? »

Код:

#define A = (Defined UNICODE) ? "W" : "A"

[Files]
Source: cybertron.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: ISSkin{#A}.dll; DestDir: {tmp}; Flags: dontcopy

[Code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin{#A}.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin{#A}.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('cybertron.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\cybertron.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
  UnloadSkin();
end;

[Nordek]

Как сделать зависимость инсталяции компонентов от версии системы »

Пример:

Код:

[Components]
Name: "cp"; Description: "Компонент"; MinVersion: 0,5.0; OnlyBelowVersion: 0,6.0

Далее: #1974, #1977, #1809, #1816.

Скрытый текст

MinVersion: Минимальная версия Windows, для которой вхождение будет обработано
OnlyBelowVersion: Противоположно MinVersion. Определяет минимальную версию Windows, для которой вхождение не будет обработано

Код:

4.0,        - Windows 95

4.1,        - Windows 98

4.9,        - Windows ME

0,4.0       - Windows NT 4.0
0,4.0sp1    - Windows NT 4.0 Service Pack 1
0,4.0sp2    - Windows NT 4.0 Service Pack 2
0,4.0sp3    - Windows NT 4.0 Service Pack 3
0,4.0sp4    - Windows NT 4.0 Service Pack 4
0,4.0sp5    - Windows NT 4.0 Service Pack 5
0,4.0sp6    - Windows NT 4.0 Service Pack 6

0,5.0       - Windows 2000
0,5.0sp1    - Windows 2000 Service Pack 1
0,5.0sp2    - Windows 2000 Service Pack 2
0,5.0sp3    - Windows 2000 Service Pack 3
0,5.0sp4    - Windows 2000 Service Pack 4

0,5.01      - Windows XP/Windows XP 64-Bit Edition Version 2002 (Itanium)
0,5.01sp1   - Windows XP Service Pack 1
0,5.01sp2   - Windows XP Service Pack 2
0,5.01sp3   - Windows XP Service Pack 3
0,5.02      - Windows XP x64 Edition (AMD/EM64T)
0,5.01      - Windows XP 64-Bit Edition Version 2002 (Itanium)
0,5.02      - Windows XP 64-Bit Edition Version 2003 (Itanium)

0,6.0       - Windows Vista
0,6.0sp1    - Windows Vista Service Pack 1
0,6.0sp2    - Windows Vista Service Pack 2

0,6.1       - Windows 7
0,6.1sp1    - Windows 7 Service Pack 1

0,5.02      - Windows Server 2003
0,5.02sp1   - Windows Server 2003 Service Pack 1
0,5.02sp2   - Windows Server 2003 Service Pack 2
0,5.02      - Windows Server 2003 R2

0,6.0       - Windows Server 2008
0,6.1       - Windows Server 2008 R2

0,6.2       - Windows 8

0,6.3       - Windows 8.1

0,6.4       - Windows 10

Примечание:
В списке могут попадаться одинаковые значения, например: для Windows Vista: 0,6.0; для Windows Server 2008: 0,6.0 - это не опечатка, 0,6.0 равнозначен как для Windows Vista так для Windows Server 2008.
По этому, достаточно один раз выставить значение 0,6.0 - отработает как для Windows Vista так для Windows Server 2008.

Значения могут применяться как для MinVersion, так для OnlyBelowVersion.

[Dodakaedr]

MinVersion: Минимальная версия Windows, для которой вхождение будет обработано OnlyBelowVersion: Противоположно MinVersion. Определяет минимальную версию Windows, для которой вхождение не будет обработано ....»

Для секции Code имеется такой список?

[maraby]

Nordek, спасибо огромное! На прошлой неделе сделала что-то такое. Не знаю, насколько изящно, но работает

Версии Винды и установка MS SQL 2008/ 2012

Код:

 begin
    GetWindowsVersionEx(Version);

  // On Windows < 6.0
  if (Version.Major < 6) then begin
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2008] := True;
      TypSerweraCheckListBox.Checked[IndexSerwera2008] := True;
      
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2012] := False;
      TypSerweraCheckListBox.Checked[IndexSerwera2012] := False;
   
  end 

  // Windows 6.0 || 6.1
  else if (Version.Major = 6) and (Version.Minor >= 0)
          and (Version.Minor <= 1)
  then  begin
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2008] := True;
      TypSerweraCheckListBox.Checked[IndexSerwera2008] := True;
      
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2012] := True;
      TypSerweraCheckListBox.Checked[IndexSerwera2012] := False;
  end 

  else begin
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2008] := False;
      TypSerweraCheckListBox.Checked[IndexSerwera2008] := False;
      
      TypSerweraCheckListBox.ItemEnabled[IndexSerwera2012] := True;
      TypSerweraCheckListBox.Checked[IndexSerwera2012] := True;
  end
  end;

А есть еще один вопрос: как можно получить список инстанций MS SQL? Даже не знаю, как и что в гугле спрашивать...

[Николай_Николаич@vk]

Здравствуйте.
Как сделать так, чтобы при установке в файл (который уже есть на диске) добавлялись строчки которые указаны в инсталяторе.

[Dodakaedr]

Как сделать так, чтобы при установке в файл (который уже есть на диске) добавлялись строчки которые указаны в инсталяторе. »

Типа такого?

Код:

[setup]
appname=app
appvername=app 1.0
DefaultDirName={pf}\app

[files]
Source: "MYPROG.EXE"; DestDir: "{app}"; BeforeInstall: "Changestring"; Flags: ignoreversion

[Code]
procedure Changestring;
begin
  if FileExists(ExpandConstant('{app}\MYPROG.EXE')) then
    RenameFile(ExpandConstant('{app}\MYPROG.EXE'), ExpandConstant('{app}\MYPROG_текст.EXE_или здесь что-то'));
end;

[Николай_Николаич@vk]

Типа такого? Код: [setup] appname=app appvername=app 1.0 DefaultDirName={pf}\app [files] Source: "MYPROG.EXE"; DestDir: "{app}"; BeforeInstall: "Changestring"; Flags: ignoreversion [code] procedure Changestring; begin if FileExists(ExpandConstant('{app}\MYPROG.EXE')) then RenameFile(ExpandConstant('{app}\MYPROG.EXE'), ExpandConstant('{app}\MYPROG_текст.EXE_или здесь что-то')); end; ------- »

Нет.
К примеру в пути game/mods/01/ есть файл file.cti. При установке в папку mods/01/ установщик дописывал бы в файл file.cti пару строчек которые указываешь в скрипте.