InnoSetup判断是否需要安装npcap

#define NPCAP_VERSION "1.79"

function CompareVersion(V1, V2: string): Integer; 
var 
    P, N1, N2: Integer; 
begin 
    Result := 0; 
    while (Result = 0) and ((V1 <> '') or (V2 <> '')) do 
    begin 
    P := Pos('.', V1); 
    if P > 0 then 
    begin 
     N1 := StrToInt(Copy(V1, 1, P - 1)); 
     Delete(V1, 1, P); 
    end 
     else 
    if V1 <> '' then 
    begin 
     N1 := StrToInt(V1); 
     V1 := ''; 
    end 
     else 
    begin 
     N1 := 0; 
    end; 

    P := Pos('.', V2); 
    if P > 0 then 
    begin 
     N2 := StrToInt(Copy(V2, 1, P - 1)); 
     Delete(V2, 1, P); 
    end 
     else 
    if V2 <> '' then 
    begin 
     N2 := StrToInt(V2); 
     V2 := ''; 
    end 
     else 
    begin 
     N2 := 0; 
    end; 

    if N1 < N2 then Result := -1 
     else 
    if N1 > N2 then Result := 1; 
    end; 
end; 

function NeedInstallnpcap: Boolean;
var version: String;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\NpcapInst', 'DisplayVersion', Version) then
  begin
    if CompareVersion(version, '{#NPCAP_VERSION}') >=0 then
    begin
      Result := False;
      Exit;
    end;
  end;

  Result := True;
end;