[Fortress1]

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

Отредактируйте свой и добавьте туда данные из того, что выдаст вам GameScript Generator, и будет вам счастье

[El Sanchez]

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

Tco 03, через секцию [Registry] просто:

Код:

[Registry]
Root: HKLM; Subkey: SOFTWARE\My Company; Flags: deletekey dontcreatekey

[audiofeel]

Tco 03, Этот пример у меня есть, я его пробовал (у меня без 7Z) = фаилы копируются по два раза - как исправить? (у меня на каждом диске лежит папка с одинаковым названием - вот из этих папок мне нужно скопировать все фаилы в папку с продуктом (изменить название папки в {src}\ нельзя)) а они копируются по два раза (и это на первом "диске" - второй диск эмулировать не стал) но подсунул фаилы после запроса второго "архива" и ноль эмоций

[Tco 03]

audiofeel

у меня на каждом диске лежит папка с одинаковым названием »

Если папки одинаковые, тогда делайте проверку на присутствие файлов...
Вот набросал пример (с разными папками) какая разница с какими именами папки на диске, они же копируются в заданный каталог, где указывается что и куда скопировать.

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

Код:

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

[Files]
Source: "{src}\Folder 1\*"; DestDir: "{app}"; Flags: external ignoreversion recursesubdirs createallsubdirs;
Source: "{src}\Folder 2\*"; DestDir: "{app}"; Flags: external ignoreversion recursesubdirs createallsubdirs; BeforeInstall: CopySecondFolder;

[ Code]
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
  Cancel:= True;
if CurPage = 12 then
begin
  Confirm:= False;
end;
end;

procedure CopySecondFolder;
var
 Confirm: Boolean;
begin
if not DirExists(ExpandConstant('{src}\Folder 2')) then
case MsgBox('Для дальнейшей установки необходм второй диск!'#13#13 +
  'Вставьте второй DVD и нажмите "OK".' #13#13 +
  'Нажмите "Отмена", чтобы прекратить дальнейшую установку.', mbInformation, MB_OKCANCEL)
of IDCANCEL:
begin
  Confirm:= False;
  WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end
  IDOK:
begin
  CopySecondFolder;
end;
end;
end;

[insombia]

del

[audiofeel]

Tco 03, после запроса диска ложу фаилы со второго диска = ноль эмоций, молчание

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

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

[Files]
Source: {src}\GameFiles\*; DestDir: {app}; Flags: external ignoreversion

Source: {src}\GameFiles\GAME3.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\GameFiles\GAME5.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\GameFiles\GAME6.DAT; DestDir: {app}; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\Docs\GB\Eula.rtf; DestDir: {app}\Docs; Flags: external ignoreversion; BeforeInstall: CopySecondFolder
Source: {src}\Docs\GB\Readme.rtf; DestDir: {app}\Docs; Flags: external ignoreversion; BeforeInstall: CopySecondFolder

//[ Code]
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:= True;
if CurPage = 12 then
begin
Confirm:= False;
end;
end;

procedure CopySecondFolder;
var
Confirm: Boolean;
begin
if not DirExists(ExpandConstant('{src}\GameFiles\GAME3.DAT')) then
case MsgBox('Äëÿ äàëüíåéøåé óñòàíîâêè íåîáõîäèì âòîðîé äèñê!'#13#13 +
'Âñòàâüòå âòîðîé DVD è íàæìèòå "OK".' #13#13 +
'Íàæìèòå "Îòìåíà", ÷òîáû ïðåêðàòèòü äàëüíåéøóþ óñòàíîâêó.', mbInformation, MB_OKCANCEL)
of IDCANCEL:
begin
Confirm:= False;
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end
IDOK:
begin
CopySecondFolder;
end;
end;
end;

[saurn]

audiofeel

Если ищите на втором диске не папку, а файл, то вот эту строку в скрипте:

Код:

if not DirExists(ExpandConstant('{src}\GameFiles\GAME3.DAT')) then

Замените на эту:

Код:

if not FileExists(ExpandConstant('{src}\GameFiles\GAME3.DAT')) then

Ну и потому что файлы внешние анимация прогресс бара не будет отображатся , как положено. Тоесть при копирование с первого диска прогресс будет заполнятся равномерно, когда дойдет до 100, вывалится запрос на другой диск, и после вставки диска прогресс будет стоять на месте на 100%, но при этом файлы будут копироватся. Возможно, знающие люди смогут подсказать, как всё это правильно релизовать.

[audiofeel]

Ну и потому что файлы внешние анимация прогресс бара не будет отображатся , как положено. Тоесть при копирование с первого диска прогресс будет заполнятся равномерно, когда дойдет до 100, вывалится запрос на другой диск, и после вставки диска прогресс будет стоять на месте на 100%, но при этом файлы будут копироватся. »

А если подставить размеры фаилов при помощи "ExternalSize" но тогда вопрос какой размер лучше вписывать, ( 1 = размер: 2,25KB(2 311 байт) 2 = На диске 4,00 КВ(4 096 байт)

[alert30]

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

Надо снять галочку "Компилировать через загрузчик" (как-то так) через утилиты ISTool, или Inno Setup Script Studio или InnoIDE.

[Dark_Delphin]

Подскажите, пожалуйста, как инасталлятору сделать стандартный скин:

http://i51.fastpic.ru/big/2013/0315/...e36a2a219f.png