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

Цитата:

Kizyak
ну так удалите его после распаковки
для этого нужно менять значение перед Callback с false на true

TaTTDoGG огромное спасибо, исчез архив)))) проблема решена)

AleSasha
в том то и дело что у меня в инсталяторе используется скин, который не зависит от цветовой схемы системы. запустите вы её на 7 или же на win95 - разницы не будет

а чтобы заменить на чекбоксы нужно заюзать такой код:

Код: [Code]
var
NewCheckBox1: TNewCheckBox;

procedure NewCheckBox1Click(Sender: TObject);
begin
if(NewCheckBox1.State = cbChecked) then
WizardForm.NextButton.Enabled:=true
else
WizardForm.NextButton.Enabled:=false;
end;

procedure RedesignWizardForm;
begin
WizardForm.LicenseNotAcceptedRadio.Visible := False;
WizardForm.LicenseAcceptedRadio.Visible := False;

NewCheckBox1 := TNewCheckBox.Create(WizardForm);
with NewCheckBox1 do
begin
Name := 'NewCheckBox1';
Parent := WizardForm.LicensePage;
Left := ScaleX(0);
Top := ScaleY(208);
Width := ScaleX(417);
Height := ScaleY(17);
Caption := 'Я согласен с Вашими условиями';
OnClick := @NewCheckBox1Click;
end;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;

TaTTDoGG
Скажите, а кнопки, полоса прокрутки и т.д. тоже не зависят у Вас от цветовой схемы Виндоус?

AleSasha
так точно
вот примеры инсталятора со скином
http://imageshack.us/photo/my-images/265/40129638.jpg/
http://isskin.codejock.com/public/img/styles-office2007-blue-large.jpg
http://isskin.codejock.com/public/img/content_img_1.jpg
http://www.imageup.ru/img10/setup-skin71519.png

TaTTDoGG, Насчёт службы что-то не то, при запуске ПО для устройства, пишет XServices.exe не найден, пожалуйста переустановите программу.

TaTTDoGG

Спасибо за чекбокс.

Чекбокс работает, но после нажатия на клавишу "Дальше", ничего не происходит...

AleSasha
да, забыл
после

Код: WizardForm.LicenseAcceptedRadio.Visible := False;

TaTTDoGG
а я про архив который образуется после распаковки прикомпа ).

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

TaTTDoGG
Цитата:

подправил параметры.

Спасибо. Пишу с линукса, возможности проверить нет, так как не понятно куда всё исчезло, рабочий стол пустой, папка Администрирование тоже пуста и интернет не подключает, переустановлю систему опробую.

dimitry999

Цитата:

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

Код:
[code]
procedure InitializeUninstallProgressForm;
var
NewProgressBar1: TNewProgressBar;
begin
NewProgressBar1 := TNewProgressBar.Create(WizardForm);
with NewProgressBar1 do
begin
Name := 'NewProgressBar1';
Parent := UninstallProgressForm;
Left := ScaleX(8);
Top := ScaleY(327);
Width := ScaleX(230);
Height := ScaleY(17);
end;
end;

Цитата:

никто не добавляет службу через реестр.

Install Shield всё успешно добавляет.

Devils_Night
ща проверю на inno

TaTTDoGG

Спасибо разобрался.

TaTTDoGG

Спасибо!

Возможно ли изменить цвет скроллбара, кнопок?

Или, например, цвет рамки PasswordEdit ?

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

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




вот скрипт буду очень признателен http://rghost.ru/31797361

Всем привет кто может подсказать что это может быть, Делаю розбивку на 2 диска в конце установки второго диска вылазит ошибка что неверный том , пока не вставиш 1 диск установка не закончится что делать??

TaTTDoGG

Цитата:

цвет скроллбара нет
кнопок нет
рамки нет )))
AleSasha, используйте скины
вы можете нарисоваьт свой собственный скин, который не будет зависеть от системы.

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

Всем привет кто может подсказать что это может быть, Делаю розбивку на 2 диска в конце установки второго диска вылазит ошибка что неверный том , пока не вставиш 1 диск установка не закончится что делать??

AleSasha
есть скины для windows xp. я думаю вы с ними знакомы. есть программка ISSkin (скачать можно тут: http://isskin.codejock.com/ ). в ней можно открывать эти скрины для XP, редактировать (если нужно) и сохранять в формать, который понимает Inno Setup.
ну вот есть у вас файл скрина. пишем следующий код:

Код:
[Files]
;сам файл скина
Source: TigerModified.cjstyles; DestDir: {tmp}; Flags: dontcopy;
;библиотека для подгрузки скинов
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy;

[Code]
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar);
external 'LoadSkin@files:isskin.dll stdcall delayload';
procedure UnloadSkin;
external 'UnloadSkin@files:isskin.dll stdcall delayload';

function InitializeSetup: Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\TigerModified.cjstyles')) then ExtractTemporaryFile('TigerModified.cjstyles');
LoadSkin(ExpandConstant('{tmp}\TigerModified.cjstyles'), '');
Result:=true;
end;

procedure DeinitializeSetup();
begin
//выгружаем скин
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')),0);
UnloadSkin;
end;

TaTTDoGG
Проблему решил Спасибо за подскаску

TaTTDoGG
Большое спасибо!
Попробую разобраться...

TaTTDoGG, Сейчас проверил, служба не запускается вообще, да и в службах её нет чтобы остановить или запустить её. Насчёт добавление веток в реестр, раз десять проверил Install Shield без проблем добавляет ветви в Root и.т.д, не понятно почему этого не умеет Inno Setup.

P.S А насчёт проблемы всё решил путём переустановки, там в другом была проблема, извини за необоснованные претензии.
Посты выше переписал.
Блин, я уже начинаю поступать как админ или модер, сначала говорить а потом думать.

Devils_Night
забыли

странно. я сделал чтобы inno добавлял aimp3.exe как службу и всё норм. в службах появилась, но конечно не запускается.
может скинь сюда секцию Registry
я попробую чонить сделать

TaTTDoGG
Цитата:

может скинь сюда секцию Registry

[more]
Код: ;[Registry]
; Служба 1
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE; ValueType: dword; ValueName: NextInstance; ValueData: $00000001; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: string; ValueName: Service; ValueData: X Service; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: dword; ValueName: Legacy; ValueData: $00000001; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: dword; ValueName: ConfigFlags; ValueData: $00000000; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: string; ValueName: Class; ValueData: LegacyDriver; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: string; ValueName: ClassGUID; ValueData: {{8ECC055D-047F-11D1-A537-0000F8753ED1}; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000; ValueType: string; ValueName: DeviceDesc; ValueData: X Service; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000\Control; ValueType: dword; ValueName: *NewlyCreated*; ValueData: $00000000; Flags: uninsdeletekey; Permissions: everyone-full
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Enum\Root\LEGACY_X_SERVICE\0000\Control; ValueType: string; ValueName: ActiveService; ValueData: X Service; Flags: uninsdeletekey; Permissions: everyone-full
;
; Служба 2
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\X Service; ValueType: dword; ValueName: Type; ValueData: $00000110; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\X Service; ValueType: dword; ValueName: Start; ValueData: $00000002; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\X Service; ValueType: dword; ValueName: ErrorControl; ValueData: $00000001; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\X Service; ValueType: string; ValueName: ImagePath; ValueData: hex(2):43,00,3a,00,5c,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,20,00,46,00,69,00,6c,00,65,00,73,00,5c,00,5a,00,54,00,45,00,20,00,4a,00,6f,00,69,00,6e,00,20,00,41,00,69,00,72,00,5c,00,41,00,73,00,73,00,69,00,73,00,74,00,61,00,6e,00,74,00,53,00,65,00,72,00,76,00,69,00,63,00,65,00,73,00,2e,00,65,00,78,00,65,00,00,00; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServices; ValueType: string; ValueName: DisplayName; ValueData: X Service; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServices; ValueType: string; ValueName: ObjectName; ValueData: LocalSystem; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServices\Security; ValueType: binary; ValueName: Security; ValueData: 01 00 14 80 90 00 00 00 9c 00 00 00 14 00 00 00 30 00 00 00 02 00 1c 00 01 00 00 00 02 80 14 00 ff 01 0f 00 01 01 00 00 00 00 00 01 00 00 00 00 02 00 60 00 04 00 00 00 00 00 14 00 fd 01 02 00 01 01 00 00 00 00 00 05 12 00 00 00 00 00 18 00 ff 01 0f 00 01 02 00 00 00 00 00 05 20 00 00 00 20 02 00 00 00 00 14 00 8d 01 02 00 01 01 00 00 00 00 00 05 0b 00 00 00 00 00 18 00 fd 01 02 00 01 02 00 00 00 00 00 05 20 00 00 00 23 02 00 00 01 01 00 00 00 00 00 05 12 00 00 00 01 01 00 00 00 00 00 05 12 00 00 00; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServicesEnum; ValueType: string; ValueName: 0; ValueData: Root\LEGACY_X_SERVICE\0000; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServices\Enum; ValueType: dword; ValueName: Count; ValueData: $00000001; Flags: uninsdeletekey
Root: HKLM; SubKey: SYSTEM\CurrentControlSet\Services\XServices\Enum; ValueType: dword; ValueName: NextInstance; ValueData: $00000001; Flags: uninsdeletekey

Здравствуйте.

У меня записана в сетапе строка:

[Setup]
AppPublisher=Publisher

Почему, после запуска инсталляционного файла, появляется надпись Unknown Publisher ?

Спасибо.

AleSasha
у меня с данной надпись всё работает. скорее всего ошибка где-то рядом. выше или ниже строкой.
или вообще не в той строке

TaTTDoGG


Цитата:

у меня с данной надпись всё работает. скорее всего ошибка где-то рядом. выше или ниже строкой.
или вообще не в той строке

Вот, что у меня в сетапе:

[Setup]
WizardImageFile=Image.bmp
WizardSmallImageFile=Image.bmp
AppName=programma
AppVerName=programma ver. 1
AppPublisher=Publisher Name
AppPublisherURL=http://...
AppSupportURL=http://...
AppUpdatesURL=http://...
DefaultDirName=c:\...
DefaultGroupName=programma
DisableProgramGroupPage=yes
LicenseFile=C:\...License.rtf
OutputDir=C:\...
OutputBaseFilename=programma_setup
SetupIconFile=C:\...progr.ico
Encryption=true
Password=123
Compression=lzma/max
SolidCompression=yes
AppCopyright=Copyright (C) 2011
DisableReadyMemo=True
DisableDirPage=True
AlwaysShowDirOnReadyPage=True
FlatComponentsList=true

Также заметила, что пропадает иконка из названия файла сетапа...

Devils_Night
через реестр на самом деле не получилось. видно система не разршает всяким инно сетапам создавать разделы в системных разделах реестра ))

зато вот проект который добавляет вашу службу в службы и запускает.
при удалении служба останавливается и удаляется.
код 200% рабочий и никаких повреждений компьютеру нанести не может http://rghost.ru/31943531

Добавлено:
AleSasha
точки вы сами расставили? скиньте полностью секцию setup как она у вас есть