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

Молодой · Конфигурация компьютера

Доброго времени суток создал скрипт вроде бы все нормально, но одно "НО"
Ярлык который сохраняется на раб.столе запускает игру из корня папки куда собственно установлена игра,

рисунок

На рисунке видно что запуск идет из корня папки, а что бы запустить игру, надо что бы ярлык ссылался на .exe файл из папки bin, как это поправить.
Вот сам скрипт

skript

Заранее благодарен за ответ

YURSHAT · Отправлено: **15:01, 15-12-2009** | #**672**

Цитата Молодой:

а что бы запустить игру, надо что бы ярлык ссылался на .exe файл из папки bin, как это поправить. »

Элементарно!

Name: {commondesktop}\Far Cry 2; Filename: {app}\bin\farcry2.exe; WorkingDir: "{app}\bin"; Tasks: desktopicon

Молодой · Конфигурация компьютера

Большое спасибо, за помошь!

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

Цитата Dark Engel:

как все таки реализовать мой вопрос »

Пример

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

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

Как будто не успевает процедура FFD отработать. »

Замените все ewNoWait на ewWaitUntilTerminated и будет успевать вноситься.

Цитата SinRoma:

Подскажите как перейти? »

Должно быть так:

Подробнее

Код:

//Определяем дополнительную страницу для Project (с кнопкой «Обзор…»)
var
  ProjectDirPage: TInputDirWizardPage;
  VSTDirPage: TInputDirWizardPage;

function GetProjectDir(Param: String): String;
begin
  Result := ProjectDirPage.Values[0];
end;

function GetVSTDir(Param: String): String;
begin
  Result := VSTDirPage.Values[0];
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
  if CurPage = ProjectDirPage.ID then
    begin
      if ProjectDirPage.Values[0] = '' then // это условие никогда не выполнится
      //   Указываем путь папки с проектами по умолчанию
      ProjectDirPage.Values[0] := (ExpandConstant('{sd}')+'\Projects');
    end;
  if CurPage = VSTDirPage.ID then
    begin
      if VSTDirPage.Values[0] = '' then // это условие тоже никогда не выполнится
      //   Указываем путь к папке VST Plugins
      VSTDirPage.Values[0] := (ExpandConstant('{pf}')+'\VSTPlugins');
    end;
  Result := True;
end;

// ***************************************************************************************************************************************

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

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S: String;
begin
  S := S + MemoDirInfo;
  S := S + NewLine + NewLine;
  S := S + 'Папка с проектами:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  S := S + 'VST Plugins:' + NewLine + Space;
  S := S + ProjectDirPage.Values[0];
  Result := S;
end;

procedure InitializeWizard();
begin
  // InitializeWizardCWP
  //Создание дополнительной страницы после указанной wpSelectProgramGroup
  ProjectDirPage := CreateInputDirPage(wpSelectProgramGroup,
    'Выбор папки с проектами', 'В какой папке будут находиться проекты программы?',
    'Пожалуйста, укажите папку, в которой будут сохранены проекты программы.'#13#13'Путь к папке с проектами может быть изменен в "ххх">"ххх".',
    False, '');
  ProjectDirPage.Add('');
  ProjectDirPage.Values[0] := GetPreviousData('ProjectDir', '');

  // InitializeWizardVST
  //Создание дополнительной страницы после указанной wpSelectProgramGroup
  VSTDirPage := CreateInputDirPage(ProjectDirPage.ID,
//                                  ^^^^^ тут указать предыдущую страницу? как?
    'Выбор папки с VST Plugins', 'В какой папке будут находиться VST Plugins?',
    'Пожалуйста, укажите папку, в которую будут VST Plugins.'#13#13'Путь к папке с VST Plugins может быть изменен в "ххх">"ххх".',
    False, '');
  VSTDirPage.Add('');
  VSTDirPage.Values[0] := GetPreviousData('VSTDir', '');
end;

Winstan · Отправлено: **22:24, 15-12-2009** | #**676**

Serega,
Подскажи как в procedure InitializeUninstallProgressForm();
ProgressBar назвать так как он прикрыт изображением.
Если же прописывать пб таким образом как визарде то он бесполезен.

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

Цитата Winstan:

как в procedure InitializeUninstallProgressForm(); »

Я так полагаю, что изображение загружено на какой-то контрол, если да то:
UninstallProgressForm.ProgressBar.Parent:= ваш контрол;

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

Здравствуйте!

Подскажите, пожалуйста, как передать инсталлеру параметр и обработать его в секциях Code, Registry и Run, например инсталлер называется ffd, нужно передать ему параметр auto (ffd.exe /auto).

Точнее надо так, чтобы при параметре /auto инсталлер не отсвечивал лишними окнами (окно прогресса можно, догадываюсь что надо добавить /silent, но при параметре /auto в скрипте должны отрабатываться свои "ветки"), а без этого параметра инсталлер запускался как обычно - с выбором компонентов.

МИШАНЧИК · Конфигурация компьютера

Serega, подскажите пожалуйста!
Можно ли как-то задать порядок расположение ярлыков устанавливаемого приложения в Пуск-Программы?
Например:

Код:

[Icons]
1.Name: {group}\Nero Burning ROM
2.Name: {group}\Nero Express
3.Name: {group}\Nero Vision
4.Name: {group}\Nero CoverDesigner
5.Name: {group}\Nero WavEditor
6.Name: {group}\Утилиты\Nero BurnRights
7.Name: {group}\Утилиты\Nero DiscSpeed
8.Name: {group}\Утилиты\Nero DriveSpeed
9.Name: {group}\Утилиты\Nero InfoTool
10.Name: {group}\Удаление

Потому-что папка Утилиты получается последней, после удаления, а хотелось бы перед ней.

solvador · Отправлено: **15:00, 16-12-2009** | #**680**

МИШАНЧИК, в меню пуск файлы сортируются по алфавиту, измените название папки Удаление, чтобы сместить его вниз.