[GoshaPolo]

Johny777, спасибо еще раз! У меня справка в .chm не работает почему-то. Страницы не отображает. Поэтому пользуюсь другими источниками, а там такого флага не было

[Gnom_aka_Lexander]

GoshaPolo, она работает. кликни в списке и все откроется. справка кривовата, но работает. еще вариант - в свойствах файла справки посмотри - если есть кнопка "Разблокировать" то нажми ее и потом - применить.

[bear!]

Как отключить разбиение файлов? Нужно все в одном exe. Размер около одного гигабайта. Такое возможно?
Просто файл .bin не особо нужен (получается два файла)

[zeroka_no_onna]

Подскажите про Inno + ISDone!

Потребовалось разбить репак на диски и там arc, precomp - потому ISDone для нормального отображения прогресса.
И получилось вот что - при запуске сетапа сразу просит второй диск, как выберешь параметры и "Установить" - опять просит первый!!!(ну и на середине установки, естественно, второй)

Почему такая чехарда с дисками?При чистом Inno всё нормально было.

=================================================================================================

Как отключить разбиение файлов? Нужно все в одном exe. Размер около одного гигабайта. Такое возможно? Просто файл .bin не особо нужен (получается два файла) »

Да.

OutputDir=куда\сохранять
OutputBaseFilename=название
SolidCompression=yes

[bear!]

Да. OutputDir=куда\сохранять OutputBaseFilename=название SolidCompression=yes »

Спасибо.

[ToCamoe]

...

[Raf-9600]

Ктонить может модифицировать скрипт для конвертации OGG чтобы он выполнялся два раза, т.е. нужно чтобы первый раз он конвертировал содержимое папки {app}\data\local\sfx (при условии что выбран компонент "GameVoice"), а второй раз чтобы конвертировал содержимое \data\global\music (при условии что выбран компонент "Music")

Собсно особенность этого кода в том, что он в виде прогресс-бара отображает процесс конвертации:

читать дальше »

Код:

[C0de]
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; //Получаем кол-во файлов
WizardForm.ProgressGauge.Position:=0
for n:=(GetArrayLength(Files)-1) downto 0 do begin
CurFile:= Files[n]
StringChange(CurFile, AddBackslash(ExpandConstant('{app}')), '')
Exec(ExpandConstant('{app}\oggdec.exe'), '-Q '+AddQuotes(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;

[GoshaPolo]

Еще несколько вопросов:

1. Как задать выбор компонентов на свои RadioButton?
2. Как разделить RadioButton по взаимосвязи? Например у меня есть 4 RadioButton, первый и второй взаимосвязаны между собой и вместе выбираться не должны ни в коем случае, а третий и четвертый соответственно связаны между собой и вместо тоже выбираться не могут.
3. Как изменить картинку при наведении на нее курсора?

[Johny777]

GoshaPolo,
вполне реально
потом в этом сообщении примеры сделаю

скачай ка для начала (или уже?) здесь http://forum.oszone.net/showthread.p...99#post1201499 расширенную версию (ispack не unicode с препроцессором)
или здесь сборку http://innoultra.ru/ В ней много примерв и библиотек!

[GoshaPolo]

Johny777, я и так пользуюсь расширенной версией от ResTools. Всю облазил, многое нашел, что нужно. Но вот по этим вопросам, которые описал ничего не могу поделать. Например на картинку нет события OnEnter, так бы 3-ий вопрос не задавал.