Скрипты Inno Setup. Помощь и советы [часть 7]

[vint56]

Цитата Irenis:



А в скрипте что добавить?

Скрипты Inno Setup. Помощь и советы [часть 7]

ничего

указывать для распаковки первый файл многотомного архива .001

[Irenis]

Irenis, только первый остальные он сам подхватит немного опоздал R.i.m.s.k.y. уже ответил тебе

[habib2302]

Доброе время суток. Как сделать паузу между двумя функциями пока 1 первая функция не завершит свою работу?



Код:

Код: Выделить всё

function UninstallMyApp1(): Boolean;
var
    Buff: String;
    i: Integer;
begin
    Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}', 'UninstallString', Buff );
    if not Result then Result := not FileExists(RemoveQuotes(Buff));
    if not Result then if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDYES then
    try
        Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i);
    finally
        Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}', 'UninstallString', Buff );
    end;
end;
function UninstallMyApp2(): Boolean;
var
    Buff: String;
    i: Integer;
begin
    Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff );
    if not Result then Result := not FileExists(RemoveQuotes(Buff));
    if not Result then if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDYES then
    try
        Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i);
    finally
        Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff );
    end;
end;
function InitializeSetup(): Boolean;
begin
    Result := UninstallMyApp1();
    Result := UninstallMyApp2();
end;

как сделать что не появлялись MsgBox во время тихой установки и деинсталляторы запускались в тихом режиме

[vint56]

Irenis, ты просиш чтобы быстре сжимать ну 7 zip есть режим lzma2 что дает использовать не 1 ядро если есть 4 или 8 соответственно значит и сжатие будет быстрее

еслиты используеш isdone скрипт менять не надо когда будет паковать смениш просто расширения файла 7z на bin

if not IS7ZipExtract ( 0, 0, ExpandConstant('{src}\Data-A.bin'), ExpandConstant('{app}'), false, '') then break;

И еще тебя интересует хорошое сжатие или просто немного пожать Быстрое: -m3 или Нормальное: -m4

[Raz3r]

Ладно, всё ясно с вами, игнор включили, в падлу помочь значит. Пускай Nordek и дальше тут несёт всякую чушь про "лень"и копипастит это каждым сообщением, вместо того, чтобы адекватную помощь оказать. Проще самому всё сделать! Нахера этот форум нужен...

[Raz3r]

Строчка распаковки:



if not IS7ZipExtract ( 0, 100, ExpandConstant('{src}\fwclient.bin.001'), ExpandConstant('{app}\'), false, '') then break;



Названия архивов:



fwclient.bin.001

fwclient.bin.002

fwclient.bin.003

fwclient.bin.004

[R.i.m.s.k.y.]

Irenis, у меня тоже ошибка открытия архива 7z а вот rar распаковывает нормально

ISDone не подерживает распаковку 7z многотомных только у rar а просто 7z без проблем распаковывает

Вариант делить файлы руками

[Kashtan007]

Всем привет, посоветуйте несколько способов, как правильно использовать скин в установщике (.cjstyles) на юникоде.

Заранее спасибо за ответ.

[Kashtan007]

Irenis, вот вариант

[Files]

Source: Include\7z.exe; DestDir: {tmp}; Flags: dontcopy



procedure CurStepChanged(CurStep: TSetupStep);



ExtractTemporaryFile('7z.exe');



if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\7z.exe'), '-o"' + ExpandConstant('{app}') + '" x -y -pPASSWORD "' + ExpandConstant('{src}\bundles.7z.001') + '" ', ExpandConstant('{tmp}'), '...',false) then break;

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





Паковать 7z но файлы делить руками

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

Относительно каталога app

Создать папку назвать Data-A в ней создать папку fwclient и resources весит она 6.10 GB 1 архив

и в папку положить файлы вот первый архив чтобы он весил 4 гига

models.pck 1.99 GB (2147483392)

litmodels.pck 1006.16 MB (1055045243)

surfaces.pck 871.75 MB (914100077)

textures.pck 108.87 MB (114163463)

Создать папку Data-B в ней создать папку fwclient и resources 2 архив

building.pck 687.84 MB (721262764)

configs.pck 14.03 MB (14717964)

gfx.pck 214.04 MB (224439976)

grasses.pck 1.98 MB (2079923)

interfaces.pck 11.00 MB (11538963)

loddata.pck 64.52 MB (67657600)

models.pkx 524.88 MB (550378794)

script.pck 5.76 MB (6049439)

sfx.pck 674.65 MB (707423377)

shaders.pck 6.72 MB (7050168)

папка help

book.pck 6.55 MB (6877879)

script.pck 22.61 KB (23160

[vint56]

Irenis,

http://rghost.ru/57360119

Kashtan007

http://rghost.ru/57361849