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

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

比如:delphi XE12 是 36 ,也仅此而己。

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

我想得到 29.0.53571.9782 这个版本号;

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

于是用DELPHI2007编译以下的代码

Delphi 复制代码
program GetIDEVER;

//{.$APPTYPE CONSOLE}

//{$R *.res}

uses
  Windows,SysUtils,Classes;

function GetFileVersion(const FileName: string): string;
var
  n, Len: DWORD;
  Buf: PChar;
  Value: Pointer;
  szName: array[0..255] of Char;
  Transstring: string;
begin
  Len := GetFileVersionInfoSize(PChar(FileName), n);
  if Len > 0 then begin
    Buf := AllocMem(Len);
    if GetFileVersionInfo(Pchar(FileName), n, Len, Buf) then begin
      Value := nil;
      VerQueryValue(Buf, '\VarFileInfo\Translation', Value, Len);
      if Value <> nil then
        Transstring := IntToHex(MakeLong(HiWord(LongInt(Value^)), LoWord(LongInt(Value^))), 8);
      StrPCopy(szName, '\stringFileInfo\' + Transstring + '\FileVersion');
      if VerQueryValue(Buf, szName, Value, Len) then
        Result := StrPas(Pchar(Value));
    end;
    FreeMem(Buf, n);
  end;

end;

var
  fn1, fn2 ,s: string;
  L: TStringList;

begin
  try

    { TODO -oUser -cConsole Main : Insert code here }
//    fn1 := ChangeFileExt(ParamStr(0), '.ini');
    fn1 := ParamStr(1);
    if FileExists(fn1) then begin
      fn2 := ParamStr(2);
      L := TStringList.Create;
      try
        s := GetFileVersion(fn1);
        L.Text := 'const IDE_VER=''' + s+''';';
        L.SaveToFile(ExtractFilePath(ParamStr(0)) + fn2);
      finally
        FreeAndNil(L)
      end;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

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

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

如:

Delphi 复制代码
program PGetIDEVER;

uses
  Windows, Messages, SysUtils, Classes,  Controls;

var
  BDSPath: string;
begin
  BDSPath := GetIdeRootDirectory+'bin\bds.exe';
  WinExecute('GetIDEVER.exe "'+BDSPath+'" "IDEVER.inc" ', 0);
end.

这样就会得到一个 IDEVER.inc

此时,只需要在你的单元文件中导入这个INC即可直接读取了

Delphi 复制代码
{$I IDEVER.inc}

然后要显示到主窗体的状态栏中:

Delphi 复制代码
Main_SBar.Panels[0].Text := IDE_VER ;

以 DELPHI2007为例:

相关推荐
Rverdoser13 小时前
Android Studio 多工程公用module引用
android·ide·android studio
free_girl_fang15 小时前
高效作业之Mybatis缓存
java·ide·缓存·mybatis
星寂樱易李16 小时前
pycharm 使用
ide·python·pycharm
心安成长17 小时前
IntelliJ IDEA快速接入LLMs大模型API
java·ide·intellij-idea
tekin1 天前
vscode php Launch built-in server and debug, PHP内置服务xdebug调试,自定义启动参数配置使用示例
ide·vscode·php·launch.json·runtimeargs·php内置服务自定义参数
Tp_jh1 天前
推荐一款非常好用的C/C++在线编译器
linux·c语言·c++·ide·单片机·unity·云原生
曹申阳1 天前
vscode 创建 vue 项目时,配置文件为什么收缩到一起展示了?
ide·vue.js·vscode
路在脚下@1 天前
IntelliJ IDEA的快捷键
java·ide·intellij-idea
Pioneer000012 天前
IDE 使用技巧与插件推荐
ide
李少兄2 天前
IntelliJ IDEA 中创建目录时 `.` 和 `/` 的区别
java·ide·intellij-idea