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

serg_aka_lain

Просто я создал своё сообщение, а это мешает.
я имел ввиду кнопки "Да" "Нет" заменить на "Ok" и чтобы установку нельзя было продолжить пока, пользователь не освободит место для установки.

Как добавить такую надпись в свой проект?

SpoinT
Если имеется в виду "ISTool", то:

[Messages]
ru.BeveledLabel=тут текст, который хотим видеть

Вопрос с самоудалением инсталлятора (в конце установки) так и останется не решенным? В принципе можно использовать батч-файл с набором комманд "del". Только вот не хочется видеть окно коммандной строки во время исполнения батч-файла!

Цитата:

Вопрос с самоудалением инсталлятора (в конце установки) так и останется не решенным? В принципе можно использовать батч-файл с набором комманд "del". Только вот не хочется видеть окно коммандной строки во время исполнения батч-файла!

Запускаешь БАТ файл через Exec с ключом SW_HIDE. В самом бат файле пишешь паузу перед выполнением удаляемого файла + отключаешь в Exec флаг ожидания выполнения команды.

SpoinT - а можно подробнее со структурой батч файла. И как это все будет работать в Windows Vista?

Здравствуйте, у меня вопрос, можно ли изображения в инсталляторе WizardImage и WizardSmallImage, сделать анимированными?

Как вам этот инсталлятор Actual Installer

Подскажите, можно ли обойти сообщение при выборе компонентов установки? У меня в установке присутствуют вот такие компоненты:

[Components]
Name: "eng"; Description: "Английская версия"; Flags: exclusive
Name: "rus"; Description: "Русская версия"; Flags: exclusive

Если выбрать русскую версию и после установки запустить установку еще раз и выбрать английскую версию, то появляется сообщение что уже установлены компоненты русская версия. Помогите, пожалуйста, избавиться от этого сообщения!!!

Don_Juan

Цитата:

Если выбрать русскую версию и после установки запустить установку еще раз и выбрать английскую версию, то появляется сообщение что уже установлены компоненты русская версия. Помогите, пожалуйста, избавиться от этого сообщения!!!

[Setup]
UsePreviousSetupType=False

Подскажите, пожалуйста, у меня вот такая проблема: как сделать, чтоб при деинсталляции приложения производилась проверка запущен ли процесс и в случае, если запущен, предлагала закрыть его и только после этого продолжалась деинсталляция.
Использовал KillTask, вылетает сообщение: "explorer.exe - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства...".

serg_aka_lain

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

Artem_Butenko
Батник легко скрывается посредством вставки в него параметров сокрытия (читай спраку по командной строке). А на время выполнения прописать в самой Inno код на генерацию прогрессбара, пока будет выполняться этот батник. А вообще, в NSIS'ке, например, это можно решить путем пары макросов в хидере.
Victor_Dobrov
Что-то ваши ответы стали не информативны.
Всем
Вот ftp
ftp://ftp.installers.org/core/
там лежат обещанные проги. Если глюки или не работает чего, писать в личку.

serg_aka_lain

а можно добиться того же эффекта только через код?

Don_Juan

Цитата:

а можно добиться того же эффекта только через код?

Вероятно можно, с ходу не знаю как, а чем стандартный способ не подходит?.

Добавлено:
Serega0675

Цитата:

Использовал KillTask, вылетает сообщение: "explorer.exe - обнаружена ошибка.

Покажи как используешь в Code

serg_aka_lain

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

ComradG

Цитата:

Что-то ваши ответы стали не информативны.

А разьве я эксперт? Какой из ответов неясен? Приведите пример. Или для вас всё неинформативно?

Цитата:

ftp://ftp.installers.org/core/
там лежат обещанные проги. Если глюки или не работает чего, писать в личку.

Информация отсутствует. Результат при обращении к серверу: "Сервер не отвечает"

serg_aka_lain

Цитата:

Покажи как используешь в Code

[more=здесь]
[_Code]
var
ErrorCode, ResultCode: Integer;
ResultStr: String;

function InitializeSetup(): Boolean;
begin
Exec('taskkill', '/f /im PSTrayFactory.exe', '', SW_HIDE,ewWaitUntilTerminated, ErrorCode);
Result := True;
begin
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\PS Tray Factory_is1', 'DisplayName', ResultStr) then
begin
If ResultStr='PS Tray Factory' then
begin
ResultStr:=RemoveQuotes(ResultStr);
if MsgBox('Setup has detected that ' + ResultStr + ' is already installed on your computer.'#13#13'You would like to remove all before continuing?', mbInformation, MB_OKCANCEL) = idCANCEL then
begin
Result := False;
end else
If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\PS Tray Factory_is1', 'UninstallString', ResultStr) then
begin
If ResultStr <> '' then
begin
ResultStr := RemoveQuotes(ResultStr);
if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
MsgBox('Uninstall Error. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Probably, uninstall files was moved, removed or renamed.', mbError, MB_OK);
end;
end;
end;
end;
end;
end;
[/more] проверка во время инсталляции, но именно на этой программке выдаёт ошибку, поэтому и хотел сделать, чтоб инсталлятор проверял, что приложение уже установлено, затем предлагал его удалить, а уже при удалении деинсталлятор определял запущенный процесс и предлагал его выгрузить вручную. Т.к. после того как процесс закрывается вручную, программа полностью удаляется не оставляя хвостов.

Serega0675

Цитата:

а уже при удалении деинсталлятор определял запущенный процесс и предлагал его выгрузить вручную. Т.к. после того как процесс закрывается вручную, программа полностью удаляется не оставляя хвостов.

Если нужно при удалении, то [more=Так]

[Files]
Source: "ISTask.dll"; DestDir: "{app}"; Flags: ignoreversion;

[Code]

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';

function KillTask(ExeFileName: string): Integer;
external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
if RunTask('PSTrayFactory.exe', false) then
begin
UninstallProgressForm.Visible := False;
if MsgBox('Завершить "PSTrayFactory.exe"?', mbConfirmation, mb_yesno) = idyes then
begin
KillTask('PSTrayFactory.exe');
UnloadDll(ExpandConstant('{app}\ISTask.dll'));
UninstallProgressForm.Visible := True;
end else
begin
MsgBox('Завершите работу программы PSTrayFactory.exe, затем снова запустите программу удаления.', mbInformation, mb_ok);
UnloadDll(ExpandConstant('{app}\ISTask.dll'));
Abort;
end;
end else
begin
UnloadDll(ExpandConstant('{app}\ISTask.dll'));
end;
end;
end;

[/more]

serg_aka_lain

Цитата:

Если нужно при удалении, то Так [?]

, та же ошибка: "explorer.exe - обнаружена ошибка. Приложение будет закрыто. Приносим извинения за неудобства..." Если хотите, могу отправить вам в сообщении, полностью скрипт и сам инсталлятор...

Добавлено:
serg_aka_lain
отправил вам сообщение с ссылкой на архив.

Serega0675
см. личку.

з.ы. Система исправна?

serg_aka_lain

Цитата:

Система исправна?

тестирую на виртуальной машине Microsoft Virtual PC 2007 SP1 32bit рус.

ComradG - спасибо за ответ. Только вот я не знаю как полностью сокрыть окно коммандной строки, по моим представлениям его можно минимизировать. Если Вы знаете как это можно осуществить, то пожалуйста помогите. Вообще очень обидно за Inno Setup, в том плане, что осуществить самоудаление инсталляционных файлов в конце установки (как это реализовано в инсталляторах Microsoft) невозможно. Хотя м.б. я ошибаюсь? Буду очень рад если так! А что с Вашим ftp, он недоступен? Очень хотелось изучить программы в действии!

Подскажите пожалуйста, возможно ли создать текст с эффектом утопленности или выпуклости на подобии:
[Messages]
BeveledLabel=Текст на экране

в этом куске кода:

Код:
procedure InitializeWizard();
var
TextLabel: TNewStaticText;
begin
TextLabel:= TNewStaticText.Create(WizardForm);
TextLabel.Top:= ScaleY (250);
TextLabel.Left:= WizardForm.NextButton.Left;
TextLabel.Font.Color:= clWindow;
TextLabel.Caption:= 'Текст на экране'
TextLabel.Parent:= WizardForm;
end;

VDon

Цитата:

текст с эффектом утопленности или выпуклости на подобии:
[Messages]
BeveledLabel=Текст на экране

-- добавь строку TextLabel.Enabled:= False;

Скажите, хоть у кого-нибудь получилось скачать обещанные проги от ComradG с ftp://ftp.installers.org/core/ ?
У меня постоянно сообщает: "Сервер не отвечает", причём пробовал утром, днём, вечером и даже ночью...
Если кто-нибудь, всё-таки скачал, пожалуйста, перезалейте куда-нибудь...

Victor_Dobrov

Цитата:

А разве я эксперт?

Тогда не надо и на меня наговоривать.

Цитата:

У меня постоянно сообщает: "Сервер не отвечает", причём пробовал утром, днём, вечером и даже ночью...

Цитата:

Информация отсутствует. Результат при обращении к серверу: "Сервер не отвечает"

Учел. Вчера проверял, были глюки. Если и дальше так будет, то если у кого резиновый ящик или имеется свой ftp сервак(впрочем, любой другой тоже сойдет), подсобите, пожалуйста.

Добавлено:

Цитата:

Вообще очень обидно за Inno Setup, в том плане, что осуществить самоудаление инсталляционных файлов в конце установки (как это реализовано в инсталляторах Microsoft) невозможно.

А что мешает скачать MS Installer и SDK к нему - бесплатно и весит мало? И потом, полностью совместим с Inno. Надеюсь, Artem_Butenko, меня простите, но относительно батников могу посоветовать обратиться к справке по командной строке (Windows -> Help -> ntcmds.chm) или в соседний форум - просто времени катастрофически мало, да и не все возможно удержать в голове. И потом, лично я для себя там много чего интересного нашел.

ComradG

Цитата:

если у кого резиновый ящик

о каком объёме идёт речь?

Цитата:

о каком объёме идёт речь?

Хочешь подсобить?

ComradG

Цитата:

Хочешь подсобить?

в силу своих возможностей... всё-таки я повторюсь, о каком объёме идёт речь?