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

[Johny777]

Помогите, как сделать в скрипте что бы были дополнительные голочки по поводу установки дополнительного ПО?

[El Sanchez]

STRAYKER, может в справке поглядеть?



Код:

Код: Выделить всё

[Tasks]
Name: vcredist; Description: MS Visual C++ 2008; GroupDescription: Доп.ПО
[Run]
Tasks: vcredist; Filename: {app}\VCRedist2008\vcredist_x86.exe; WorkingDir: {app}\VCRedist2008; Description: MS Visual C++ 2008; Flags: waituntilterminated

[Johny777]

El Sanchez,

спасибо конечно , но к сожалению кнопка серая

сделал так (хотя скорее всего ошибся где-то)



Код:

Код: Выделить всё

 
[Setup]
AppID=ob
AppName=AutoRUN
VersionInfoDescription=AutoRUN
VersionInfoProductName=AutoRUN
AppVerName=AutoRUN
VersionInfoProductVersion=1.0.0.0
VersionInfoVersion=1.0.0.0
VersionInfoCompany=john
VersionInfoCopyright=Copyright © John
CreateAppDir=no
OutputDir=.
OutputBaseFilename=Autorun
procedure PlayButtonClick(Sender: TObject);
var
  exe: string;
begin
  exe:='run_hl2.exe';
  if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'InstallLocation', AppPath) then
  begin
    Exec(AppPath + '\half life 2\run_hl2.exe', '', '', SW_SHOWNORMAL, ewNoWait, ResultCode);
  AutoRun.Close;
  PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
  end
end;

по сути кнопка "играть" появляется вместо кнопки "установить"

я её на 100 пикселей влево сдвинул



вот целиком

http://rghost.ru/36146504

[El Sanchez]

Здравствуйте, ребят подскажите как создать инсталл с выборочной установкой. К примеру у меня в инстале 11 частей игры и нужно чтобы какие части нужны те и должны отмечаться галочками. Ткните мне туда где это описано!

[leshcat]

Подскажите,



Вводится кнопка about:



CancelButton := WizardForm.CancelButton;



AboutButton := TButton.Create(WizardForm);

AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;

AboutButton.Top := CancelButton.Top;

AboutButton.Width := CancelButton.Width;

AboutButton.Height := CancelButton.Height;

AboutButton.Caption := '&About...';

AboutButton.OnClick := @AboutButtonOnClick;

AboutButton.Parent := WizardForm;



Как сделать так, чтобы она отображалась только на Welcome page?

[nik1967]

как сделать чтобы видео проигрывалось на заднем фоне в окне инсталлятора за надписями, прогрес баром и тд.

[Johny777]

El Sanchez,

спасибо, что помогаете

заработало



объединить кнопку "установить" и "играть" задумка хорошая,

скажите пожалуйста!

А можно сделать, что бы запускался не run_hl2.exe, а hl2.exe с параметрами

Run_hl2.exe это бывший батник с параметрами, кторый можно использовать, но лучше (если это возможно) сделать как у меня в секции RUN (например Parameters: -steam -game hl2 -appid 220)

по сути будет проверяться наличие одного и того же hl2.exe, но в различных директориях

уже перечитал всю ветку Inno Setup "помощь и советы часть 2", но настолько не продвинулся , что б всё самостоятельно реализовать



(спасибо за картинку , но Orange Box это внутреннее название. У меня сортировка по версии движков идёт. В реале "Source Engine 15" sp (без тим фортресс))

выкладываю скрипт целиком со всем прилагающимся, если нужно

http://rghost.ru/36163770

http://rghost.ru/36164295

http://rghost.ru/36164749

http://rghost.ru/36165097

http://rghost.ru/36165223

оставил только экзешники и батники - для проверки запуска хватит, но игра не запустится, вылетит с ошибкой нехватки библиотеки

[leshcat]

nik1967,



Говорит, что переменная неизвестна, но она описана:



AboutButton, CancelButton: TButton;



?

[nik1967]

leshcat, ну, как бы это не мой косяк. Работает всё отлично. Да и азы это. ничего сложного.

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

Код:

Код: Выделить всё

[Setup]
AppName=Приложение
AppVerName=Приложение
DefaultDirName={pf}\Приложение
DirExistsWarning=no
[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
[_Code]
var
  AboutButton, CancelButton: TButton;
procedure InitializeWizard;
begin
    CancelButton:= WizardForm.CancelButton;
    AboutButton:= TButton.Create(WizardForm);
  with AboutButton do begin
    SetBounds(WizardForm.ClientWidth-CancelButton.Left-CancelButton.Width,CancelButton.Top,CancelButton.Width,CancelButton.Height);
    Caption:= '&About...';
    //OnClick:= @AboutButtonOnClick;
    Parent:= WizardForm;
  end;
end;
Procedure CurPageChanged(CurPageID: Integer);
Begin
  if CurPageID = 1 then
    AboutButton.Show
  else
    AboutButton.Hide;
end;

Скорее всего переменная описана в какой то конкретной процедуре. Вынеси описание под [_Code]

[Johny777]

SARATOVSKY,

если нужно распаковать картинки первыми, то напиши их первыми в секции файлов, а потом уже саму unarc.dll и CallBack.dll

файлы в секции файлов распаковываются сверху вних

тоже самое относится и скеции RUN

попробуй