[APTEM2]

Mat_y, nik1967,

[Shkutu]

APTEM2, Вам же сказали, уберите|переименуйте 2й CancelBtn. На вашем же скриншоте видно в var ... NoIconsCheck, CancelBtn, MinBtn, CancelBtn
А на счет аналога GroupDescription для секции Components никто не знает?

[APTEM2]

Shkutu,
Так а вот с этим что делать


Вот сам скрипт http://rghost.ru/49047898

[Mat_y]

APTEM2,
Допишите в type

Код:

  Pchar =PansiChar;

[Gnom_aka_Lexander]

Допишите в Var »

не в var а в type

[habib2302]

доброе время суток.дайте мне пожалуйста скрипт на завершение работы процесса до установки и до удаления программы

[Johny777]

habib2302,
Mat_y,

В шапку темы заглянуть не судьба?

"Определение информации о версии файла" , "Закрытие процесса"

Mat_y,
и чем тебя не устраивает метод GetFileVersion FileSystemObject-а, который предложил nik1967 ?
http://msdn.microsoft.com/en-us/libr...=vs.84%29.aspx
он как раз таки и возвращает версию файла в виде строки
и нет никакой нужды лезть в дебри WinApi
подправил функцию:

Код:

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

просто сравнивай строки...

[Mat_y]

и чем тебя не устраивает метод GetFileVersion FileSystemObject-а, который предложил nik1967 »

Да Вы не поняли...сам метод меня полностью устраивает... я спросил "как дальше сравнить полученную версию файла с эталонной (допустим версия должна быть выше 2.0.0.1 и если версия ниже, то выдать окно с сообщением, что на данную версию продолжить установку нельзя).

[Антон_Мураткин@vk]

Народ подскажите как с этим бороться?



Это происходит при удаления игры.

[nik1967]

Mat_y,

держи

Код:

[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 else begin
          MsgBoxEx(WizardForm.Handle, 'По данному пути игра не найдена! Еще раз проверьте путь установки!', 'Неверно указан путь к игре', MB_OK or MB_ICONWARNING, 0, 0);
          Result:= false;
        end;
      end;
    end;
  end;