» Inno Setup (создание инсталяционных пакетов)

Dermuin, используй %-кодировку. Как-то так:

Код: CreateTask(3, GUID, PlayTask, 0, 'Играть Tom Clancy%27s H.A.W.X - DirectX 9', MainExeX9, '');

Привет всем. Подскажите пожайлуста, как можно реализовать такую штуку: При установке у пользователя спрашивается копирование xml файла в папку с программой. Если юзер разрешает - файл копируется, а также в него (в xml файл) вносятся изменения (путь к другому файлу в каталоге с устанавливаемым приложением). Заранее спасибо.

Dermuin
Так
CreateTask(3, GUID, PlayTask, 0, 'Играть Tom Clancy''s H.A.W.X - DirectX 9', MainExeX9, '');
но в game explorer Task0 будет отображаться - "Играть".

Нужно с единички начинать, тогда будет отображаться как задумано

Dermuin

Цитата:

А как к этим чекбоксам присвоить нужные функции

Ну, для начала необходимо знать, что должно измениться при выборе или не выборе чекбокса, примерно так;
if CCheck1.Checked then Result
if CCheck2.Checked then Result

kombat 77
Я сам не знаю как это реализовать, может знаеш как они в том инстоляторе реализованны.

Добавлено:
Unc1e
Не помогает

Dermuin

Цитата:

может знаеш как они в том инстоляторе реализованны.

Конечно не знаю., проще у автора спросить.
Можно ещё распаковать setup.exe, но тоже это мало чего даст.

kombat 77
а что скажешь по моему вопросу? Почему архив не распаковывается? Как будто не находит архив.

Dermuin, а нужен именно символ '? Может использовать символ `?

Dermuin,Unc1e
ну работает она (функция) так:
CreateTask(3, GUID, PlayTask, 0, 'Играть Tom Clancy''s H.A.W.X - DirectX 9', MainExeX9, ''); лично проверено.

Вопрос - мне кто-нибудь подскажет? Или нереально?

kombat 77, ага я подтверждаю. Сначала доверился, а потом сам проверил - вcе работает. '' это 2 симвота ', а не один символ ".

CreateTask(3, GUID, PlayTask, 0, 'Играть Tom Clancy'+''''+'s H.A.W.X - DirectX 9', MainExeX9, '');

msatmb

Цитата:

а что скажешь по моему вопросу? Почему архив не распаковывается? Как будто не находит архив.

Попробуй [more=так]

procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
S: String;
begin
if CurStep = ssPostInstall then
begin
ExtractTemporaryFile('Arc.exe');
WizardForm.StatusLabel.Caption := 'Идет восстановление окружающего мира...';
S := '"' + 'x -y -dp' + '""' + ExpandConstant('{app}\GameData') + '""' + ' setup-2.arc' + '"';
Exec(ExpandConstant('{tmp}\Arc.exe'), S, '"' + ExpandConstant('{src}') + '"', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
ProgressBar1.Position := ProgressBar1.Position + 1;
WizardForm.StatusLabel.Caption := WizardForm.StatusLabel.Caption;
end;

if CurStep = ssDone then
begin
if DesktopIcon.Checked then
begin
CreateShellLink(ExpandConstant('{userdesktop}\Морской охотник.lnk'), 'Морской охотник',
ExpandConstant('{app}\PT-Boats.exe'), '', ExpandConstant('{app}'), '', 0, SW_SHOWNORMAL);
end;
MsgBox('Игра ' + '{#SetupSetting("AppName")}' + ' установлена!', mbInformation, MB_OK);
end;
end;

[/more]

kombat 77
не, не помогает. Ну ладно, спасибо за помощь, но видно не судьба. Нада у ЗлогоДеда спросит у него так в одном из инсталлов реализовано.

Alex Zaguzin

используй:

Код: [no]function LoadStringsFromFile(const FileName: String; var S: TArrayOfString): Boolean;
function SaveStringsToFile(const FileName: String; const S: TArrayOfString; const Append: Boolean): Boolean;[/no]

kombat 77
htuos
Спасибо, оба варианта работают.

Добавлено:
И опят вопрос, как в этом коде вместо текста сообщения прописать константу
then
case MsgBox('Вы хотите удалить сохранения и настройки игры?'#13#13 +
'', mbInformation, MB_YESNO)
of IDYES:
begin

Константа: cm:DEL_SAVE
[CustomMessages]
russian.DEL_SAVE=Вы хотите удалить сохранения и настройки игры?
english.DEL_SAVE=You wish to remove preservations and game options?

Dermuin

case MsgBox(ExpandConstant('{cm:DEL_SAVE}') +#13#13, mbInformation, MB_YESNO) of

Скажите пожалуйста как убрать в контекстном меню инсталлятора пункт "О программе..."

skeptik_vdm

Код: procedure InitializeWizard();
begin
WizardForm.Position:=poScreenCenter;
end;

Yoldosh
Для первой страницы примерно так:
procedure InitializeWizard();
begin
WizardForm.color:=clgray;
WizardForm.WelcomePage.color:=clgray;
end;

Кому не лень, тот продолжит для всех оставшихся страниц, а у меня увы времени нет.

ExpeditorR спасибо огромное !!!!

Можно ли в свойствах инсталлятора скрыть вкладку "Версия"???

DeKaNszn
Не помогло

Вот мой код:
begin
If DirExists(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X')
then
case MsgBox('{cm:DEL_SAVE}'#13#13 +
'', mbInformation, MB_YESNO)
of IDYES:
begin
DelTree(ExpandConstant('{app}'), True, True, True)
DelTree(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X', True, True, True)
end;

Помогите ктонить

помогите как скрестить ето [more]
var
DesktopIcon: TCheckBox;

function MakeDesktopIcon: Boolean;
begin
Result:=DesktopIcon.Checked;
end;

procedure InitializeWizard();
begin
DesktopIcon := TCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Добавить ярлык на рабочий стол';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top+35;
Width := ScaleX(400);
Height := ScaleY(15);
TabOrder := 0;
Checked := False;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpready then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;[/more] с етим [more]procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpSelectDir then begin
WizardForm.NextButton.Caption:='Установить';
end;
end;[/more] с етим

Yoldosh
Держи
[more]
var
DesktopIcon: TCheckBox;

function MakeDesktopIcon: Boolean;
begin
Result:=DesktopIcon.Checked;
end;

procedure InitializeWizard();
begin
DesktopIcon := TCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Добавить ярлык на рабочий стол';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top+35;
Width := ScaleX(400);
Height := ScaleY(15);
TabOrder := 0;
Checked := False;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpready then
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
if CurPageID=wpSelectDir then begin
WizardForm.NextButton.Caption:='Установить';
end;
end;
[/more]

спасибо skeptik_vdm

Dermuin

пробовал [more=так]
Код: [no] begin
If DirExists(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X')
then
case MsgBox(ExpandConstant('{cm:DEL_SAVE}'), mbInformation, MB_YESNO)
of IDYES:
begin
DelTree(ExpandConstant('{app}'), True, True, True)
DelTree(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X', True, True, True)
end; [/no]

кто нибудь может помочь как вставить картинку в поле отмеченное красным

DeKaNszn
Не помогает
Вот ошибка при запуске деинстолятора


Добавлено:
Кто может сделать срипт на установку Билайн Интернет Дома со всеми функциями оригиналоного инстолятора, кто сделает могу кинуть 100 Yandex Money.