[Farser21]

FX-DENIS , Спасибо!

[FX-DENIS]

"DefaultDirName" для каждого компонента был разный? »

По моему страниц 10 назад уже был ответ.Пролистайте странички.

[Farser21]

FX-DENIS , Возникли проблемы с авто определением установки. Получается я вставил то что ты скинул, но когда запускается установщик пишет Название установщика "World of Tanks" и пишет что не может найти. Где я мог допустить ошибку?

[El Sanchez]

а вот самому написать функции "если нужен полный контроль над отображением информации о размерах/времени" ума не хватает. »

nik1967, открываешь любой репак, там этих реализаций... Вот мой вариант:

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

Код:

[Setup]
AppName=test
AppVerName=test
CreateAppDir=no
DefaultDirName={tmp}
Uninstallable=no
CreateUninstallRegKey=no

[Languages]
Name: en; MessagesFile: compiler:default.isl
Name: ru; MessagesFile: compiler:Languages\russian.isl

[CustomMessages]
ru.Size=байт,КБ,МБ,ГБ,ТБ,ПБ
en.Size=bytes,KB,MB,GB,TB,PB
ru.Time=сек,мин,ч
en.Time=s,m,h

[code]
function pow(x, y: Double): Double; external 'pow@ntdll.dll stdcall';

///////////////////////////////////////////////////
function BytesToSize(const dBytes: Double): String;
var
    i, j: Integer;
    dRange: Double;
begin
    with TStringList.Create do
    try
        CommaText := CustomMessage('Size');
        if Count = 0 then Exit;

        // default
        Result := Format('0 %s', [Strings[0]]);
        if dBytes = 0 then Exit;

        // convert
        for i := Count downto 0 do
        begin
            dRange := pow(1024, i);
            if dBytes < dRange then Continue;
            if Abs(dBytes/dRange - Round(dBytes/dRange)) < 0.01 then Result := Format('%.n %s', [dBytes/dRange, Strings[i]]) else Result := Format('%n %s', [dBytes/dRange, Strings[i]]);
            Break;
        end;
    except
        RaiseLastException;
    finally
        Free;
    end;
end;

///////////////////////////////////////////////////
function TicksToTime(const dwTicks: DWORD): String;
var
    i, j: Integer;
    dwRange: DWORD;
begin
    with TStringList.Create do
    try
        CommaText := CustomMessage('Time');
        if Count = 0 then Exit;

        // default
        if dwTicks < 1000 then
        begin
            Result := Format('0 %s', [Strings[0]]);
            Exit;
        end;
        
        // convert
        dwTicks := Round(double(dwTicks)/1000);
        for i := Count-1 downto 0 do
        begin
            dwRange := 1;
            for j := 1 to i do dwRange := dwRange*60;
            if dwTicks > dwRange-1 then
            begin
                Result := Format('%s%d %s ', [Result, dwTicks div dwRange, Strings[i]]);
                dwTicks := dwTicks - (dwTicks div dwRange)*dwRange;
            end;
        end;
    except
        RaiseLastException;
    finally
        Result := TrimRight(Result);
        Free;
    end;
end;

/////////////////////////////
procedure InitializeWizard();
begin
    MsgBox(BytesToSize(MaxInt), mbInformation, MB_OK);
    MsgBox(TicksToTime(MaxInt), mbInformation, MB_OK);
end;

[Nordek]

Получается я вставил то что ты скинул »

Вот молодец. А остальное FX-DENIS должен угадать за тебя, да?

Farser21, Тупо скопипастилл и всё?
А в :

Код:

RegQueryStringValue(HKLM, 'SOFTWARE\Rockstar Games\EFLC', 'InstallPath', Path);//Какой ключ реестра ищет ...

и

Код:

if not RegKeyExists(HKLM, 'SOFTWARE\Rockstar Games\EFLC') then

ничего не нужно указывать?

Вместо SOFTWARE\Rockstar Games\EFLC замени на свои. И если нет InstallPath, то смотри какое значение ведёт к папке.

[Optitron]

FX-DENIS, Если вы про мой вопрос, то он был немного другого типа.

[nik1967]

El Sanchez, спасибо! Затупил немного - ввели в заблуждение функции StrFormatByteSize64 и StrFromTimeInterval. Думал к ним нужно привязываться.

[Farser21]

Nordek, спасибо

[Tco 03]

El Sanchez, Здравствуйте. Ваш пример по загрузке файла, без сомнения, хорош. Пожалуйста, если Вас не затруднит, не могли бы Вы помочь с реализацией загрузки двух файлов. С одним общим прогрессбаром и текущим. Или же как эксперт помогите, пожалуйста, доработать пример товарища Johny777. Он в принципе рабочий, но не корректно отрабатывает свои действия. Буду премного благодарен, да и не только я. Очень нужная будет вещь!

[Nordek]

FX-DENIS, Поправь пожалуйста сообщение. Не корректный вывод BB-Кодов.

Если в скрипте присутствует [Code], то понадобится дополнительная обработка.
Например: [*Code], [#Code], [Co[u][/u]de], [b][Co[/b][b]de][/b] и т.д.

Примеры с использованием возможной обработки:

---

Исходный текст BB-кодов:
[code][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[*Code]
procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
Visible := False;
end;
end;[/code]

Вывод:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[*Code]
procedure InitializeWizard();
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Visible := False;
  end;
end;

---

Исходный текст BB-кодов:
[code][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[#Code]
procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
Visible := False;
end;
end;[/code]

Вывод:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[#Code]
procedure InitializeWizard();
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Visible := False;
  end;
end;

---

Исходный текст BB-кодов:
[code][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[b][Co[/b][b]de][/b]
procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
Visible := False;
end;
end;[/code]

Вывод:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Code]
procedure InitializeWizard();
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Visible := False;
  end;
end;

---

Исходный текст BB-кодов:
[code][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Co[u][/u]de]
procedure InitializeWizard();
begin
with WizardForm.WizardSmallBitmapImage do
begin
Visible := False;
end;
end;[/code]

Вывод:

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Code]
procedure InitializeWizard();
begin
  with WizardForm.WizardSmallBitmapImage do
  begin
    Visible := False;
  end;
end;

---

Кроме всего прочего, есть ещё в самой Inno Setup Compiler возможность копирования текста с BB-кодами.
В Inno Setup Compiler есть пункт "Копировать как UBB код", который позволяет скопировать сразу с BB-кодами.
Правда в некоторых случаях копируется не корректно.