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

Добрый вечер!
Подскажите, что за ошибка?
http://ua.lostpic.net/images/262ba17941c1f62b402d9f5d5e816d9d.png

R3Pa4eK

Цитата:

WizardForm.Position:=poScreenCenter;

перестает работать прозрачность в вин 7/8
insombia
ога, именно это и оставил - то что нужно

вот что осталось не решонным (((

Цитата:

Помогите со скриптом: http://rghost.ru/25048601
пытаюсь сделать у кнопки BeveledLabel=-= © 2011 User =- прозрачный бекграунд

Begun999 как архив называется?

insombia
data.bin

Цитата:

vistaw

Задай условие, чтоб после выполненной операции происходила перезагрузка.

свой check?
shutdown -a?
postintall?
restartreplace?

Суть в том чтобы после перезагрузки запустился батник с созданием службы, и несколько моих exe зависимых от этой службы выполняющих необходимые действия, и запуск основного exe программы
То есть после перезагрузки 5 - 6 фалов в секции run

Как лучше реализовать?
Спасибо.

объясните почему эта функция не срабатывает только на logPage ???

причем судя по мессаджбоксам в условие входит

Код:
function ShouldSkipPage(PageID: Integer): Boolean;
begin
{ Skip pages that shouldn't be shown }

if (not IsTaskSelected('OCS')) and (PageID = TAGPage.ID) then
Result := True
else if (not IsTaskSelected('LogMeIn')) and ((PageID = logmeinPage.ID) or (PageID = logPage.ID)) then
Result := True
else
begin
if (PageID = wpSelectTasks) then
begin
ocsTAG := GetIniString('Org'+inttostr(GetWizardSetupType()+1), 'ocsTAG', 'Error', 'C:\временная\example.ini');
LogmeinTAG := GetIniString('Org'+inttostr(GetWizardSetupType()+1), 'LogmeinTAG', 'Error', 'C:\временная\example.ini');
end;
if (PageID = logPage.ID) and (LogmeinTAG <> '' ) then
begin
login := '/c msiexec /i {tmp}{\logmein.msi /q ACCOUNTEMAIL=' + logmeinTAG + ' USERPASSWORD=' + logmeinPage.Values[0] + ' USERVERIFYPWD=' + logmeinPage.Values[0] + ' USEREMAIL=' + logmeinTAG + ' USERWEBPASSWORD=' + logmeinPage.Values[0] + ' LicenseType=free'

Result := True
end
else
begin
login := '/c msiexec /i {tmp}{\logmein.msi /q ACCOUNTEMAIL=' + logPage.Values[0] + ' USERPASSWORD=' + logmeinPage.Values[0] + ' USERVERIFYPWD=' + logmeinPage.Values[0] + ' USEREMAIL=' + logPage.Values[0] + ' USERWEBPASSWORD=' + logmeinPage.Values[0] + ' LicenseType=free'
Result := False;
end;
if ((PageID = TAGPage.ID) and (ocsTAG <> '' )) then
begin
s := 'install /S /UPGRADE /NOSPASH /SERVER:svc.ru /NP /DEBUG /NOW /TAG:' + ocsTAG;
Result := True
msgbox('ocs не срабатывает', mbInformation, MB_OK);
msgbox(s + ' ' + ocsTAG, mbInformation, MB_OK);
end
else
begin
s := 'install /S /UPGRADE /NOSPASH /SERVER:svc.ru /NP /DEBUG /NOW /TAG:' + TAGPage.Values[0];
Result := False
end;
end;
end;

Идет набор репакеров желающие могут выложить свои работы и оставить заявку parabox.net

интересует вопрос, как сделать чтобы при инсталяции не создавалась папка?
и как зашифровать в поле вводимую информацию?

NumberI
Телепаты уже ДАВНО В ОТПУСКЕ! Какая папка и какое поле?

NumberI
1) - UninstallFilesDir={app}
2) - Поподробнее

vistaw, он имеет ввиду KeyEdit типа. Едит для пароля.

Помогите пожалуйста, при распаковке вылазиет такая ошибка - http://s002.youpic.su/pictures/1319054400/a6c5b72cb08b9b2dc5c46ae9ef75d69d.png Как быть?

vistaw
R3Pa4eK
1) CreateAppDir=no
2) Page.Add('USERVERIFYPWD:', true);

ISPriorityClass.dll
--- Предназначена для установки приоритета...
--- Версия: 1.0.0

Скачать

vintage_1
Тут приоритет можно устанавливать только для инсталлятора, но не для процессов. Это штука бесполезна если используешь ISDone и подобные.

Подскажите пожалуйста код на мигание (красно-белый) при неудачной распаковке.

Идет набор в группу "R.G ParaBOX"
оставляем свои заявки на http://parabox.net
Требуется 2репакера и еще 2фотошопера

EDIK3472
Ты читать умеешь?
Тут не набор РЕПАКЕРОВ, тут тема Inno Setup !!!

VendettaDeToli
Цитата:

Подскажите пожалуйста код на мигание (красно-белый) при неудачной распаковке.

Примеры проверки свободного места с миганием. 2 примера: с использованием botva2.dll и без.
P.S. Невнимательно прочитал вопрос, но думаю, что по приведённым примерам можно самому переделать данный пример. Ну или скачай скрипт UFO, в котором реализована данная фишка. Для подсказки: procedure FinishFlashing(h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);

1) Как сделать чтобы в скрипте выполнялась компиляция другого скрипта, распакованного в {app} (во время установки) и установка скомпилированного сетапа в тихом режиме, но с отображением на прогресс-баре?
2) Как сделать так чтобы прогресс установки отображался на панели задач, то есть там где обычно название на таскбаре пишется были проценты - видел такое на репаках, но мне надо чтобы работало без исдана.

Как добавить сцыль на логотип?
Код из iswin7logo.dll в 0.9

Код:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=.

[Files]
Source: logo.png; Flags: dontcopy
Source: iswin7logo.dll; Flags: dontcopy

[Code]
procedure islogo_one(Handle:HWND);
external 'islogo_one@files:iswin7logo.dll stdcall';

procedure islogo_two(Handle:HWND; FileName: PAnsiChar; Left, Top: Integer);
external 'islogo_two@files:iswin7logo.dll stdcall';

function islogo_three(Handle:HWND): Boolean;
external 'islogo_three@files:iswin7logo.dll stdcall';

procedure InitializeWizard();
begin
ExtractTemporaryFile('Logo.png');
islogo_one(WizardForm.BackButton.Handle);
islogo_one(WizardForm.NextButton.Handle);
islogo_one(WizardForm.CancelButton.Handle);

islogo_Two(WizardForm.Handle,ExpandConstant('{tmp}\logo.png'),5,320);
end;

procedure DeinitializeSetup();
begin
islogo_three(WizardForm.Handle);
end;

Цитата:

Как добавить сцыль на логотип?

Никак

VAnO_2
Создаешь TNewStaticText, делаешь его черным и назначаешь ему событие при нажатии (OnClick);

nik1967
Спасибо за подсказку, разобрался.
Добавил пару строк и теперь мигает!

Чтобы установить программу иногда нужно чтонибудь удалить из предыдущих настроек ;-
Лучший способ для этого, я догадался, это преименование папки перед удалением.
Вот мой пример:

Код:
procedure InitializeWizard();
var
ResultCode: Integer;
begin
Exec('cmd.exe', '/c attrib -r -s -h "%AllUsersProfile%\Application Data\GPSoftware" && ren "%AllUsersProfile%\Application Data\GPSoftware" {ED52C76E-8D5B-4EB9-B620-AEFF32518AE9} && rd /s /q "%AllUsersProfile%\Application Data\{ED52C76E-8D5B-4EB9-B620-AEFF32518AE9}"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
Exec('cmd.exe', '/c attrib -r -s -h "%UserProfile%\Application Data\GPSoftware" && ren "%UserProfile%\Application Data\GPSoftware" {ED52C76E-8D5B-4EB9-B620-AEFF32518AE9} && rd /s /q "%UserProfile%\Application Data\{ED52C76E-8D5B-4EB9-B620-AEFF32518AE9}"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode)
Exec('cmd.exe', '/c attrib -r -s -h "%UserProfile%\Local Settings\Application Data\GPSoftware" && ren "%UserProfile%\Local Settings\Application Data\GPSoftware" {ED52C76E-8D5B-4EB9-B620-AEFF32518AE9} && rd /s /q "%UserProfile%\Local Settings\Application Data\{ED52C76E-8D5B-4EB9-B620-AEFF32518AE9}"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode)

Sleep(1000)
end;

VAnO_2, ссыль на картинку, где кликабелен WizardBitmapImage:


Код:
[Сode]
procedure WizardBitmapImageClick(Sender: TObject); forward;


procedure WizardBitmapImageClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExecAsOriginalUser('open', 'http://forum.ru-board.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
WizardForm.WizardBitmapImage.OnClick:=@WizardBitmapImageClick;
end;

Есть у кого пример кода для подсчета сумы обьема выбранных компонентов, WizardForm.ComponentsDiskSpaceLabel.Caption возвращает пустую строку.

Sergey_Demchuk
[Setup]
#ifdef NeedSize
ExtraDiskSpaceRequired={#NeedSize}
#endif

#ifdef Components
[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 100000000
Name: text\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 200000000
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 500000000
Name: voice\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 600000000
#endif

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

Sergey_Demchuk

вот чтото такое вышло:
[more=код]
Код: [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 100000000
Name: text\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 200000000
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive; ExtraDiskSpaceRequired: 500000000
Name: voice\eng; Description: Английский; Flags: exclusive; ExtraDiskSpaceRequired: 60000000

[_Code]
var
OldEvent_ComponentsListClickCheck: TNotifyEvent;
Label1: TLabel;

procedure ComponentsListClickCheck(Sender: TObject);
begin
OldEvent_ComponentsListClickCheck(Sender);
Label1.Caption := WizardForm.ComponentsList.ItemSubItem[3];
end;

procedure InitializeWizard();
begin
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm;
Transparent := True;
Left := ScaleX(32);
Top := ScaleY(328);
end;
with WizardForm.ComponentsList do
begin
OldEvent_ComponentsListClickCheck := OnClickCheck;
OnClickCheck := @ComponentsListClickCheck;
end;
end;