[nik1967]

т.е. при сравнении 1,0,0,6 будет > чем 1,0,0,20? »

Хе, работает(не не будет)

Код:

[Setup]
AppName=Game
AppVersion=Game_v1
DefaultDirName={pf}\Games
DefaultGroupName=Games
OutputDir=.

[ code]
function FormatVersion(const szVer: String): String;
var
  i: Integer;
begin
  with TStringList.Create do
    try
      StringChangeEx(szVer, '.', ',', True);
      CommaText:= szVer;
    for i:= 0 to Count-1 do Strings[i]:= Padz(Strings[i], 5);
      Result:= CommaText;
      StringChangeEx(Result, ',', '.', True);
    finally
        Free;
    end;
end;

function FileVersion(const FilePath: String): String;
var
  oFS: Variant;
begin
  oFS:= CreateOleObject('Scripting.FileSystemObject');
    try
      Result:= oFS.GetFileVersion(FilePath);
    except
  end;
end;
  
function InitializeSetup: Boolean;
begin
  if FormatVersion(FileVersion(ExpandConstant('{src}')+'\simple1.exe')) < FormatVersion('1.0.0.20') then
    MsgBox('True', mbInformation, MB_OK) else MsgBox('False', mbInformation, MB_OK);
    Result:= false;
end;