flyweb
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору function InitializeSetup(): Boolean; var ResultCode: Integer; s, ResultStr:string; Result:=True; begin Result:=True; If not RegKeyExists(HKLM, 'SOFTWARE\It's') then begin MsgBox('Программа MY_PROGRAM не установлена или установлена неверно.' #13#13 'Дальнейшая работа мастера невозможна.', mbError, mb_Ok); Result:=False; end else begin MsgBox('Программа MY_PROGRAM успешно обнаружена.' #13#13 'Установка полностью автоматическая.', mbInformation, mb_Ok); begin If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\My_Program_v1.0_is1', 'UninstallString', ResultStr) then begin If ResultStr<>'' then begin ResultStr:=RemoveQuotes(ResultStr); if MsgBox('Программа установки обнаружила уже установленную программу ранней версии.' #13#13 'Вы желаете предварительно удалить ее?', mbInformation, MB_YESNO) = idYes then if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(ResultCode) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK); end; end; end; Как быть если запись в реестре содержит символ ' в этой строке: If not RegKeyExists(HKLM, 'SOFTWARE\It's')! Как обозначается этот символ в паскале??? И ещё вопрос : IDPage страницы на которой находится кнопка Install(Установить) |