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

[LinkOFF]

insombia, так он хочет выходной файл без папки или с папкой? »
без папки

а есть isdone с precomp'ом 0.4.2?

[ARS_23]

я создавал precomp'ом 0.4.2 а в isdone 0.4. precomp 0.4 сможет распаковать архив сделанный 0.4.2? »
вот в этом то и проблема)))

а есть isdone с precomp'ом 0.4.2? »

тут (http://rghost.ru/24688401)

[LinkOFF]

можно попробовать самому добавить »
я добавил, переименовал в precomp04 и вставил packjpg_dll.dll туда

простым 0.4 он говорил типа архив не был создан precomp'ом 0.4

я скачал IsDone_0.5f и попробовал там и у меня получилось, а в моем скрипте не идет

[ARS_23]

LinkOFF,
сам не можешь обновить свой скрипт?

[LinkOFF]

сам не можешь обновить свой скрипт? »
уже обновляю

но чего-то не получается

[ARS_23]

LinkOFF,
дай скрипт. я обновлю

[LinkOFF]

ARS_23, если можешь то соедени пожалуйста, буду искренне благодарен http://rghost.ru/27780851

[ARS_23]

LinkOFF,
как сделаю-кину в лс ссылку

[LinkOFF]

ARS_23, вот че пишет
http://i32.fastpic.ru/big/2011/1030/4b/d976bca84b08f1ef891f9e751151e44b.jpg (http://fastpic.ru/)
А все не надо.я сам ошибку нашел

[Rikill]

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

[Devils Night]

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

[nik1967]

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

Как то так (http://rghost.ru/27877781)

[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/5caae3e568ac2acecfa12b7c6785caa8.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]

Здравствуйте.Помогите мне пожалуйста сделать или дать скрипт на такой инсталлятор.
http://i29.fastpic.ru/thumb/2011/1103/75/c3eeeec4a40e04d4e891e472221e4175.jpeg (http://fastpic.ru/view/29/2011/1103/c3eeeec4a40e04d4e891e472221e4175.jpg.html)