[Gnom_aka_Lexander]

innot20, по версии файла встроенными функциями:
function GetVersionNumbers(const Filename: String; var VersionMS, VersionLS: Cardinal): Boolean;
VersionMS и VersionLS типа Cardinal объявить заранее, в них будут номера версии.
function GetVersionNumbersString(const Filename: String; var Version: String): Boolean;
тут номер версии вернется строкой.
Filename - полный путь к файлу, чью версию нужно узнать. справка - сила.

[nik1967]

innot20, http://forum.oszone.net/post-2236471.html#post2236471

[Nordek]

innot20, Если же в случае отсутствия файла допустить установку, то так:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
DirExistsWarning=no

[Code]
function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result:= true;

    case CurPageID of
      wpSelectDir:
      begin
        if FileExists(ExpandConstant('{app}')+'\GameName.exe') then begin
          if FileVersion(ExpandConstant('{app}')+'\GameName.exe') < '2.0.0.1' then begin
            MsgBoxEx(WizardForm.Handle, 'На данную версию невозможно продолжить установку!', 'Не актуальная версия файла', MB_OK or MB_ICONWARNING, 0, 0);
            Result:= false;
          end;
        end;
      end;
    end;
end;

по версии файла встроенными функциями »

Ну ты молодец, типа он понял что ты сказал.
Справка-то сила, но в пределах разумного.

[Gnom_aka_Lexander]

Nordek, ты прям такой умный. Почему тогда не проверить версию файла встроенными средствами? Или только и умеешь, что криво переделывать чужие примеры? Делай тогда уже правильно, раз весь из себя такой великий гуру.
То, что ты как-бы переделал: у тебя на странице выбора папки нет положительного выхода, только отрицательный. делается это так:

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

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result:= true;
  case CurPageID of
    wpSelectDir:
    begin
      Result:= FileExists(ExpandConstant('{app}\GameName.exe'));
      if Result then
        Result := FileVersion(ExpandConstant('{app}\GameName.exe')) < '2.0.0.1';
      if not Result then
        MsgBoxEx(WizardForm.Handle, 'На данную версию невозможно продолжить установку!', 'Не актуальная версия файла', MB_OK or MB_ICONWARNING, 0, 0);
    end;
  end;
end;

далее на встроенной функции:

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

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
var
  Version: String;
begin
  Result:= true;
  case CurPageID of
    wpSelectDir:
    begin
      Result:= FileExists(ExpandConstant('{app}\GameName.exe'));
      if Result then
        Result:= GetVersionNumbersString(ExpandConstant('{app}\GameName.exe')), Version);
      if Result then
        Result := (Version < '2.0.0.1');
      if not Result then
        MsgBoxEx(WizardForm.Handle, 'На данную версию невозможно продолжить установку!', 'Не актуальная версия файла', MB_OK or MB_ICONWARNING, 0, 0);
    end;
  end;
end;

сложно что-ли набросать пример, если считаешь человека ущербным?
P.S.
Поскольку условий больше одного, то правильным будет оповестить, какое именно условие не дает идти дальше:

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

Код:

function NextButtonClick(CurPageID: Integer): Boolean;
var
  Version, StrErr: String;
  i : Integer;
begin
  Result:= true;
  case CurPageID of
    wpSelectDir:
    begin
      i := 0;
      if not FileExists(ExpandConstant('{app}\GameName.exe'))then i := 1 else
        if not GetVersionNumbersString(ExpandConstant('{app}\GameName.exe'), Version) then i := 2 else
          if not (Version < '2.0.0.1') then i := 3;
      Result:= i=0;
      if not Result then
      begin
        case i of
          1 : StrErr := 'Не обнаружен файл '+ExpandConstant('{app}\GameName.exe');
          2 : StrErr := 'Невозможно определить версию файла';
          3 : StrErr := 'На данную версию невозможно продолжить установку!';
        end;
        MsgBox(StrErr, mbError,MB_OK);
      end;
    end;
  end;
end;

[Nordek]

Gnom_aka_Lexander

ты прям такой умный. »

В пределах разумного. Я у вас мистер хлеб украл? Чего же тогда когда нужно вы мистер не пример предоставили а пытались своими нравоучениями поучить?
Может всего на один раз нужно сделать инсталлятор - а для этого ничего учить не обязательно как и справки всякие читать.
Если человек всерьёз возьмётся за это дело - тогда да, и справочную информацию почитает и у вас спрашивать ничего не будет.

делается это так: »

Можешь когда хочешь - для вытягивания ответа, нет ничего лучше чем манипуляция, даже если при этом придётся специально допустить ошибку.

[Gnom_aka_Lexander]

Nordek,

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

Знаешь, чем отличается помощь, от настоящей помощи? Сначала была именно помощь. потом - это уже не пример, а полностью готовый для использования код, и это уже не помощь. это уже действие, которое в итоге ведет к последующему зафлуживанию форумов, когда человек видя, что тут ему сделают все, что он хочет, начинает обижаться, когда именно ты ему начнешь отказывать, видя такую наглость. Это было неоднократно и будет не раз. именно поэтому нужно различать помощь и "сделайте за меня все". я не хочу сказать, что именно данный вопрошающий начнет именно так поступать. Я хочу сказать, что нужно заставлять людей думать и читать справки. не бывает неразумных пределов в чтении справки, поскольку там есть абсолютно все. А форумы в идеале нужны для того, что-бы разъяснять непонятные моменты. тут-же вопрос прозвучал - как сделать то-то. при чем простой поиск по справке по слову version моментально дает ответ на этот вопрос. вот если-бы человек спросил "как применить функцию GetVersionNumbers или GetVersionNumbersString", то тогда мой "пример" был-бы именно помощью. А в данной ситуации - это не помощь, а "сделай за меня"

[Nordek]

Gnom_aka_Lexander

Я хочу сказать, что нужно заставлять людей думать и читать справки. »

Gnom_aka_Lexander, Всех людей не переделаешь - с этим трудно не согласиться. Говорить про элитные функции и процедуры и давать советы типа "смотри в сторону GetVersionNumbers" - это как минимум глупо, исходя из того что человек даже не знает что такое функция в программном коде. Забудем на мгновение про литературу - т.к для лентяев это сверхчеловеческих возможностей и справки для них это миф. Ещё раз забудем на мгновение про литературу т.к ответы можно найти и здесь не заглядывая в книгу. Уже со счёта сбился сколько раз указал ссылку на 662 сообщение и это не единичный случай того, сколько раз здесь давались ответы на одни и те же вопросы. А если никто не ответит, создают одно и тоже сообщение за сообщением. Людям не то что лень что-то читать, но даже найти готовое.

Тем более здесь есть возможность не переходить со страницы на страницу что значительно упрощает поиск:
Inno Setup [все вопросы] часть 1
Скрипты Inno Setup. Помощь и советы [часть 2]
Скрипты Inno Setup. Помощь и советы [часть 3]
Скрипты Inno Setup. Помощь и советы [часть 4]
Скрипты Inno Setup. Помощь и советы [часть 5]
Скрипты Inno Setup. Помощь и советы [часть 6]

[XXXler]

Попытка добавления в реестр следующей записи вызывает при установке ошибку 87 в ф-ции RegCreateKeyEx - это баг Inno или я чего-то не знаю об экранировании одиночных кавычек?

Код:

Root: HKLM; SubKey: Microsoft\Windows\CurrentVersion\Control Panel\don't load; ValueType: string; ValueName: LClock.cpl; Components: soft\lclock; Flags: uninsdeletevalue

[Nordek]

XXXler, Ты SOFTWARE пропустил:

Код:

[Registry]
Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\don't load; ValueType: string; ValueName: LClock.cpl; Flags: Flags: uninsdeletevalue

[Shkutu]

Всем доброго времени суток!
А нет ли какого-нибудь примера по использованию эмуляции дефайнов/прагмы при компиляции из командной строки?
Надо передавать версию приложения через параметр в командной строке при компиляции, но не совсем понимаю, как это правильно сделать.