[dracosha]

R.i.m.s.k.y., к сожалению я в этом не разбираюсь
а версию присваиваю вот так:

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

Код:

#define MyAppVerMajor "0"
#define MyAppVerMinor "9"
#define MyAppVerBuild "19"
#define MyAppVerRevis "0"
#define MyAppVer MyAppVerMajor + "." + MyAppVerMinor + "." + MyAppVerBuild + "." + MyAppVerRevis

[Setup]
AppVersion={#MyAppVer}
VersionInfoVersion={#MyAppVer}

[R3Pa4eK]

dracosha, если я правильно понял, то так:
#define MyAppVersion "1.0"
#define vers1 "1.0.0.0"

[Setup]
AppName={#MyAppName}
AppverName={#MyAppVersion}
AppVersion={#MyAppVersion}
VersionInfoVersion={#vers1}
VersionInfoTextVersion={#vers1}

[dracosha]

R3Pa4eK, спасибо, но мне нужен код для установки новой версии поверх старой...
Я описывал это здесь и здесь

R.i.m.s.k.y., а константам нельзя присвоить цифры примерно так?:

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

Код:

const
  MyAppVerMajor = 3;
  MyAppVerMinor = 3 or 4;
  MyAppVerBuild = 3 or 4 or 5;
  MyAppVerRevis = 3 or 4 or 5;

[Serega]

Но спустя примерно пол года передо мной стала новая задача... »

Здравствуйте, да задач может быть сколько угодно... главное грамотно их решать...
В данном, вашем случае можно поступить так:

Пример

Код:

[Setup]
AppName=My Program
AppId=MyProgram
AppVersion=5.5.5.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
function IsPreviousVersionUpdatable(const VerInstall: array of string): Boolean;
var
  InstallVersion, NeedInstall: string;
  i: Integer;
begin
  Result := False;
  case GetArrayLength(VerInstall) > 0 of
    True:
      try
        if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting('AppId')}_is1',
          'DisplayVersion', InstallVersion) then
          begin
            StringChange(InstallVersion, '.', '');
            for i := 0 to GetArrayLength(VerInstall)-1 do
                begin
                  NeedInstall := VerInstall[i];
                  StringChange(NeedInstall, '.', '');
                  if NeedInstall = InstallVersion then
                    begin
                      Result := True;
                      Break;
                    end;
                end;
          end;
      finally
        SetLength(NeedInstall, 0);
        SetLength(InstallVersion, 0);
      end;
    False: Result := True;
  end;
end;

function InitializeSetup(): Boolean;
begin
  Result := IsPreviousVersionUpdatable(['3.3.3.3', '4.2.2.2']);
  if not Result then
    MsgBox('Облом...', mbInformation, MB_OK);
end;

а константам нельзя присвоить цифры примерно так? »

нет, на то они и константы, что имеют постоянное значение.

[dracosha]

Serega, Большое спасибо

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

Я где то видел что можно как то ускорить процесс установки это правда?если да то как? »

Я когда-то давно писал: не использовать тяжелые режимы сжатия, не использовать AfterInstall/BeforeInstall на папках, а то отрабатывается на каждом файле из папки.

[insombia]

Как сделать чтобы установку нельзя было отменить?

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

Как сделать чтобы установку нельзя было отменить? »

Format С: !!!

а серьёзно ты что имел ввиду?
если чтобы потом нельзя было удалить из "Установка/удаление программ"
[Setup]
Uninstallable=false

а если тебе трэба чтобы батон Cancel нельзя было жмякнуть, тогда
[Setup]
AllowCancelDuringInstall=false

[insombia]

а если тебе трэба чтобы батон Cancel нельзя было жмякнуть, тогда [Setup] AllowCancelDuringInstall=false »

Это сенкс

[actavir]

Народ тут увидел один репак очень оформление понравилось может кто-нибудь что-нибудь подобное своять?