[user_123]

Прочитал в руководствах по Inno Setup о двух различных методах защиты инсталлятора от "вскрытия". 1. Автоматически заполняется поле ввода пароля. 2. Поле ввода пароля не заполняется вообще, а в функции проверки пароля пишем: Код: Result:= True Первый метод я освоил и уже применял на практике... Но второй меня удивил... В руководстве, в котором я о нём прочёл, он назван "Невзламываемый экзешник". Понятно, что раз поле ввода пароля не заполняется, значит и "вынуть" этот самый пароль не от куда... Хочу узнать у опытных программистов, какой из этих двух методов надёжнее... а так же, что именно так хорошо защищает второй метод: запакованный контент или исходник, или и то и другое?

И ещё 1 вопрос, связанный с защитой инсталлятора...
Если зашифровать инсталлятор ([setup] Encryption=Yes), то возникают проблемы при использовании дополнительных dll ([Files] Flags: dontcopy).
Насколько хорошо защищён инсталлятор (в т.ч. его исходник) если использовать пароль без шифрования?

Подскажите, как использовать доп. библиотеки вместе с шифрованием, как их извлекать после подтверждения пароля (но до распаковки основных файлов)...

[semiono]

Столкнулся с такой трудностью:

Код:

DefaultDirName={reg:HKLM32\Software\test,ID|{cf}\{{9EA325EA-2012-4EFD-83AA-1EF32414E39F}}

Данный код создаёт папку: {9EA325EA-2012-4EFD-83AA-1EF32414E39F}} в {cf}\

Вообщем выход нашёл такой:

Код:

DefaultDirName={reg:HKLM32\Software\VST,PID|{cf}\{code:CLSID}}

[код]
function CLSID(Param: String): String;
begin
  Result := ExpandConstant('{{9EA325EA-2012-4EFD-83AA-1EF32414E39F}');
end;

Так я решил проблему с квотированием.

[semiono]

Опять загвоздка новая! Нужно в реестре перевернуть слеш...

"InstallDir" = D:\la-la-la
заменить на
"InstallDir" = D:/la-la-la/

Как это можно зделать? Слеш в конце обязателен!
Длина пути и вложенность директорий разумеется неопределены и могут быть разными.

----
Ну ежели в InnoSetup нету api ? Тогда я написал пару строк Aut2Exe zzz.au3 для [Run]

Код:

RegWrite("HKCU\Software\Nexus", "ContentPath", "REG_SZ", StringRegExpReplace( RegRead("HKCU\Software\Nexus", "ContentPath"), "\\", "/") & "/")

Но InnoSetup хотелось бы всё же тоже узнать. ??

[serg aka lain]

Но InnoSetup хотелось бы всё же тоже узнать. ?? »

Можно так

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  S: String;
begin
  if CurStep = ssPostInstall then
  begin
    S := AddBackSlash(ExpandConstant('{app}'));
    StringChangeEx(S, '\', '/', True);
    RegWriteStringValue(HKLM, 'Software\My Company\My Program', 'InstallDir', S);
  end;
end;

[svensoft]

YURSHAT, скажи пожалуйста какой параметр нужно указать при загрузке скина, чтобы рамка скина была снаружи ?.. У меня при загрузке скина рамка вставляется внутрь WizardForm , тем самым сдвигая фон вместе со всем находящимся на нем и мне приходится размеры WizardForm подгонять вручную, т.е. фоновый рисунок предположим 790*533 , при этом размеры WizardForm приходится вручную корректировать - ровно на рамку больше 793*563 ..

[МИШАНЧИК]

Sotonisto, спасибо.

Подскажите пожалуйста, я сделал на финишной странице чекбокс, а как сделать чтоб он открывал ReadMe.txt находящийся в {app}? »

Код: [Run] Filename: {app}\ReadMe.txt; Flags: shellexec postinstall skipifsilent »

Ты примерно так хотел? »

Только я хотел не из [Run], а из секции [_Code]
Помогите пожалуйста, кто знает как это сделать.

[Serega]

Может, кто- нибудь знает какой код надо ввести, чтобы на любой диск при её установке каталог был Rockstar Games\GTA »

Пример

Код:

[Setup]
AppName=Rockstar Games
AppVerName=Rockstar Games v 1.5
DefaultDirName={pf}\Rockstar Games\GTA
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
function LastPos(symbol, str: string): Integer;
var
  i: Integer;
begin
  for i:= Length(str) downto 1 do
    if str[i] = symbol then Break;
  Result:= i;
end;

procedure DirEditChange(Sender: TObject);
var
  n: Integer;
  s: string;
begin
  n:= LastPos('\', WizardForm.DirEdit.Text);
  s:= Copy(WizardForm.DirEdit.Text, 1, n);
  if Pos('Rockstar Games\GTA', WizardForm.DirEdit.Text) = 0 then
    WizardForm.DirEdit.Text:= s + 'Rockstar Games\GTA';
end;

procedure InitializeWizard();
begin
  WizardForm.DirEdit.OnChange:= @DirEditChange;
end;

Создаю инсталлятор, и когда устанавливаю игру в реестр заносится только один путь из двух. »

почитайте внимательно Справку

deletekey Когда установлен этот флаг, инсталлятор сначала попытается удалить ключ, если он существует, со всеми его параметрами и разделами. Если ValueType=none, после этого он создаст новый ключ и параметр. Для предотвращения негативных последствий, этот флаг игнорируется при установке, если Subkey пустой или состоит только из бэкслешей.

т.е. у вас при внесении второго ключа, сначала удаляется первый.

Нужно в реестре перевернуть слеш... »

Почитайте справку, вам поможет function StringChange(var S: String; const FromStr, ToStr: String): Integer;

я сделал на финишной странице чекбокс, а как сделать чтоб он открывал ReadMe.txt находящийся в {app}? »

Каким образом сделали?
Если через [Соdе], то задаёте ему событие OnClick с ссылкой на процедуру, в которой проверяете, если чебокс отмечен, то запускаете свой файл через function ShellExec(const Verb, Filename, Params, WorkingDir: String; const ShowCmd: Integer; const Wait: TExecWait; var ErrorCode: Integer): Boolean;

[МИШАНЧИК]

Serega, спасибо!

Каким образом сделали? Если через [Соdе], то задаёте ему событие OnClick с ссылкой на процедуру »

А можно примером, короткий скрипт, для наглядности?
Заранее большое спасибо!
P.S. А если создать чекбокс на вкладке WizardForm Designer, на этой же вкладке можно к ниму как-то прицепить действие?

[Serega]

А если создать чекбокс на вкладке WizardForm Designer, на этой же вкладке можно к ниму как-то прицепить действие? »

Нет, нужно писать в ручную.
Сделал обычную проверку на отмеченный чебокс при завершении инсталляции. Чебокс сделал в WizardForm Designer.

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Examples\Readme.txt; DestDir: {app}; Flags: ignoreversion

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
  NewCheckBox1: TNewCheckBox;

procedure RedesignWizardForm;
begin
  { NewCheckBox1 }
  NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Parent := WizardForm.FinishedPage;
    Left := ScaleX(216);
    Top := ScaleY(192);
    Width := ScaleX(137);
    Height := ScaleY(17);
    Caption := 'Прочитать Readme.txt';
    Checked := True;
    State := cbChecked;
  end;

  NewCheckBox1.TabOrder := 5;

{ ReservationBegin }
  // This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

procedure DeinitializeSetup();
var
  ResultCode: Integer;
begin
  if NewCheckBox1.Checked then
    ShellExec('open', 'Readme.txt', '', ExpandConstant('{app}'), SW_SHOWNORMAL, ewNoWait, ResultCode);
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010CB01000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740366010B436C69656E74576964746803EF010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F7010E4578706C696369744865696768740383010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C69636974486569676874033901000C544E6577436865636B426F780C4E6577436865636B426F7831044C65667403D80003546F7003C0000557696474680389000648656967687402110743617074696F6E141D000000D09FD180D0BED187D0B8D182D0B0D182D18C20526561646D652E74787407436865636B65640905537461746507096362436865636B6564085461624F7264657202050000000000

[МИШАНЧИК]

Serega, спасибо!
И ещё вопрос. В инсталшилде при установке дополнительного п.о. на фоне инсталятора появляется маленькая картинка на которой написано "Устанавливается DirectX". У меня DirectX устанавливается так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
Var
  ResultCode: integer;
  begin
    if CurStep = ssPostInstall then
      begin
    if DirectX.Checked then
      begin
      StatusLabel.Caption:=ExpandConstant('{cm:DirectXInstall}')
      Exec(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\Redist\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
      end;
    end;
  end;

А можно ли как-то сделать чтоб на этом фоне тоже появлялась маленькая картинка?