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

insombia, спасибо, но немного не то - там в примерах запрет запуска одного инсталлятора дважды, но попробую переделать под свои нужды.

Подскажите, пожалуйста, как инасталлятору сделать стандартный скин:

http://i51.fastpic.ru/big/2013/0315/9f/9a80973cd03809f017416be36a2a219f.png

Dark_Delphin, вот...
(Библиотека IsClassic)

Как мне создать только скрипт для зтого фото
Так же нужен скрипт под Fenixx

Цитата:

Так же нужен скрипт под Fenixx

надо, делай. (правильно тебе на озоне все написали...)

Цитата:

надо, делай. (правильно тебе на озоне все написали...)

Я не для себе делаю єтот скрипт, а для людей виложить (но видно не судьба)

serg_aka_lain

Цитата:

Ну или прямую ссылку нельзя дать

Поверьте, если бы у меня была прямая ссылка, я непременно бы дал, а так как не являюсь обладателем скоростного интернета дал ссылку туда, где можно скачать, так как заливал сборник на вечное хранение именно для того, что бы люди всегда могли свободно (и абсолютно бесплатно) скачать его.

Цитата:

вот надо обязательно на Вашем форуме

1. Форум не мой
2. Сборник нужен не мне, а пользователю, которого абсолютно никто не заставляет регистрироватся на кринкелс, я собственно для этого и сделал примечание, что необходима регистрация, да бы избежать ответов типа Вашего, а вовсе не для того, что бы зазывать местных пользователей регистрироватся на крикелс.
Уж поверьте, я не из тех людей, которые будут таким образом рекламировать какой-то форум, тем более завсегдатаи этой темы и так прекрасно знают о нем...
Извиняюсь за оффтоп...

как сделать в inno кнопку с прозрачным фоном?

sergey3695 botv'ой как-то делают

insombia мне без ботвы надо. без картинок.

дайте скрипт на кликабельное лого без фона

Русская справка к версии 5.5.3 Chm-версия

Поправьте шапку, а то ссылка мертвая.

Обновил шапку для русской справки

Скажите, можно ли как-то обрабатывать событие OnChange изменения едита DirEdit страницы визарда Select Destination Location?
Нужно устанавливать программу в определенную директорию при наличии в ней определенного файла. Я хочу сделать недоступной кнопку Next на странице Select Destination Location, если путь в поле DirEdit указывает в неправильное место.

Т.е. я вижу так: DirEditChange при изменении содержимого DirEdit проверяет используя функцию FileExists существование файла по пути, содержащемуся в DirEdit. Если этот путь не удовлетворяет критерию (определенный файл по нему отсутствует), то свойство Enable кнопки Next обработчик ставит в false.

Я написал код обработчика события DirEditChange, но выполнение туда не попадает:


Код: procedure DirEditChange(Sender: TObject);
var
path: String;
begin
if WizardForm.CurPageID <> wpSelectDir then exit;

path := WizardForm.DirEdit.Text;
if not FileExists(path + '\fs9.exe') then
WizardForm.NextButton.Enabled := false;
end;

DmitryKz

Код: procedure DirEditChange(Sender: TObject);
var
path: String;
begin
if WizardForm.CurPageID <> wpSelectDir then exit;

path := WizardForm.DirEdit.Text;
if not FileExists(path + '\fs9.exe') then
WizardForm.NextButton.Enabled := False else
WizardForm.NextButton.Enabled := True;
end;

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

DmitryKz
[Code]
procedure ObjectFunc(Sender: TObject);
begin
case Sender of
WizardForm.DirEdit: begin
if not FileExists(WizardForm.DirEdit.text+'\file.dat') then WizardForm.NextButton.Enabled:=false else WizardForm.NextButton.Enabled:=True;
end;
end;
end;

procedure InitializeWizard;
begin
WizardForm.DirEdit.OnChange:=@ObjectFunc;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpSelectDir: ObjectFunc(WizardForm.DirEdit);
end;
end;

Edison007007
Спасибо!!! Это работает!

Добрый день, всем! Мне нужно



Заранее спасибо!!!

tyumenik
[more=Пример.]
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
TestCheckBox : TCheckBox;

procedure TestClick(Sender : TObject);
begin
WizardForm.NextButton.Enabled := TCheckBox(Sender).Checked;
end;

procedure InitializeWizard;
begin
TestCheckBox := TCheckBox.Create(WizardForm);
with TestCheckBox do begin
Parent := WizardForm.SelectDirPage;
Caption := 'Дополнительные параметры';
OnClick := @TestClick;
Checked := True;
SetBounds(WizardForm.DiskSpaceLabel.Left, WizardForm.DiskSpaceLabel.Top - ScaleY(40), ScaleX(200), Height);
end;
end;

Mailchik, Но чуть другое. Не активна, то установливается, а активна, то следующая страница.

tyumenik кинь скрипт с файлами

insombia, еще не сделал скрипт с этим... Так пример... Следующая страница "Компонент"...

Всем привет

Решил тут воспользоваться вот этим скриптом из шапки, но при попытке скомпилить все это дело выдает ошибку "Duplicate Identifier 'TGUID'" .

UPD: Разобрался

Всем привет, помогите пожалуйста, соединить с precomp мой скрипт

Скрипт - http://rghost.ru/45003650

Скрипт precomp - http://isprecomp.googlecode.com/files/ISPrecomp-0.7.zip

Вот такая загвоздка, все сделал правильно, но inno setup комплицяю сделал, а при запуске setup после компиляции, долго думает, вылетает ошибка not call runitme error,

BUU isdone не подходит?

InnoExtractor v3.4.2.401: распаковать Inno Setup на основе установщиков
домашняя страница
Скачать (1.58 MB)

insombia
isdone Не знаю, не пробовал, и ссылок на скачку уже удалили на обмениках

Добавлено:
Я буду благодарен, кто сможет обьеденить мой скрипт с ISdone, и обьсянить принцип работы, пробовал делать давно, архивы pcf не брал никак (((
Заранее спс

BUU
ну если тебе нужно чисто распаковать архив прекомпа то он его не распакует,а так то там есть справки,и юзать его легко

Добавлено:
http://rghost.ru/35686779

подскажите, как сделать, чтобы при запуске инсталятора "setup.exe" смотрело, если есть ключ удаления в реестре, то при запуске "setup.exe" - начиналась деинсталяция приложения, а если нету этого ключа в реестре - "setup.exe" сразу закрывается и запускает другой инсталлер, который и будет устанавливать приложение.
Вот скрипт деинсталяции:
[Code]
var
ResultStr:string;
ResultCode: Integer;

function InitializeSetup(): Boolean;
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\_is1', 'UninstallString', ResultStr)
if ResultStr='' then
begin
Result := True;
end
else
ResultStr:=RemoveQuotes(ResultStr);
Exec(ResultStr, '', '', SW_SHOWNORMAL, ewNoWait, ResultCode)
end;

мне нужно только, когда не будет этого ключа в реестре, запустить другой файл инсталяции.