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

DRIFTER2592,
Тыц, с остальным точно так же.

Ктонить подскажет, как правильно прописать совместимость к игре? Тоесть когда я выставляю так:


Код: Root: HKU; Subkey: "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"; ValueType: String; ValueName: "{app}\Diablo.exe"; ValueData: "WIN98 256COLOR 640X480 DISABLETHEMES DISABLEDWM HIGHDPIAWARE"; Components: Game\Diablo; MinVersion: 0,5.01.2600; Flags: Uninsdeletekey

DRIFTER2592

Цитата:

Убрать иконку в левом верхнем углу
Убрать текст с welcom page и finished page
Почему-то не работает directx...
Хотелось бы прикрутить фриарк, но чтобы было написано "распаковка архивов", прогресс бар продвигался нормально (как при "стандартном" сжатии), показано сколько % прошло и не было написано "Распаковывается архив 1 из 1" (как это бывает часто)
Ярлыки должны создаваться после распаковки архивов
Также сделать чтобы во время распаковки кнопка отмена была не активна

Иконка убрана, то есть отключил сис меню, directx теперь работает, запускался с неверным ключом, кнопка отмены будет неактвна. Вот сам скрипт.

Добавлено:
Да и еще, тексты с welcom page и finished page тоже убраны. Я там все изменения закомментировал, чтобы было понятнее.

Цитата:

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

Isexec тебе в помощь

bugron, спасибо большое, прям как хотел!

Цитата:

bugron, спасибо большое, прям как хотел!

Всегда пожалуйста и спасибо за хороший скрипт.

Просмотрите пожалуста реестр. Делал впервые, может кто разбирается.
http://rghost.ru/17882071

Помогите, пожалуйста. Я упаковал файлы игры в архив .arc. Переместил его в главную папку игры, остальные файлы переместил. Создал инсталлятор обычным способом. После инсталляции и распаковки архива, снова получилась главная папка игры с файлами, НО и с архивом. Вопрос: как его удалить после распаковки, не спрашивая пользователя?

Цитата:

Просмотрите пожалуста реестр. Делал впервые, может кто разбирается.

Я посмотрел и там нашёл очень много ошибок. Поправить весь 200 кб-ый файл будет трудно и поэтому думаю никто коме вас этого не станет делать. Если у вас есть рабочий reg файл этих ключей, то занесте их в реестр с помощью regedit-а. Ну как-то так:

Код:
[Run]

Filename: regedit.exe; Parameters: "/s {tmp}\asdf.reg"; WorkingDir: {tmp}; StatusMsg: Занесение данных в реестр...; Flags: waituntilterminated;

[_Code]
procedure InitializeWizard;
begin
ExtractTemporaryFile('asdf.reg');
end;

Begun999 если ты хотел взять реестр из игры Братва и Кольцо: смешная игра от Гоблина то он написан на Inno setup ты можеш и так посмотреть через Inno Setup Unpacker 0.36

bugron,vint56 Спасибо большое!
Делал через RegShot 2.1.0.17. Может подскажите что-то ещё, чем можно снять реестр?

Добавлено:
vint56
Подскажи как правильно это сделать.

прикрутите к моему скрипту иконку папки на странице папки и меню пуск через ботву

скрипт
иконка

Цитата:

Может подскажите что-то ещё, чем можно снять реестр?

Для отслеживания изменений в файловой системе и реестре я уже давно использую отличную прогу Total Uninstall. Все изменения в реестре можно експортировать в reg файл. Вообщем удобно. Кстати, вот ссылка на программу.

Добавлено:
А потом конвертировать созданный reg файл в скрипт Inno Setup с помощью Converter REG to Inno Setup/

bugron
СПАСИБО ОГРОМНОЕ!!! Попробую, хоть в этом не спец.

Begun999 это будет офф топ скачай прогу Total Uninstall 5 там есть возможность проноблюдать с Total Uninstall она покажит что куда установилось

vint56
Вот снимок, какой нужно файл?
http://fastpic.ru/view/25/2011/0814/cc7a696a36dcccaa9b79101bcba9370e.png.html
Конвертировать я понял как

Если хочешь извлечь все изменения в реестре, то делаешь следующее:
Файл -> Извлечь -> Изменения в реестре... и нажимешь ОК
Если нужно извлечть только одни раздел, то:
Правый клик по разделу -> Открыть и уже в regedit-е экспортируешь.
Если разделов несколько, то извлекаешь по очередно, потом объеденяешь в текстовом редакторе.

Спасибо, всё понял. Ещё один вопрос, а нужно ли реестр Uninstalla?

Цитата:

Спасибо, всё понял. Ещё один вопрос, а нужно ли реестр Uninstalla?

Ну там могут быть параметры которые надо прописывать вручную, скажем путь установки и т.д.

bugron
СПАСИБО!!!
Посмотри личку.

bugron
Большое спасибо! И ещё один вопрос, если не надоел. Допустим я создал несколько архивов. Можно ли сделать так, чтобы после распаковки первого архива он удалялся, после распаковки второго он удалялся и т.д.?

Цитата:

Большое спасибо! И ещё один вопрос, если не надоел. Допустим я создал несколько архивов. Можно ли сделать так, чтобы после распаковки первого архива он удалялся, после распаковки второго он удалялся и т.д.?

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

Percey123,
http://forum.krinkels.ru/showthread.php?t=34

прикрутите к моему скрипту .png иконку папки на странице папки и меню пуск через ботву

скрипт
иконка

Добавлено:
обєдините Install И PostInstall на одной странице или просто удалите Install
troyan90 зарание спасиба.Етот скрипт я делал по ево Hitman - Blood Money весии непомню
скрипт

bugron
К сожалению, сейчас не могу выложить скрипт, т.к. он ещё не готов. Выложу, как только доработаю.

VASYAKRN

Цитата:

рикрутите к моему скрипту .png иконку папки на странице папки и меню пуск через ботву

[more=Пример]
Код: [Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AppPublisher=YURSHAT

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: botva2.dll; Flags: dontcopy
Source: DirImage.png; Flags: dontcopy
Source: GroupImage.png; Flags: dontcopy

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"

[Code_]
var
SelectDirBitmapImage, SelectGroupBitmapImage: Longint;

function ImgLoad(Wnd :HWND; FileName: PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
Result:=True;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('DirImage.png');
ExtractTemporaryFile('GroupImage.png');

WizardForm.SelectDirBitmapImage.Hide;
WizardForm.SelectGroupBitmapImage.Hide;

SelectDirBitmapImage:=ImgLoad(WizardForm.SelectDirPage.Handle,ExpandConstant('{tmp}\DirImage.png'),ScaleX(0), ScaleY(0),ScaleX(48),ScaleY(48),True,True);
SelectGroupBitmapImage:=ImgLoad(WizardForm.SelectProgramGroupPage.Handle,ExpandConstant('{tmp}\GroupImage.png'),ScaleX(0), ScaleY(0),ScaleX(48),ScaleY(48),True,True);

ImgApplyChanges(WizardForm.SelectDirPage.Handle);
ImgApplyChanges(WizardForm.SelectProgramGroupPage.Handle);
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

Подскажите как сделать чтобы весь текст был только белом фоне http://images.bcm.net.ua/images/7045...116723403.jpg?
P.S. Копирование файлов... и так далее не в счет

Я тут посмотрел, в шапке все ссылки на Inno Form Designer не рабочие. Сегодня сделал инсталл на русском и английском, аерсия проги 2.0.8. Вот ссылки: первая и вторая, думаю можно добавить в шапку.

Добавлено:

Цитата:

Подскажите как сделать чтобы весь текст был только белом фоне http://images.bcm.net.ua/images/7045...116723403.jpg?

Вот, что пишет:

Невозможно найти ресурс.
Возможно он был удален, переименован, или временно недоступен.

Добавлено:
YURSHAT
Спасибо за пример.
Добавл в скрипт VASYAKRN-а, картинка появляется, но с каким-то фоном.

Цитата:

Вот, что пишет:

Невозможно найти ресурс.
Возможно он был удален, переименован, или временно недоступен.

http://i24.fastpic.ru/big/2011/0815/67/7aa4b8faca6fef8ab931fb4d86d56767.jpg

p.s. А есть ли у кого то пример на проценты которые под прогресс баром идут?

Да и ещё, кто-та занимается обновлением русской справки для Inno Setup?

Добавлено:
insombia

Цитата:

http://i24.fastpic.ru/big/2011/0815/67/7aa4b8faca6fef8ab931fb4d86d56767.jpg

p.s. А есть ли у кого то пример на проценты которые под прогресс баром идут?

Во первых выкладывай скрипт, во вотрых, вот пример, также показывает размер текущего файла в байтах.


Добавлено:
insombia
Что-то вроде этого:

Код:
[_Code]
procedure InitializeWizard();
begin
with WizardForm.FilenameLabel do
begin
Font.Color := clWhite;
end;

with WizardForm.StatusLabel do
begin
Font.Color := clWhite;
end;
end;