Проверьте XML для версии с помощью Inno Setup Installer - PullRequest
Новая
       17

Проверьте XML для версии с помощью Inno Setup Installer

1 голос
/ 26 февраля 2012

У меня есть небольшой скрипт Inno, который проверяет реестр для текущей установки .Net и возвращает bool ... 

[Code]
function IsDotNetDetected(version: string; service: cardinal): Boolean;
// Indicates whether the specified version and service pack of the .NET Framework is installed.
//
// version -- Specify one of these strings for the required .NET Framework version:
//    'v1.1.4322'     .NET Framework 1.1
//    'v2.0.50727'    .NET Framework 2.0
//    'v3.0'          .NET Framework 3.0
//    'v3.5'          .NET Framework 3.5
//    'v4\Client'     .NET Framework 4.0 Client Profile
//    'v4\Full'       .NET Framework 4.0 Full Installation
//
// service -- Specify any non-negative integer for the required service pack level:
//    0               No service packs required
//    1, 2, etc.      Service pack 1, 2, etc. required
var
    key: string;
    install, serviceCount: cardinal;
    success: boolean;
begin
    key := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\' + version;
    // .NET 3.0 uses value InstallSuccess in subkey Setup
    if Pos('v3.0', version) = 1 then begin
        success := RegQueryDWordValue(HKLM, key + '\Setup', 'InstallSuccess', install);
    end else begin
        success := RegQueryDWordValue(HKLM, key, 'Install', install);
    end;
    // .NET 4.0 uses value Servicing instead of SP
    if Pos('v4', version) = 1 then begin
        success := success and RegQueryDWordValue(HKLM, key, 'Servicing', serviceCount);
    end else begin
        success := success and RegQueryDWordValue(HKLM, key, 'SP', serviceCount);
    end;
    result := success and (install = 1) and (serviceCount >= service);
end;

function CheckDotNet(): Boolean;
begin
    if not IsDotNetDetected('v4\Full', 0) then begin
        //MsgBox('{#gsAppName} requires Microsoft .NET Framework 4.0 Full.'#13#13
        //    'Please use Windows Update to install this version,'#13
        //    'and then re-run the {#gsAppName} setup program.', mbInformation, MB_OK);
        result := false;
    end else
        result := true;
end;

Я хочу посмотреть, можно ли сделать то же самое, нов файле XML.У меня есть следующий XML-файл, расположенный в «C: \ test_folder \ test.xml». 

<Registry>
   <HKEY_LOCAL_MACHINE>
      <SOFTWARE>
         <KOFAX>
            <CONDOR Value="0" Type="integer">
               <VERSION Value="V4.10.039"/>

Кто-нибудь знает, как проверить эту версию и проверить, если она выше 4.0?С помощью функции .Net я просто вызываю CheckDotNet (), который, в свою очередь, вызывает IsDotNetDetected ('v4 \ Full', 0), и я хочу сделать то же самое с этим XML-файлом.Я хочу, чтобы функция проверяла, больше ли моя версия "V4.10.039", чем "4.0", вызывая что-то вроде IsMySoftwareDetected ('4.0').

1 Ответ

1 голос
/ 29 июля 2012

Я знаю, что довольно поздно :-) Просто хотел завершить ваш вопрос, так как пример кода InnoSetup, связанный в приведенном выше комментарии, не совсем соответствует тому, что вы спросили.

Файл сценария: 

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "ProductVersion.xml"; Flags: dontcopy;

[Code]
// this function opens the XML file and returns the value of XML node
// attribute specified by the given XPath expression
function GetAttrValueFromXML(const AFileName, APath: string): string;
var
  XMLNode: Variant;
  XMLDocument: Variant;  
begin
  Result := '';
  XMLDocument := CreateOleObject('Msxml2.DOMDocument.6.0');
  try
    XMLDocument.async := False;
    XMLDocument.load(AFileName);
    if (XMLDocument.parseError.errorCode <> 0) then
      MsgBox('The XML file could not be parsed. ' + 
        XMLDocument.parseError.reason, mbError, MB_OK)
    else
    begin
      XMLDocument.setProperty('SelectionLanguage', 'XPath');
      XMLNode := XMLDocument.selectSingleNode(APath);
      Result := XMLNode.NodeValue;
    end;
  except
    MsgBox('An error occured!', mbError, MB_OK);
  end;
end;

// function that strips out all non-numeric values and returns what
// remains as an integer, so you should keep the version string format
function GetVersionValue(const Value: string): Integer;
var
  S: string;
  I: Integer;
begin
  S := Value;
  for I := Length(Value) downto 1 do
    if not ((Ord(S[I]) >= Ord('0')) and (Ord(S[I]) <= Ord('9'))) then
      Delete(S, I, 1);
  Result := StrToInt(S);
end;

procedure InitializeWizard;
var
  S: string;
  I: Integer;
begin
  // extract the XML file containing the version information temporarly
  ExtractTemporaryFile('ProductVersion.xml');
  // read the attribute value specified by the XPath expression
  S := GetAttrValueFromXML(ExpandConstant('{tmp}\ProductVersion.xml'),
    '//Registry/HKEY_LOCAL_MACHINE/SOFTWARE/KOFAX/CONDOR/VERSION/@Value');
  // the numeric part of the version string must be in a format X.XX.XXX
  // because the GetVersionValue function removes all non-numeric values
  // from that string and returns it as an integer value, and to compare
  // it with an integer constant they must match in the number of digits
  // following comparision means when the version is below 4.10.039 then
  if GetVersionValue(S) < 410039 then
    MsgBox('Version is below 4.10.039.', mbInformation, MB_OK)
  else
    MsgBox('Version equals or greater than 4.10.039.', mbInformation, MB_OK);
end;

Файл XML (ProductVersion.xml): 

<?xml version="1.0" encoding="utf-8"?>
<Registry>
  <HKEY_LOCAL_MACHINE>
    <SOFTWARE>
      <KOFAX>
        <CONDOR Value="0" Type="integer">
          <VERSION Value="V4.10.038"/>
        </CONDOR>
      </KOFAX>
    </SOFTWARE>
  </HKEY_LOCAL_MACHINE>
</Registry>
...