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

spider91
В данном случае это зависит от используемого в ОС визуального стиля. Какие в нем полоски используются, такие и будут в инсталляторе. Хотя также можно вшить через хитрые скрипты и свои, но если смысл возиться с такой мелочью.

Astra55

Цитата:

А по каким причинам не фигурирует в шапке версия 0.23 Inno Setup Unpack от китайцев? Какие-то проблемы с ней или другие резоны?

Она давно уже там есть, и к тому же русифицированная.
См. ссылку Расширенная версия (с поддержкой русского языка). Еще в начале декабря в том году выкладывал.
Или ее нужно как-то отдельно обозначить? Скажи как, обозначим.
Скоро добавлю новую, с поддержкой Юникода и последних бет IS.

Кстати, один наш человек выкладывал свою версию с gui, очень удобную в работе. Надо бы найти ее и тоже добавить в шапку. А если автор InnoUnPacker сейчас это видит, просьба загрузить куда-нибудь последнюю версию своего распаковщика. Добавим.

Люди можете выложить прогу killsave плиз, а то не могу найти?

perf92

Цитата:

можете выложить прогу killsave плиз, а то не могу найти?

Она есть в Inno Setup Scripting v5.1
C:\Program Files\Inno Setup Scripting v5.1\Addons\Programs\KillSave.rar

Vitalliano

Цитата:

У кого нибуть есть скрипт установки Inno Setup Scripting 5.1 от Kindly?

есть в Inno Setup Scripting v5.1
C:\Program Files\Inno Setup Scripting v5.1\Scripts\SourceScript\iss.iss

kombat 77

Цитата:

Она есть в Inno Setup Scripting v5.1
C:\Program Files\Inno Setup Scripting v5.1\Addons\Programs\KillSave.rar

Спасибо, нашел.

kombat 77

Спасибо!

кто может обяснить чем отличается версия 5.3.0 от 5.3.0-unicode?

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

maxstupino

Цитата:

Подскажите в какую сторону копать?
1.нужно скачать файлы с FTP
2.установить на локальном компе
3.послать сообщение по мылу что все Ок

-- по п.1 и 2 - использовать возможности ISTool или InnoTools Downloader
По п.3 - не совсем понятно - послать е-майл должен инсталлятор? Автоматически? Скрытно для пользователя? Если так, то это... мягко говоря, не очень хорошо. Надеюсь, не надо объяснять почему.
Если имеется ввиду "предоставить пользователю возможность отправить е-майл" - это другое. Это можно [more=примерно так]
Код: [no]
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DirExistsWarning=no

[Run]
Filename: "mailto:foo@mail.com?subject=My%20Program%20feedback&body=Setup%20OK"; Description: "Send feedback"; Flags: postinstall shellexec skipifsilent

[Code]
var
IsDone: boolean;

procedure DeinitializeSetup();
var
ErrorCode: Integer;
begin
if not IsDone then
ShellExec('', 'mailto:foo@mail.com?subject=My%20Program%20feedback&body=Setup%20Canceled',
'', '', SW_SHOW, ewNoWait, ErrorCode)
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
IsDone:= CurStep = ssDone;
end; [/no]

Порылся, но нигде не могу найти нормального описания как проверить Vista это или нет и если не виста то вывести маленькое сообщение..

Erazer -- в шапке Сборник вопросов. В нем поиском по "Vista"

Спс

Подскажите люди добрыя, м можно здесь MsgBox('MyMessage' ,mbInformation, mb_Ok); Вывести кликабельную ссылку? Ну или каким либо другим способом? Дабы сказать юзеру так мол и так, сходите-ка туда....

Erazer -- кликабельную ссылку - не знаю. Разве что самому диалог отрисовывать. Трудоемко. Но возможно подойдет [more=такой способ]
Код: [no]
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DirExistsWarning=no

[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
var
ErrorCode: Integer;
begin
if CurPageID = wpWelcome then
if MsgBox('Информация о порядке установки доступна на сайте.' + #10#13 +
'Хотите посетить сайт разработчика?' ,mbInformation, MB_YESNO) = IDYES then
ShellExec('', 'www.microsoft.com',
'', '', SW_SHOW, ewNoWait, ErrorCode);
Result:= True;
end; [/no]

Уточню... Если ОС не Vista, то показать окошко с уведомлением что ОС не катит, но вы можете сходить на такой-то сайт выбрать се прогу под вашу ОС, я это конечно и в мессаджбоксе напишу, просто хотелось бы чтобы была возможность кликнуть и попасть на сайт. Ну помечтать то я могу ?

Erazer -- если "кликнуть" имеется ввиду именно по ссылке, то как уже сказал - не знаю. Но чем не устраивает вариант выше? Ты его пробовал? Тот же клик, только по кнопке. Чтоб понятнее - [more=пример с проверкой]
Код: [no]
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DirExistsWarning=no

[Code]
function InitializeSetup (): Boolean;
var
Version: TWindowsVersion;
ErrorCode: Integer;
begin
GetWindowsVersionEx(Version);
if Version.NTPlatform and (Version.Major = 6) and (Version.Minor = 0) then
Result:= True
else
if MsgBox('Данный инсталлятор предназначен только для Windows Vista!' + #10#13 +
'Инсталляторы для других ОС доступны на сайте разработчика.' +#10#13 +
'Хотите посетить сайт сейчас?' ,mbInformation, MB_YESNO) = IDYES then
ShellExec('', 'www.microsoft.com', '', '', SW_SHOW, ewNoWait, ErrorCode);
end; [/no]

Спс еще раз, я уже воспользовавшись твоим предыдущим примером все наваял как мне надо,с той же проверкой.

SotM
спасибо, То что нада

spider91

Цитата:

кто может обяснить чем отличается версия 5.3.0 от 5.3.0-unicode?

Ну судя из названия, то скорей всего во второй добавлена поддержка unicode.


Цитата:

и можно ли зделать возможной отмену распаковки внених архивов?
в длл для 7-zip ето есть но хотелось бы зделать ето без длл и не только для 7-zip

Под отменой ты подразумеваешь удалить уже распакованные файлы? Прямо так не скажу, можно тупо удалить те файлы которые распаковались до команды "Отмена", но еще нужно проследить какие именно файлы.

В шапку добавил инфу о InnoTools Downloader. Спасибо говорим Genri, который выложил ссылку на этой странице.

Друзья, не подскажете как реализовать распаковку запароленых архивов?

Krinkels
К сожалению, "телепаты в отпуске" (с).
Ты бы сказал какие именно архивы? Чем запакованы и т.д. Или мы все должны догадываться?

Пардон, архивы упакованы 7z, обычные, не SFX

Krinkels
Ну так как ты не предоставил более детальный вопрос, то получай такой же ответ.

Код: var
ResultCode: Integer;
begin
Exec('7z.exe', 'x test.7z -pmy_password -o' + ExpandConstant( '{app}' ) + ' -y', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

SotM -- по условию - архивы не SFX.

Krinkels -- складывается впечатление, что требуется просто взломать архив. А каким боком тут Inno Setup? Похоже, этот вопрос не для этой темы.

SotM
Большое спасибо

Добавлено:
Genri
Да нет, просто не хочется чтоб в архивы влезали до установки

Krinkels

Цитата:

архивы упакованы 7z, обычные, не SFX

-- т.е. архив не самораспаковывающийся (SFX, от англ. SelF-eXtracting). Следовательно, нужна программа распаковки и предложенный способ не подходит.

В инсталяторе запускаю скрипты, который заливают данные в базу. Так вот как можно обрабатывать ошибки если не запущен OracleXE??? Может как нибудь перед запуском скриптов делать проверку запущен ли Oracle???

Genri
А unpacker.exe не подойдет?

Добавлено:
BondDaniil00

[more]
[_Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[_Files]
Source: ISTask.dll; DestDir: {tmp}; Flags: dontcopy
[_Code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';
//**************************************************//
function InitializeSetup(): Boolean;
begin
If RunTask('calc.exe', false) then
begin
if MsgBox('Close My Program?', mbInformation, mb_YesNo) = idYes then
begin
KillTask('calc.exe');
Result:= True;
end else
Exit;
end;
Result:=True;
end;
[/more]

SotM



Цитата:

Под отменой ты подразумеваешь удалить уже распакованные файлы? Прямо так не скажу, можно тупо удалить те файлы которые распаковались до команды "Отмена", но еще нужно проследить какие именно файлы.

ну чтоб кнопку отмены вобще можно было нажать во время распаковки а удалить можно все файлы из {app}

Krinkels
Спасибо, вот только как сделать проверку на не запущенную службу и если онане запущеннна то запустить

Genri

Цитата:

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

Цитата:

архивы не SFX.

Дык, а я что писал?
Цитата:

Exec('7z.exe', 'x test.7z -pmy_pas ...

Запускается 7z.exe и распаковывает архив, что не так? О_о

Krinkels
А кто такой unpacker.exe ?!?! И какое отношение он имеет к 7z???

spider91

Цитата:

ну чтоб кнопку отмены вобще можно было нажать во время распаковки а удалить можно все файлы из {app}

Хммм, скорей всего легкого решения не будет. Наверное придется создать таймер по проверке нажатия кнопки Отмена, или еще что-то в этом роде...