[Devils Night]

народ а кто поможет прикрутить эти компоненты, к этому скрипту http://rghost.ru/27770621 »

Лови

[nik1967]

И что нужно прописать в скрипте чтоб когда запускался setup.exe выводилось сообщение о том что такая программа уже есть и предлагалось удалить программу? »

Как то так

[Gugle]

Как то так »

А у меня архивчик не распаковался, сказал, что неверно упакован.

Скажите пожалуйста, можно как нить проверить окно "родилось" или нет?
Что то типа:

Код:

[_code]
var
    UnInstallPage: TWizardPage;

...

FUNCTION NextButtonClick(CurPageID: Integer): Boolean;
begin
  if UnInstallPage = null then begin
    MsgBox('Окошко не родилось.', mbConfirmation, mb_Ok);
  end else begin
    MsgBox('Окошко родилось.', mbConfirmation, mb_Ok);
  end;
end;

[nik1967]

А у меня архивчик не распаковался, сказал, что неверно упакован. »

Оффтоп конечно сие, но нужно обновлять архиваторы. Данный архив упакован 7-zip 9.25 alpha (2011-09-16).

[Tixo]

народ как сделать такие компоненты?(скрипт на 4 странице по-мойму)
http://fastpic.ru/view/30/2011/0905/...5caa8.jpg.html

[insombia]

Tixo Inno DescCtrl v1.0

[Devils Night]

народ как сделать такие компоненты? »

Читай справку!!! Не ужели так трудно пробежаться по справке? И читай внимательно тему с первой страницы, уже вроде был такой вопрос.

Код из справки

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Components]
Name: "program"; Description: "Игра"; Types: full compact custom; Flags: fixed
Name: "help"; Description: "Помощь"; Types: full
Name: "Text"; Description: "Tехт"; Types: full
Name: "Text\en"; Description: "Aнглийский"; Flags: exclusive
Name: "Text\de"; Description: "Немецкий"; Flags: exclusive
Name: "Text\cn"; Description: "Китайский"; Flags: exclusive
Name: "Text\ru"; Description: "Русский"; Flags: exclusive
Name: "Voice"; Description: "Озвучка"; Types: full
Name: "Voice\en"; Description: "Английская"; Flags: checkablealone
Name: "Voice\de"; Description: "Немецкая"; Flags: checkablealone
Name: "Voice\ch"; Description: "Китайская"; Flags: checkablealone
Name: "Voice\ru"; Description: "Русская"; Flags: checkablealone
Name: "Voice\ru2"; Description: "Русская"; Flags: checkablealone
Name: "Voice\ru3"; Description: "Русская"; Flags: checkablealone

[Files]
Source: compiler:Dll Pack\descctrl.dll; Flags: dontcopy

 [ Code]
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
  Info: TNewStaticText;
  InfoCaption: TNewStaticText;
  InfoPanel: TPanel;

procedure DeinitializeSetup();
begin
  disabledesc();
end;

procedure InitializeWizard();
begin

  WizardForm.TYPESCOMBO.Visible:= false;
  WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
  WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
  WizardForm.ComponentsList.Width := ScaleX(200);

  InfoPanel := TPanel.Create(WizardForm);
  InfoPanel.Parent := WizardForm.SelectComponentsPage;
  InfoPanel.Caption := '';
  InfoPanel.Top := WizardForm.ComponentsList.Top;
  InfoPanel.Left := ScaleX(216);
  InfoPanel.Width := ScaleX(200);
  InfoPanel.Height := WizardForm.ComponentsList.Height;
  InfoPanel.BevelInner := bvRaised;
  InfoPanel.BevelOuter := bvLowered;
  InfoCaption := TNewStaticText.Create(WizardForm);
  InfoCaption.Parent := WizardForm.SelectComponentsPage;
  InfoCaption.Caption := 'Информация:';
  InfoCaption.Left := ScaleX(224);
  InfoCaption.Top := InfoPanel.Top - ScaleY(5);
  InfoCaption.Font.Color := clActiveCaption;
  Info := TNewStaticText.Create(WizardForm);
  Info.Parent := InfoPanel;
  Info.AutoSize := False;
  Info.Left := ScaleX(6);
  Info.Width := ScaleX(188);
  Info.Top := ScaleY(12);
  Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
  Info.Caption := 'Наведите на компонент, чтобы получить дополнительную информацию';
  Info.WordWrap := true;
  enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
       'Короткое описание игры;'+
       'Дополнительная документация, на разных языках;'+
       'Техт игры;'+
       'Официальный английский текст от EA Games;'+
       'Официальный немецкий текст от неизвестного производителя;'+
       'Пиратский китайский текст;'+
       'Официальный русский текст от софтклаб;'+
       'Озвучка игры;'+
       'Официальная английская озвучка от EA Games;'+
       'Официальная немецкая озвучка от неизвестного производителя;'+
       'Пиратская китайская озвучка;'+
       'Официальная русская озвучка от софтклаб;'+
       'Русская озвучка от 7Wolf;'+
       'Русская озвучка от фаргуса;'
       );
end;

но нужно обновлять архиваторы. Данный архив упакован 7-zip 9.25 alpha »

У меня установлен 9.20, и все прекрасно распаковывает.

[Damaks]

Инсталлятор может после установки сам себя скопировать? Данный код не работает:

Код:

FileCopy(ExpandConstant('{srcexe}'), 'C:\Test\test.exe', False);

Путь назначения берётся из переменной, которую вводят во время установки, поэтому в секции Run через "cmd.exe copy" не получится наверное. Хотя даже с фиксированными путями у меня не получалось скопировать, при любых вариацииях с кавычками (обрамление, экранирование) открывается дефолтная консоль и команда в неё не передаётся (при одном параметре она передаётся, при двух (источник/назначение) нет, при копировании вручную в консоль работает). Например:

Код:

Filename: {sys}\cmd.exe; Parameters: "copy ""C:\In\test.exe"" ""C:\To\test.exe"""; Flags: shellexec runascurrentuser nowait

Здесь по аналогии с рабочим примером другой консольной утилиты применил похожий синтаксис, экранирование кавычек и обрамление всей команды.

Но это к слову, т.к. путь ещё нужно передать, не приходилось этого делать. Танцы с бубном (.bat) не хочется использовать, кто знает, какая система защиты у пользователя стоит, может отдельно запросить разрешение на запуск батника, а это совершенно лишнее.

[Gugle]

Доброго времени суток!

1. Подскажите как при использовании SHFileOperation.iss функции CopyDir показать ProgressBar в котором бы отображался процесс?

2. Можно как нибуть не только скопировать файлы, но и упаковать ее в архив?

[kindza811]

Здравствуйте.Помогите мне пожалуйста сделать или дать скрипт на такой инсталлятор.