Inno Setup 读取文件版本

Share

1. [Setup]
   
2. AppName=IISVersion
   
3. AppVerName=IISVersion
   
4. DefaultDirName=IISVersion
   
5. DisableStartupPrompt=true
   
6. Uninstallable=false
   
7. 
   
8. [Code]
   
9. function GetIISVersion(): String;
   
10. var
    
11.   sVersion:  String;
    
12. begin
    
13.   sVersion := '';
    
14.   GetVersionNumbersString( ChangeDirConst('{sys}\inetsrv\inetinfo.exe') , sVersion ); //读取文件版本
    
15. //RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Internet Explorer', 'Version', sVersion ); 读取注册表版本
    
16.   Result := sVersion;
    
17. end;
    
18. function InitializeSetup(): Boolean;
    
19. begin
    
20.   MsgBox( 'Version is (' + GetIISVersion() + ')',
    
21.    mbInformation, MB_OK );
    
22.   Result := false;
    
23. end;

复制代码