[audiofeel]

здравствуйте, помогите - допустим (только допустим) есть фаилы общий размер которых превышает DVD5, нужно что бы они копировались как внешние (Flags: external overwritereadonly ignoreversion). а теперь сам вопрос - как заставить этот Inno Setup что бы он попросил поменять, ну или перевернуть диск

[Tco 03]

audiofeel
Вот, когда-то, где-то нашёл вот такой скрипт.

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

Код:

Скрипт для установки архивов, записанных на двух DVD. На примере показано извлечение из 7z SFX-архивов.

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
OutputBaseFilename=setup
Compression=none
OutputDir=C:\Output
SolidCompression=no

[Files]
;На диске рядом с инсталлятором размещаем папку EmptyFiles, в которую помещаем "файлы-пустышки" игры.
;Сначала выполняется первый архив (последовательность AfterInstall должна быть такой)
Source: "{src}\EmptyFiles\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external; AfterInstall: InstallFirstArchive
;А затем второй
Source: "{src}\EmptyFiles\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs external; AfterInstall: CheckSelectedDisk

[ Code]
//На странице установки отключаем подтверждающее сообщение (чтобы не было проблем с откатом)
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:=True;
If CurPage=12 then
begin
Confirm:=False;
end;
end;

//Устанавливаем первый 7z SFX (Pack1.exe) архив, находящийся на первом диске (рядом с инсталлятором)
//Никаких сообщений об ошибках и т.д. не применяем, т.к. вся ответственность должна лежать на распространителе
procedure InstallFirstArchive;
var
res:Integer;
s,s1:string;
begin
s:=ExpandConstant('{app}');
s1:=ExpandConstant('{src}')+'\Pack1.exe';
Exec(s1, '-y -o"'+ s + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, Res);
end;

//Затем выводим соответствующее сообщение для вставки второго диска со вторым архивом
procedure CheckSelectedDisk;
var
res:Integer;
s,s2:string;
Confirm: Boolean;
begin
s:=ExpandConstant('{app}');
s2:=ExpandConstant('{src}')+'\Pack2.exe';
//Если второго архива рядом нету (мало ли, в будущем игра будет записана на двуслойном диске)
if not Exec(s2, '-y -o"'+ s + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, Res) then
//то тогда выводим сообщение
case MsgBox('Для дальнейшей установки требуется файл '''+ s2 +'''!'#13#13 +
'Вставьте второй DVD, содержащий архив, и нажмите "OK".' #13#13 +
'Нажмите "Отмена", чтобы прекратить дальнейшую установку.', mbInformation, MB_OKCANCEL)
of IDCANCEL:
begin
//Выполняем откат действий при отмене
Confirm:=False;
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end
IDOK:
begin
CheckSelectedDisk;
end;
end;
end;

[saurn]

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; Flags: exclusive;
Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp; Flags: exclusive;
Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp; Flags: exclusive unchecked;
Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp; Flags: exclusive unchecked;
Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача; Flags: exclusive unchecked;
Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача; Flags: exclusive unchecked;
Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача; Flags: exclusive;
Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача; Flags: exclusive unchecked;

[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;

[neorom]

saurn спасибо тебе, все за роботало !!!

[Tco 03]

Господа, возможно ли при инсталляции программы удалить ключ реестра созданный другой программой? Ну что-то типа [InstallDelete] или каким-нибудь другим способом

[Mailchik]

Tco 03,

Код:

function RegDeleteKeyIncludingSubkeys(const RootKey: Integer; 
  const SubkeyName: String): Boolean; //-----удаляет ключ реестра включая подключи
function RegDeleteKeyIfEmpty(const RootKey: Integer; 
  const SubkeyName: String): Boolean; //-----удаляет ключ реестра, если он пустой
function RegDeleteValue(const RootKey: Integer; 
  const SubKeyName, ValueName: String): Boolean; //-----удаляет значение ключа реестра

[neorom]

Как мне зделать скрипт чтоб после компиляции било єто Просьба привести пример скрипта.

[saurn]

Tco 03
Например, на этапе установки, так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    if RegKeyExists(HKLM, 'SOFTWARE\MyProgram') then  //поиск ключа
    begin
      RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\MyProgram'); //если ключ найден, удаление ключа и всего, что в нем есть.
    end;
  end;
end;

[Tco 03]

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

Это архивы созданные не Inno Setup, а другими архиваторами, например FreeArc

[bosenkov5]

alert30, нет у меня есть уже скрипт и я не хотел бы его менять