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为例:

相关推荐
醉酒柴柴20 分钟前
【代码pycharm】动手学深度学习v2-07 自动求导
ide·深度学习·pycharm
yyywxk28 分钟前
VSCode 新建 Python 包/模块 Pylance 无法解析
ide·vscode·python
sensor_WU1 小时前
【delphi】常用语言特性:接口、匿名方法、泛型
delphi·delphi 语言特性·delphi 匿名方法·delphi 接口
七灵微1 小时前
【IDE】使用指南
ide
界面开发小八哥3 小时前
「Java EE开发指南」如何使用Visual JSF编辑器设计JSP?(一)
java·ide·java-ee·编辑器·myeclipse
刘大浪4 小时前
IDEA 2024安装指南(含安装包以及使用说明 cannot collect jvm options 问题一)
java·ide·intellij-idea
恋猫de小郭5 小时前
Kotlin Multiplatform 未来将采用基于 JetBrains Fleet 定制的独立 IDE
开发语言·ide·kotlin
Random_index20 小时前
#开发环境篇:vscode里面登录已同步设置的提示1怎么取消
ide·vscode·编辑器
栽树先生~1 天前
解决IntelliJ IDEA的Plugins无法访问Marketplace去下载插件
java·ide·intellij-idea
Dnelic-1 天前
【笔记】Android Gradle Plugin配置文件相关说明-libs.versions.toml
android·ide·笔记·gradle·plugin·版本控制