Как проверить наличие программы

[googl]

Сообщение от GunSmoker

Ну, есть такая вещь как цикл и таблицы. Или я вопроса не понял.

блин) ну не могу объяснить. Ну вот так
я задаю условие, есть ли в ветке записи об установленной программе ансис. и руками пишу: есть ли10 версия, есть ли 11 версия, есть ли 12 версия. Т.е. с вызодом новой версии нужно будет дописывать код. Когда-то я с этим сталкивался. Но проверять установлена она или нет задачи не было. Там для каждой версии своя ветка была

[GunSmoker]

Есть мнение, что машины времени у вас нет. Это значит, что вы не можете знать, как поступят разработчики программы в будущем. Они могут оставить всё как есть, а могут - изменить.

Вообще, вы скажите сначала - там точно указывается версия? Ну, в реестре. Если нет - то и проблем никаких нет.

Если да - то:

for X := 10 to 50 do
  if CheckVersion(X) then
     ...

[GunSmoker]

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

const
  RegInfoPath: array[10..50] of String = ('\Software\Litware\10\',
                                          '\Software\Litware\11\',
                                          '\Software\Litware Ltd.\12.0\',
                                          '\Software\Litware Ltd.\13.0\',
                                          ...);

или:

function RegPath(const Ver: Integer): String;
const
  Ver10 = '\Software\Litware\%d\';
  Ver12 = '\Software\Litware Ltd.\%d.0\';
begin
  if Ver < 12 then
    Result := Format(Ver10, [Ver])
  else
    Result := Format(Ver12, [Ver]);
end;

[googl]

Сообщение от GunSmoker

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

const
  RegInfoPath: array[10..50] of String = ('\Software\Litware\10\',
                                          '\Software\Litware\11\',
                                          '\Software\Litware Ltd.\12.0\',
                                          '\Software\Litware Ltd.\13.0\',
                                          ...);

или:

function RegPath(const Ver: Integer): String;
const
  Ver10 = '\Software\Litware\%d\';
  Ver12 = '\Software\Litware Ltd.\%d.0\';
begin
  if Ver < 12 then
    Result := Format(Ver10, [Ver])
  else
    Result := Format(Ver12, [Ver]);
end;

вот, да, я это и имел в виду.

А выглядят ветки примерно так же. Спасибо. Возьму на заметку