Проблема скрипта Inno Setup Pascal ... "Неизвестный идентификатор" - PullRequest
Новая
       13

Проблема скрипта Inno Setup Pascal ... "Неизвестный идентификатор"

0 голосов
/ 08 марта 2019

Я пытаюсь проверить, есть ли java 8 в реестре или java 9-11 в реестре, поэтому я делаю этот скрипт: 

[Code]
{ Script to check if a JRE is installed, it will search for the old java 8 location and for the new java 11 location }  
function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
  JavaVer: string;
begin
    { checking for old java 8 location }  
    RegQueryStringValue(
        HKLM64, 'SOFTWARE\JavaSoft\Java Runtime Environment', 'CurrentVersion', JavaVer);
    ResultOldJava := (Length(JavaVer) > 0);

    { checking for new java 9-11 location }  
    RegQueryStringValue(
        HKLM64, 'SOFTWARE\JavaSoft\JDK', 'CurrentVersion', JavaVer);
    ResultNewJava := (Length(JavaVer) > 0);

    if not ResultOldJava and not ResultNewJava then
    begin
        if MsgBox('ATENCIÓN: Gestor requiere Java 64 Bits instalado en el sistema. No se ha encontrado, ¿Desea abrir la página de descargas oficial? Por favor, recuerde que es necesaria la versión de 64 bits.', mbConfirmation, MB_YESNO) = idYes then
        begin
            ShellExec(
              'open', 'https://www.java.com/es/download/manual.jsp#win',
              '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
        end;
    end;
end;

Проблема в том, что он печатает эту ошибку: 

Unknown Identifier 'ResultOldJava'

Что не так?мои навыки в паскале очень низкие

1 Ответ

2 голосов
/ 08 марта 2019

Вы объявили переменную ResultOldJava так же, как вы уже объявили ErrorCode и JavaVer: 

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;
  JavaVer: string;
  ResultOldJava: Boolean; 
begin
...