正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- [Setup]
- AppName=IISVersion
- AppVerName=IISVersion
- DefaultDirName=IISVersion
- DisableStartupPrompt=true
- Uninstallable=false
- [Code]
- function GetIISVersion(): String;
- var
- sVersion: String;
- begin
- sVersion := '';
- GetVersionNumbersString( ChangeDirConst('{sys}\inetsrv\inetinfo.exe') , sVersion ); //读取文件版本
- //RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Internet Explorer', 'Version', sVersion ); 读取注册表版本
- Result := sVersion;
- end;
- function InitializeSetup(): Boolean;
- begin
- MsgBox( 'Version is (' + GetIISVersion() + ')',
- mbInformation, MB_OK );
- Result := false;
- end;
复制代码
|