DELPHI编译软件时带上当前IDE的版本号

如果通过 CompilerVersion 得到的也只是编译器的版本号。

比如：delphi XE12 是 36 ，也仅此而己。

我想得到的是IDE的版本号，比如当前最新版本的DELPHI是：Embarcadero® RAD Studio 12 Version 29.0.53571.9782

我想得到 29.0.53571.9782 这个版本号；

IDE提供的API中，好象没有与之相关的东西；想要得到这个版本号，也许只能用变通的方式。

于是用DELPHI2007编译以下的代码

program GetIDEVER;//{.$APPTYPE CONSOLE}//{$R *.res}usesWindows,SysUtils,Classes;function GetFileVersion(const FileName: string): string;
varn, Len: DWORD;Buf: PChar;Value: Pointer;szName: array[0..255] of Char;Transstring: string;
beginLen := GetFileVersionInfoSize(PChar(FileName), n);if Len > 0 then beginBuf := AllocMem(Len);if GetFileVersionInfo(Pchar(FileName), n, Len, Buf) then beginValue := nil;VerQueryValue(Buf, '\VarFileInfo\Translation', Value, Len);if Value <> nil thenTransstring := IntToHex(MakeLong(HiWord(LongInt(Value^)), LoWord(LongInt(Value^))), 8);StrPCopy(szName, '\stringFileInfo\' + Transstring + '\FileVersion');if VerQueryValue(Buf, szName, Value, Len) thenResult := StrPas(Pchar(Value));end;FreeMem(Buf, n);end;end;varfn1, fn2 ,s: string;L: TStringList;begintry{ TODO -oUser -cConsole Main : Insert code here }
//    fn1 := ChangeFileExt(ParamStr(0), '.ini');fn1 := ParamStr(1);if FileExists(fn1) then beginfn2 := ParamStr(2);L := TStringList.Create;trys := GetFileVersion(fn1);L.Text := 'const IDE_VER=''' + s+''';';L.SaveToFile(ExtractFilePath(ParamStr(0)) + fn2);finallyFreeAndNil(L)end;end;excepton E: Exception doWriteln(E.ClassName, ': ', E.Message);end;
end.

即可得到一个大小为 90K左右的控制台程序 GetIDEVER.exe（这就是为什么用D2007编译的原因，目前我的电脑最低是2007，用最新的DXE12，编译出来得有4.5MB左右）

然后使用CnPack提供的脚本功能；带参数执行这个 GetIDEVER.exe 即可

如：

program PGetIDEVER;usesWindows, Messages, SysUtils, Classes,  Controls;varBDSPath: string;
beginBDSPath := GetIdeRootDirectory+'bin\bds.exe';WinExecute('GetIDEVER.exe "'+BDSPath+'" "IDEVER.inc" ', 0);
end.