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

Sergey_Demchuk
в IS от Restools: Shift+Ctrl+C

Sergey_Demchuk
в инно цвета в BGR а не RGB
поменяй местами первые две и последние две цифры

Sergey_Demchuk
Не, не нашёл.

Цитата:

поменяй местами первые две и последние две цифры

Да уже и не требуется, спасибо troyan90

http://s47.radikal.ru/i115/1107/34/87db6111006e.png

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

Доброго времени суток.
Убедительная просьба:
Помогите прикрутить к этому скрипту какую-нибудь версию ISDone.

P.S. Может кого заинтересует: это скрипт как у Fenix'a

Sergey_Demchuk

Цитата:

Спасибо, я так и делал, но не подошло.

Можно узнать, почему? для дефолтного компонент-листа это единственное решение.

Gnom3
Как то делал репак Adobe Photoshop CS5 v.12.0.3 c интегрироваными плагинами.
Единственное расширение форматов 8bi и PSD реалезовано через реестр с указанием на иконки в папке куда установлен репак (через shell).Ну это просто так для примера, может пригодится)))
Если чё могу скинуть сам Репак упакованный в арк архив (67мб) расспаковывается рядом с полученным сетапником.

Y4enik32
Это полный скрипт Fenix'a с IsDone и исходниками.

Ребят помогите, такая ошибка:
Ошибка запуска консольного приложения precomp038.exe в ISPrecompExstract

http://rghost.ru/9154541 вот этот скрипт меня очень заинтересовал, пробывал сам сделать, не получилось, у кого есть исходник можно, хочу глянуть и зацепить кое-что себе в скрипт

Цитата:

Sergey_Demchuk

Цитата: Спасибо, я так и делал, но не подошло.

Можно узнать, почему? для дефолтного компонент-листа это единственное решение.

Я писал парой страниц ранее. Создавал InfoPanel := TPanel.Create(WizardForm) с функцией
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';

Вот на этот InfoPanel мне как и на ComponentsList нужно было тоже наложить картинку. Это не проблема. Но проблема оказалась в том, что как только я подвожу мышкой к каому либо компоненту из списка, картинка из InfoPanel пропадает и появляется описание этого компонента. Мне же нужно было чтоы описание появлялось и картинка не пропадала, а была фоном под описанием. У меня не получилось...

люди подскажите пожалуйста как убрать слайд шоу в скрипте Need for Speed™ Undercover.iss v 2.2 [Final]

и еще и где найти эту строчку

crysis1830,
Вот:
#define NeedSize "6315"

4-ая строка.


Добавлено:
Всем привет.

Подскажите пожалуйста какие самые лучшие методы сжатия есть кроме 7Zip-Srep-Precomp-Arc?
Или может для прекомп и среп есть строки?

TheNoobKZ
зажми ctrl+alt+del потом посмотрина инстал.
Кода нет. Разработка Профагера . У него проси, врядли он даст тебе код.

Цитата:

Подскажите пожалуйста какие самые лучшие методы сжатия есть кроме 7Zip-Srep-Precomp-Arc?
Или может для прекомп и среп есть строки?

Тебе сюда => http://forum.ru-board.com/topic.cgi?forum=5&topic=30239&start=0

Sergey_Demchuk
В примерах от рестулся есть пример, который называется Example_NewCheckListBox.iss, там фон компонент0листа и фон панели с описанием компонентов, все четко работает, разбирай его, смотри, как сделано.
Вот, вычистил от всего лишнего, как видиш, работает все четко Скачать.

Цитата:

Y4enik32
Это полный скрипт Fenix'a с IsDone и исходниками.

Спасибо конечно но мне нужно именнто в мой пример скрипта вставить IsDone (желательно 0.6)

Y4enik32
Держи. Цвета и расположения лейбелов и прогрессбара в модуле исдоне, думаю, сам сообразиш?

А есть у кого ни-будь ещё разные красивые и многофункциональные скрипты? Можно выложить в топик со скриптами

TheNoobKZ



Цитата:

А есть у кого ни-будь ещё разные красивые и многофункциональные скрипты?

что ты подразумеваешь под многофункциональным?

Ну вообще это я так) С чекбоксами и т.п. Для начала можно выложить скрины, я потом посмотрю и могу выбрать. Пожалуйста

Ребята, помогите пожалуйста. Ранее в ветке, кажется 9, проскакивал скрипт декодирования OGG файлов в WAV, но в нем был баг, не обрабатывалить файлы и папки которые содержали пробелы в имени. Помогите подправить плз

[more=Собственно сам скрипт..]

[Setup]
AppName=RecodeOgg
AppVerName=RecodeOgg
OutputDir=.
OutputBaseFilename=RecodeOgg
DefaultDirName={pf}\RecodeOgg
AppendDefaultDirName=False
DisableDirPage=True

[files]
Source: oggdec.exe; DestDir: {app};
Source: oggs\*; DestDir: {app};
Source: oggs\*; DestDir: {app}\Data;

[code]
var
Files: Array of String;
S: String;
n: Integer;

Function StringToArray(Text, Cut: String): array of String; var i, k: Integer;
Begin
SetArrayLength(Result, 0); if Cut = '' then Cut:= #1310; //если шаблон пуст, считаем переводы строк
Repeat k:= Pos(Cut,Text);
if k = 1 then begin Delete(Text, 1, Length(Cut)); CONTINUE
end;
SetArrayLength(Result, GetArrayLength(Result) +1); i:= GetArrayLength(Result) -1;
if k = 0 then
Result[i]:=Text
else begin
Result[i]:= Copy(Text, 1, k -1); Delete(Text, 1, Length(Result[i]) + Length(Cut));
end;
Until Length(Text) * k = 0;
End;

procedure FindFiles(FromDir: String; Mask: String);
var FSR, DSR: TFindRec; FindResult: Boolean;
begin
FindResult:= FindFirst(AddBackslash(FromDir)+Mask, FSR)
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
S:= S + AddBackslash(fromDir) + FSR.Name +'|';
end;
FindResult:= FindNext(FSR);
end;
FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR)
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
FindFiles(AddBackSlash(FromDir)+DSR.Name, Mask)
end;
FindResult:= FindNext(DSR);
end;
FindClose(FSR); FindClose(DSR)
end;

procedure RecodeOgg;
var ResultCode: integer; CurFile: String;
begin
FindFiles(ExpandConstant('{app}'), '*.ogg') //Находим все файлы по маске, в выбранной папке
Files:= StringToArray(S, '|') //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files)-1; //Получаем кол-во файлов
for n:=(GetArrayLength(Files)-1) downto 0 do begin
CurFile:= Files[n]
StringChange(CurFile, AddBackslash(ExpandConstant('{app}')), '')
Exec(ExpandConstant('{app}\oggdec.exe'), '-Q '+CurFile, '', SW_Hide, EwWaitUntilTerminated, ResultCode) //Для каждого файла запускаем декодер
DeleteFile(Files[n]) //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files[n]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;
DeleteFile(ExpandConstant('{app}\oggdec.exe'))
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then RecodeOgg;
end;

[/more]

... и как бы под него ниже отдельный прогресбар прикрутить, который бы плясал от к-ва файлов OGG ?
К сожалению не силен в паскале, получаются только более простые скрипты

Цитата:

Dark_Delphin

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

ssv14

Цитата:

Помогите подправить

Видимо здесь надо поправить ...

Код:
Exec(ExpandConstant('{app}\oggdec.exe'), '-Q '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode);

Эх, если б я знал как. В батнике решается двойными кавычками


Код: oggdec.exe "DATA\User\Fanfare true\Heavy rock.ogg"

ssv14

Цитата:

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

Он и так там уже прикручен, правда не отдельный, а стандартный.
Пережатие файлов идёт ведь в конце инсталяции, там стандартный прогресс уже
заполнен.
Можно его сбросить в ноль перед началом пережатия файлов, (думаю так и было задумано)

Код:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
RecodeOgg;
end;
end;

да, прогресс бар теперь сбрасывается
а можно как-то подписать его, что-то типа

Код: StatusMsg: "Извлечение аудио файлов..."

ssv14

Цитата:

а можно как-то подписать его, что-то типа


Код:StatusMsg: "Извлечение аудио файлов..."

Код:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Извлечение аудио файлов...';
RecodeOgg;
end;
end;

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

serg_aka_lain

ты подправил его? теперь в самом деле правильно обрабатывает имена с пробелами, спасибо тебе огромное за помощь

ssv14

Цитата:

теперь в самом деле правильно обрабатывает имена с пробелами

Да, нормально работает, и прогрессбар тоже
Код, с учётом всех исправлений