[ilyhakz001]

подскажите, не могу правильно прописать распаковку, начинает распаковывать, процентов до 300 идет.

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

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Data.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\Data.bin'),ExpandConstant('{app}\Data.bin'), true) then break;
if not IS7ZipExtract ( 0, 0, ExpandConstant('{src}\Data.bin'), ExpandConstant('{app}\Data.bin'), true, '') then break;
// äàëåå íàõîäÿòñÿ çàêîììåíòèðîâàíûå ïðèìåðû ðàçëè÷íûõ ôóíêöèé ðàñïàêîâêè (÷òîáû êàæäûé ðàç íå ëàçèòü â ñïðàâêó çà ïðèìåðàìè)
(*
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
if not IS7ZipExtract ( 0, 0, ExpandConstant('{src}\Data.7z'), ExpandConstant('{app}\data1'), false, '') then break;
if not ISRarExtract ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
if not ISSRepExtract ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'), ExpandConstant('{app}\data.7z'), true) then break;
if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'), ExpandConstant('{app}\out.dat'), false) then break;
if not ISPackZIP ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{arr}\"'), ExpandConstant('{tmp}'), '...') then break;
if not ShowChangeDiskWindow ('Ïîæàëóéñòà, âñòàâüòå âòîðîé äèñê è äîæäèòåñü åãî èíèöèàëèçàöèè.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

[Edison007]

Johny777
Да возможно, вот пару примеров: http://rghost.ru/14227021
ЗЫ если я правильно вас понял

[leshcat]

Лександер,
Спасибо, работает

Еще вопрос:
Хочу, чтобы файлы были внешними, тоесть вне архива. Посему использую флаг external.

Source: Files\* ; DestDir: {app}; Flags: recursesubdirs createallsubdirs sortfilesbyextension external; AfterInstall: Progress()

Однако получаю:


По-моему, установщик ищет файл вместо всей папки. Как это исправить?

UP: lol, я забыл добавить {src} в начало пути

[Johny777]

Edison007
спасибо

но как пришить его к моему скрипту
всё прописал, вылетает ошибка, в секции кода
пробовал оба примера
вот скрипт
http://rghost.net/14232021

[leshcat]

Мне предложили сделать свои custom иформацию с помощью этого кода:

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

ExtracttemporaryFile('Changelog.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\Changelog.rtf'),S);
{ Creates custom wizard page }
ISCustomPage1 := CreateCustomPage(wpInfoBefore,'Изменения', 'Подробнее');

{ ISCustomPage1 }
with ISCustomPage1.Surface do
begin
Name := 'ISCustomPage1';
end;
{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Name := 'RichEditViewer1';
Parent := ISCustomPage1.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(233);
RTFText :=S;
end;

//;adv_readme_2
ExtracttemporaryFile('ReleaseNotes.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\ReleaseNotes.rtf'),V);
{ Creates custom wizard page }
ISCustomPage2 := CreateCustomPage(wpInfoBefore,'Oб игре', 'Информация');
{ ISCustomPage2 }
with ISCustomPage2.Surface do
begin
Name := 'ISCustomPage2';
end;
{ RichEditViewer2 }
RichEditViewer2 := TRichEditViewer.Create(WizardForm);
with RichEditViewer2 do
begin
Name := 'RichEditViewer2';
Parent := ISCustomPage2.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(233);
RTFText :=V;
end;

Он работает. Но есть два вопроса:
1. Текст можно менять (двигать\удалять) прямо в инсталляторе, чего естественно не хочется. Как запретить любое изменение, разрешив только просмотр?
2. Есть ли расширенная версия, где можно подключать что-нибудь посовершеннее, типа doc с 2003 офиса/ docx 2007?

Если есть решение ещё лучше, с нетерпением жду совета

[No4noylis]

Народ подскажите, вобщем тут такое дело: Я скрываю FilenameLabel (т.е ставлю FilenameLabel.Hide; ), а потом заново создаю его на InstallingPage, так вот, что нужно написать в параметре Caption:= чтоб отображалось имя распаковываемого файла???

[murlakatamenka]

Народ подскажите, вобщем тут такое дело: Я скрываю FilenameLabel (т.е ставлю FilenameLabel.Hide; ), а потом заново создаю его на InstallingPage, так вот, что нужно написать в параметре Caption:= чтоб отображалось имя распаковываемого файла??? »

так а зачем заново создавать его ?
можно просто показать

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then begin
WizardForm.FilenameLabel.Show;
end;
end;
//или так
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling then begin
WizardForm.FilenameLabel.Show;
end;
end;

Если что есть такая функция

Prototype: function CurrentFileName: String; Description: Returns the destination name of the [Files] entry that is currently being processed. The returned name may include constants. Do not attempt to call this function from outside a Check, BeforeInstall or AfterInstall event function belonging to a [Files] entry.

[No4noylis]

так а зачем заново создавать его ? »

Я его создаю чтоб изменить размер шрифта, цвет, стиль, и самое главное указать его прозрачность (Transparent := True; ) Ну так что можно сделать???

[Gnom_aka_Lexander]

No4noylis, Только через таймер, по другому не получится. Смотри мой пример, там это реализовано.

[No4noylis]

Я вообще не пойму!!!!!!!!!!!!!!!!!!!!!!! Делаю инсталлятор, делаю отображение необходимого и доступного места на винте, так вот: скрипт компилируеться все хорошо, запускаеться инсталлятор, перехожу на SelectDir, там отображаеться только доступное место на винте, я нажимаю кнопочку назад, перехожу на Welcome, потом снова далее и перехожу на SelectDir и теперь отображаеться все как положено и доступное и необходимое место на винте !!!! Кто знает в чем дело???