[Johny777]

nik1967,

) < '2.0.0.1' then »

так не получится (хотя было бы очень практично ! ), тк нужно сравнивать числа а не строку
Пардон я в прошлом говорил что нужно сравнивать стоки, но не знал что

допустим версия должна быть выше 2.0.0.1 и если версия ниже »

нужен подробный результат сравнения
вот накатал функцию сравнения версий, по примеру станет ясно что она возвращает и как работает:

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

Код:

const
    FILE_VERSION_STR_LEN = 7;
    
function CompareFileVersions(const AVer, BVer: String): Integer;
var
    i: Integer;
begin
    for i := 1 to FILE_VERSION_STR_LEN do
    begin
        if i and 1 = 0 then Continue; // если порядковый номер в строке чётный, то переходим к след. витку цикла, тк это точка

        Result := Ord(AVer[i]) - Ord(BVer[i]);
        if Result <> 0 then Break;
    end;
end;


procedure InitializeWizard();
var
    iResult: Integer;
begin
    iResult := CompareFileVersions('7.0.0.1', '7.0.0.0');

    if iResult = 0 then MsgBox('Same Version', mbInformation, MB_OK)
    else
    if iResult < 0 then MsgBox('AVer < BVer', mbInformation, MB_OK)
    else
    if iResult > 0 then MsgBox('AVer > BVer', mbInformation, MB_OK);
end;

PS: делал упор на быстродействие