Новый участник
Сообщения: 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
|