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

demon75 ёмаё! итак инет гонит а ту еще ТЫ..

Скажите пожалуйста, как сделать размер шрифта с десятыми? (например 11.2)

Всем привет) Кто может скинуть скрипт Юршота, который привязан только к ".arc", без фоновой музыки и дополнительного ПО и т.д?

есть старенький скрипт для вывода сплеша:

Цитата:

function InitializeSetup(): Boolean;
var
SplashForm: TSetupForm;
SplashImage: TBitmapImage;
begin
SplashForm:=CreateCustomForm
SplashForm.BorderStyle:=bsNone
SplashImage:=TBitmapImage.Create(SplashForm)
SplashImage.AutoSize:=True
SplashImage.Align:=alClient
SplashImage.Stretch:=True
SplashImage.Parent:=SplashForm
ExtractTemporaryFile('Splash.bmp')
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Splash.bmp')
SplashForm.Width:=SplashImage.Width
SplashForm.Height:=SplashImage.Height
SplashForm.Center
SplashForm.Show
SplashImage.Refresh
Sleep(2000) //1000 - 1 секунда
SplashForm.Free
Result:=True
end;

в обычном Inno выводится точно по центру экрана, а в юникодном в левом верхнем углу - єто баг юникодной версии или в скрипте еще что-то можно исправить?

SplashForm.position:=poScreenCenter;

Может так?

Либо poDesktopCenter. Только вот эту строку закомментить надо SplashForm.Center.

Цитата:

Всем привет) Кто может скинуть скрипт Юршота, который привязан только к ".arc", без фоновой музыки и дополнительного ПО и т.д?

+1 и не мешало бы его в шапку добавить,нужная весчь ну так кто поделиться?
1.убрать слайдшоу при распаковки (при установке фоновый рисунок оставить)
2.убрать фоновую музыку
3.убрать установку доп.по (можно оставить самое не обходимое)
ну а остальное на ваш вкус и цвет товарисчи )

а как к скрипту starcraft II добавить FreeArc

Цитата:

Shwepps
скрипт
http://forum.ru-board.com/topic.cgi?forum=5&topic=33457&start=3336&limit=1&m=1#1
библиотека
http://uk.un4seen.com/files/bass24.zip

Спасибо...попробую

Добавлено:

хм... к чему бы это?

Цитата:

Добавлено:

хм... к чему бы это?

Знакомая вещь)) попробуй другим - новым компиллером

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

Shwepps
У меня такое было когда я стал использовать старый компиль

SergiusPl

Цитата:

SplashForm.position:=poScreenCenter;

спасибо - оба варианта подходят

Всеравно выдает ошибку. в скрипте что-то не так

Shwepps
Версия Inno - Unicode?
Если да, поменяй PAnsiChar на PChar.

MAKS96 зачем тебе туда Фа прикручивать?

чтобы распаковка была и размер уменьшить

MAKS96, уже повторяли стопицот раз - старкрафт без распаковки игровых архивов и сжимаемый обычным фриарком весит БОЛЬШЕ чем оригинал. Так что бредоватая мысль.
З.Ы. А вообще, в 10-й теме, где-то в конце, соединял я фришку с старкрафтом...

2ALL
Обновил в шапке коллекцию китайских DLL. Перепаковал и проверил на вирусы.

SotM
Перенеси эти два файла

Цитата:

Скрипт распаковки архивов FreeArc от Shegorat
Скачать

Тот же скрипт только немного исправленный от nik1967
Скачать

В
Цитата:

Скрипты инсталляторов для игр

, потому что это исправленные версии модуля FreeArc для скрипта YURSHAT'а Need For Speed Undercover v.2.2

Shegorat
Хммм, я не совсем понял что нужно было сделать. Я то перенёс, но как-то криво.
Ты ведь и сам можешь это сделать. Опять ленишься?

Как можно решить эту проблему?
По завершении установщика нужно запускать программу, если на ней будет стоять галочка в конце установки, с нужными параметрами, зависящими от выбранных галок в секции [code]?

Или вот так поставлю вопрос:
Как сделать, чтобы в зависимости выбранных галок в конце установки можно было вызвать ту или иную функцию/процедуру.

а как сделать такой установочный
http://rghost.ru/2356494/image.png
http://rghost.ru/2356500/image.png

MAKS96, по сути ничего сложного, инсталл почти тот же самый что и в старкрафте. Нарисуешь такие кнопки, ПБ и т.д. - сделаю такой инсталл

MAKS96

Цитата:

а как сделать такой установочный

Что значит "как"? Логичный ответ - руками!

MAKS96, залей инсталлятор на ргхост...посмотрю что да как...

это оригинал WoW.Cataclysm Pre-BETA TEST и я эго в и-нете видел но не скачивал мне он понравился вот я у вас спрашиваю как сделать

Цитата:

...вот я у вас спрашиваю как сделать

Сказали же, руками. Если сможешь предоставить все материалы - постараюсь помочь.

Не ужеле так сложно с моей проблемой?
[more]
procedure CurStepChanged1(CurStep: TSetupStep);
begin
case CurStep of
ssInstall: begin
if GetArrayLength(ADisk)>0 then begin
KillTimer(WizardForm.Handle,WFDiskTimerID);
SetArrayLength(ADisk,0);
end;
if GetArrayLength(ASysReq)>0 then begin
KillTimer(WizardForm.Handle,WFSysReqTimerID);
SetArrayLength(ASysReq,0);
end;

WizardForm.ProgressGauge.Visible:=False;

OldPosition:=0;
CurrentImage:=0;
ImgSetVisibility(WizardImg,False);
ImgSetVisibility(AImg[0],True);

ExtractTemporaryFile('ProgressBackground.png');
ExtractTemporaryFile('ProgressImg.png');
ExtractTemporaryFile('ProgressImg2.png');
NewPB:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\ProgressBackground.png'), ExpandConstant('{tmp}\ProgressImg.png'),ScaleX(119),ScaleY(300),ScaleX(560),ScaleY(25));
NewPB2:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\ProgressBackground.png'), ExpandConstant('{tmp}\ProgressImg2.png'),ScaleX(119),ScaleY(400),ScaleX(350),ScaleY(25)); //создает дорожку 2
NewPB3:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\ProgressBackground.png'), ExpandConstant('{tmp}\ProgressImg2.png'),ScaleX(479),ScaleY(400),ScaleX(200),ScaleY(25)); //создает дорожку 3 рядом

ImgApplyChanges(WizardForm.Handle);
sTime:=GetTickCount;
eTime:=sTime;
ProgressStep:=100 div GetArrayLength(AImg);

PBOldProc:=SetWindowLong(WizardForm.ProgressGauge.Handle,-4,CallBackProc(@PBProc,4));
end;
ssPostInstall: AllCancel;
end;
end;
[/more]

Созданые 2 дорожки связать с процессоми
[more]
procedure RecodePCF;
var
ResultCode: integer; CurFile: String;

begin
ExtractTemporaryFile('precomp.exe'); ExtractTemporaryFile('packjpg_dll.dll')
ExtractTemporaryFile('ProgressImg2.png');
FindFiles(ExpandConstant('{app}'), '*.pcf')
Files:= StringToArray(S, '|')
WizardForm.ProgressGauge.Max:= GetArrayLength(Files);
StatusLabel.Caption:='Рекомпрессия извлеченного файла...';

for n:=(GetArrayLength(Files)-1) downto 0 do begin
FileCopy(ExpandConstant('{tmp}\precomp.exe'),AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe', False)
FileCopy(ExpandConstant('{tmp}\packjpg_dll.dll'),AddBackslash(ExtractFilePath(Files[n]))+'packjpg_dll.dll', False)
WizardForm.FilenameLabel.Caption:= Files[n];
Exec(AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe', '-d '+AddQuotes(Files[n]), '', SW_Hide, EwWaitUntilTerminated, ResultCode)
//ProgressBar.Position:= ProgressBar.Position +1;
DeleteFile(Files[n])
DeleteFile(AddBackslash(ExtractFilePath(Files[n]))+'packjpg_dll.dll')
DeleteFile(AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe')
end;
end;
[/more]

Может кто знает, как сделать чтобы при нажатии на TNewCheckListBox ни один элемент не выделялся синим цветом?