[Kashtan007]

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

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

[Raz3r]

Прошу помочь с вопросами.

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

1. Подскажите как сделать второй чекбокс с такими же параметрами?

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

var
DpoLabel: TLabel;
dpo :HWND;
hBtn: TObject

function DpoChecks: Boolean;
begin
Result:= BtnGetChecked(dpo);
end;

procedure DpoOnClick(hBtn: TObject);
begin
BtnSetChecked(dpo, not BtnGetChecked(dpo));
if BtnGetChecked(dpo) then dpolbl.Font.Color:= ${#Color} else dpolbl.Font.Color:= clgray;
end;

procedure DpoOnClick1(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if Check then DpoLabel.Font.Color:=${#Color} else DpoLabel.Font.Color:=-16777199;
end;

procedure DpoLblClick(hBtn: TObject);
begin
BtnSetChecked(dpo, not BtnGetChecked(dpo));
DpoOnClick1(dpo);
end;

procedure Wzf;
DpoLabel:=TLabel.Create(WizardForm);
with DpoLabel do
begin
Top:= ScaleY(207);
Left:= ScaleX(405);
Width:= ScaleX(400);
Height:= ScaleY(15);
AutoSize:= false;
WordWrap:= true;
Font.Name:= 'Arial';
Font.Size:= 10
Font.Style := [fsBold];
Font.Color:=${#Color};
Transparent:= true;
Parent:= WizardForm;
Caption:= ExpandConstant('{cm:DPO}');
OnClick:= @DpoLblClick;
end;

2. Какой ключ указать в командной строке, чтоб автоматический запустилась установка DirectX с отображением прогресс-бара. Ввожу /SILENT установка проходит полностью скрытой.
3. Как узнать где в реестре Steam прописывает пути к файлам игр? Собираюсь сделать автоустановку в эту библиотеку.
Извините что вопросами засыпал, но я лазил в гугле и ничего вразумительного не нашел, мож здесь кто знает?

[Irenis]

lzma:512mb:normal:128:mc64:lc8 »

В общем, так тоже ничего не получается, при запуске установщика пишет что то типа неверно задан входной файл. Я так понимаю, что просто в скрипте тоже что то нужно править. В общем ладно, если ставить такое сжатие, то тоже медленно сжимается, а мне нужно как можно быстрее
Если нету другого способа сделать архив bin, то может кто поможет сделать такое же

Если же делать другим методом Arc.7z, »

только чтобы создавалось быстрее. У меня вообще на ноутбуке ОЗУ 6Гб, поэтому я так понимаю, можно же сделать такой же архив, в котором создание bin файла делалось бы быстрее, но в то же время распаковывалось как и прежде. Спасибо

[vint56]

Irenis, вообще то зависит не от памяти а от процессора но у lzma можно поставить всего 2 потока тогда используй 7zip там есть lzma2 можно поставить все потоки isdone 7z тоже поддерживает

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

[Irenis]

vint56, Спасибо большое, что помогаете, но мне все равно не все понятно. Если использовать 7zip, то тогда и скрипт нужен другой? Где его можно взять?
И вот еще

7z тоже поддерживает »

мне как бы 7z и не надо. В предыдущем сообщении цитированием себя же я просто хотела дать ссылку на это сообщение

... »

. Там есть вложение (повторно его почему то не получилось залить), мне когда то дали этот архив тут же на форуме. И вот хотелось бы, если это возможно, такой же архив, но такой, в котором бы запаковка происходила быстрее.
Извините за сумбур, просто мне тех элементарных знаний по созданию установщиков было вполне достаточно, больше как бы и не нужно. А сейчас столкнулась с проблемой и даже не знаю, как это все правильно объяснить

[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 и дальше тут несёт всякую чушь про "лень"и копипастит это каждым сообщением, вместо того, чтобы адекватную помощь оказать. Проще самому всё сделать! Нахера этот форум нужен...

[Irenis]

Ладно, всё ясно с вами, игнор включили, в падлу помочь значит »

Ну вы не обижайтесь Я думаю еще кто то обязательно подскажет. Я бы вам с радостью помогла, если бы сама что то понимала

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

Raz3r,
я ответа на вопрос "зачем использовать фриарк если такие же алгоритмы 7зип использованы в инно" не знаю
и на остальные тоже
дирекс ставится только так, можешь еще попробовать с параметром /Q но это теже фаберже

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

if not WizardSilent then msgbox...
к тому же выше же ответили

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

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

Подскажите как сделать второй чекбокс с такими же параметрами? »

я юзаю inno form designer из расширенного китайского компилятора
все есть в инноультра