如何检测安装的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;

你可能感兴趣的:(职场,休闲,如何检测安装的ADSI版本)