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

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Serega:

Лександер, насколько помню вам отвечал, много строчный текст комментируется так: { большой текст, много строк } »

это работает только в секции кода, меня интересует секция файлов и реестра

Gnom_aka_Lexander · Отправлено: **10:30, 23-02-2012** | #**882**

Цитата R.i.m.s.k.y.:

меня интересует секция файлов и реестра »

там-же я и ответил - других способов коментирования строк, кроме того, что я показывал, и ты перед этим давал - нету. Совсем нету... Вообще совсем нету. Кстати, С праздником, уважаемые коллеги

El Sanchez · Конфигурация компьютера

Цитата Serega:

Ошибка возникает именно из-за попытки обращения к контролу, который ещё не создан. »

Serega, совершенно верно.

Цитата Johny777:

дальше не знаю
Name:.......Parameters: -steam -game hl2 -appid 220 -{code:функция};......... »

Это надо делать в Code с помощью CreateShellLink, когда контролы уже существуют.

Цитата R.i.m.s.k.y.:

это работает только в секции кода, меня интересует секция файлов и реестра »

У Restools с этим просто - выделяешь строки и жмешь на клавишу /, в Code строки будут закомментированы двойным слэш, в остальных секциях точкой с запятой.

BlackPhoenix28 · Отправлено: **14:07, 23-02-2012** | #**884**

Johny777,

Можно еще спросить по реестру. Собрал скрипт в IS GameScript generator. У меня стоит Windows 7 x64, и все игрушки пишутся вот в эту ветку реестра:
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\
И так как я добавляю реестр из reg - файла (вернее просто ветку реестра с моего компа) то будут ли эти игрушки после установки работать скажем на Win XP x32 или на Win 7 x32. Или надо добавлять в скрипт какую то проверку на разрядность системы. Если надо то что и куда добавить. А главное, как ? (Вариант ручками и т.д. прошу не предлагать).

Вот мой скрипт

Gnom_aka_Lexander · Отправлено: **14:22, 23-02-2012** | #**885**

BlackPhoenix28, Просто удаляй из пути подпапку Wow6432Node. Тоесть вместо
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\и так далее,
нужно HKEY_LOCAL_MACHINE\SOFTWARE\и так далее.
х32-х64 инно определяет сама, и в х64 автоматом подставит подпапку Wow6432Node в путь.
Если у тебя вдруг будет нужда внести запись без этой подпапки в х64 системе, нужно указать х64-корень.
HKLM64\SOFTWARE\
только не забыть проверку сделать - Check: IsWin64, посколько в х32 системах будет ошибка и нужно исключить такую запись из обработки установщиком.

Johny777 · Конфигурация компьютера

Цитата El Sanchez:

Это надо делать в Code с помощью CreateShellLink, когда контролы уже существуют. »

спасибо за подсказку
вот сделал,
параметры добавляются
всё работает!

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=.



[_code]
{ RedesignWizardFormBegin } // Íå óäàëÿòü ýòó ñòðîêó!
// Íå èçìåíÿòü ýòó ñåêöèþ. Îíà ñîçäàíà àâòîìàòè÷åñêè.
var
  Icon_hl2: TNewCheckBox;
  parameters_hl2: TNewEdit;
  s1,s2:String;

procedure parameters1OnClick(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
  { Icon_hl2 }
  Icon_hl2 := TNewCheckBox.Create(WizardForm);
  with Icon_hl2 do
  begin
    Name := 'Icon_hl2';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(200);
    Top := ScaleY(208);
    Width := ScaleX(161);
    Height := ScaleY(17);
    Caption := 'create icon for Half-Life 2';
    OnClick := @parameters1OnClick;
  end;

  { parameters_hl2 }
  parameters_hl2 := TNewEdit.Create(WizardForm);
  with parameters_hl2 do
  begin
    Name := 'parameters_hl2';
    Parent := WizardForm.WelcomePage;
    Left := ScaleX(368);
    Top := ScaleY(208);
    Width := ScaleX(121);
    Height := ScaleY(21);
    Text := ' ';
  end;

  Icon_hl2.TabOrder := 2;
  parameters_hl2.TabOrder := 3;

{ ReservationBegin }
  // Âû ìîæåòå äîáàâèòü âàø êîä çäåñü.

{ ReservationEnd }
end;
// Íå èçìåíÿòü ýòó ñåêöèþ. Îíà ñîçäàíà àâòîìàòè÷åñêè.
{ RedesignWizardFormEnd } // Íå óäàëÿòü ýòó ñòðîêó!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

function CreateIconHL2: Boolean;
begin
  Result:=Icon_hl2.Checked;
end;

procedure parameters1OnClick(Sender: TObject);
begin
if Icon_hl2.Checked = false then
  begin
    parameters_hl2.Enabled:= false;
    parameters_hl2.visible:= false;
  end
else
  begin
    parameters_hl2.Enabled:= true;
    parameters_hl2.visible:= true;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  s2:=parameters_hl2.Text;
    s1:=ExpandConstant('-steam -game hl2 -appid 220');
  if CurStep = ssPostInstall then
  begin
  if Icon_hl2.Checked then

     CreateShellLink(ExpandConstant('{commondesktop}\Half-Life 2.lnk'), '',
    ExpandConstant('{app}\common\half-life 2\hl2.exe'),s1 + s2, ExpandConstant('{app}\common\half-life 2'), ExpandConstant('{app}\common\half-life 2\hl2.ico'), 0, SW_SHOWNORMAL);
/////////////////////////////// ÿðëûê íà ðàáî÷åì ñòîëå //////////////////////////////////////// ê ôàéëó òàêîìó-òî /////////////////// ïàðàìåòðû  çàïóñêà  /////////////////////// ðàáî÷àÿ ïàïêà  ////////////////////////////////  ôàéë çíà÷êà  ///// 0 ýòî èíäåê èêîíêè ////////
  end;
end;
 procedure CurPageChanged(CurPageID: Integer); 
 begin         
    if CurPageID=wpWelcome then

     begin

       parameters_hl2.Hide
     end;
 end;
[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010F601000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F101134F6E436F6E73747261696E6564526573697A650712706172616D6574657273314F6E436C69636B0C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C69636974486569676874033901000C544E6577436865636B426F780849636F6E5F686C32044C65667403C80003546F7003D00005576964746803A1000648656967687402110743617074696F6E061B6372656174652069636F6E20666F722048616C662D4C6966652032085461624F726465720202074F6E436C69636B0712706172616D6574657273314F6E436C69636B000008544E6577456469740E706172616D65746572735F686C32044C65667403700103546F7003D0000557696474680279064865696768740215085461624F72646572020304546578740602603F0000000000

у меня вопрос
как привязать эту функцию к кастомному чекбоксу (раньше у меня на была привязана к задаче Task чарез Check)

Код:

function Task_DirectX:boolean; /// DirectX search
var
  sz:Integer;
  s:string;
begin
  Result:=True;
begin
 If (FileSearch('DXSETUP.exe', ExpandConstant('{src}\Redist\DirectX10'))='') then
  Result:=False
end;
end;

например к этому http://forum.ru-board.com/topic.cgi?...&limit=1&m=1#1
и если во внешней папке нет директа, то и чекбокса нет

nik1967 · Конфигурация компьютера

Johny777, как то криво, но работает

Код:

If not (FileSearch('DXSETUP.exe', ExpandConstant('{src}\Redist\DirectX10'))='') then begin
  Icon_hl2 := TNewCheckBox.Create(WizardForm);

Ну или так

R.i.m.s.k.y. · Конфигурация компьютера

Johny777, FileExists использовать религия индусская запрещает?

Код:

If (not FileExists(ExpandConstant('{src}\Redist\DirectX10\DXSETUP.exe'))) then 
  begin   
  Icon_hl2 := TNewCheckBox.Create(WizardForm);
  ...

nik1967 · Конфигурация компьютера

R.i.m.s.k.y., чуток подправил

Код:

If FileExists(ExpandConstant('{src}\Redist\DirectX10\DXSETUP.exe')) then 
  begin   
  Icon_hl2 := TNewCheckBox.Create(WizardForm);
  ...

Давно Инно не занимался, и к стыду своему забыл, что есть функция "Файл существует"

R.i.m.s.k.y. · Конфигурация компьютера

nik1967, Johny777
ну это вам виднее, to not or not to be a not