Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Inno Setup. Прочие вопросы
Показать сообщение отдельно

Новый участник


Сообщения: 47
Благодарности: 5

Профиль | Отправить PM | Цитировать


А у меня такая проблема: Не могу реализовать 3 условия, по этому коду: procedure CurPageChanged4(CurPageID: Integer);
var
Ver:string;
Build:string;
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\key', 'Version', Ver) and //если есть эти значения то возвращаются их данные
RegQueryStringValue(HKLM, 'SOFTWARE\key', 'AppS', Build) then //если нет пишем "Не определена"
Label7.Caption := Ver + ' ' + Build
else
begin
Label7.Caption := 'Не определена'
if RegQueryStringValue(HKLM, 'SOFTWARE\key', 'AppS', Build) then //А как сделать тут, чтобы если не найдено значение ключа APPS, то просто показываем версию???
Label7.Caption := Ver
end;
end;

Отправлено: 20:42, 31-07-2012 | #345

Название темы: Inno Setup. Прочие вопросы