如何检测安装的ADSI版本

 

; ISX 2.0.18
[Setup]
AppName=ADSIVersion
AppVerName=ADSIVersion
DefaultDirName=ADSIVersion
DisableStartupPrompt=true
Uninstallable=false

[Code]

function InitializeSetup(): Boolean;
var adsiver: String;
begin
  adsiver := GetADSIVersion();

  if Length(adsiver) > 0 then begin
   MsgBox( 'Version of ADSI is (' + adsiver + ')', mbInformation, MB_OK );
   Result := true;
  end
  else begin
   MsgBox( 'ADSI is not presnet', mbInformation, MB_OK );
   Result := false;
  end;
end;

function GetADSIVersion(): String;
var
  sVersion:  String;
begin
  sVersion := '';
  GetVersionNumbersString( ChangeDirConst('{sys}\adsnt.dll') , sVersion );
  Result := sVersion;
end;