JCLのJclFileUtilsユニットのTJclFileVersionInfoクラスで、アプリケーションのバージョン情報を取得する

JCLのJclFileUtilsユニットのTJclFileVersionInfoクラスを使うと、アプリケーションのバージョン情報を簡単に取得できます。

TJclFileVersionInfoのコンストラクタは引数にファイル名をとります。

uses
  JclFileUtils;
var
  Info: TJclFileVersionInfo;
begin
  Info := TJclFileVersionInfo.Create(ParamStr(0));

TJclFileVersionInfoは次のプロパティを持ちます。

  • Commentsプロパティ
    コメント

  • CompanyNameプロパティ
    会社名

  • FileDescriptionプロパティ
    説明

  • FileVersionプロパティ
    ファイル バージョン

  • FileVersionBuildプロパティ
    モジュールバージョン番号のビルド

  • FileVersionMajorプロパティ
    モジュールバージョン番号のメジャーバージョン

  • FileVersionMinorプロパティ
    モジュールバージョン番号のマイナーバージョン

  • FileVersionReleaseプロパティ
    モジュールバージョン番号のリリース

  • InternalNameプロパティ
    内部名

  • LegalCopyrightプロパティ
    著作権

  • LegalTradeMarksプロパティ
    商標

  • OriginalFilenameプロパティ
    正式ファイル名

  • PrivateBuildプロパティ
    プライベートビルド

  • ProductNameプロパティ
    製品名

  • ProductVersionプロパティ
    製品バージョン

  • ProductVersionBuildプロパティ
    製品バージョンのビルド

  • ProductVersionMajorプロパティ
    製品バージョンのメジャーバージョン

  • ProductVersionMinorプロパティ
    製品バージョンのマイナーバージョン

  • ProductVersionReleaseプロパティ
    製品バージョンのリリース

  • SpecialBuildプロパティ
    特別ビルド

次のサンプルプログラムではアプリケーションのバージョン情報をTMemoに出力します。

TJclFileVersionInfo001

TJclFileVersionInfo002

uses JclFileUtils;

var
  Info: TJclFileVersionInfo;
begin
  Info := TJclFileVersionInfo.Create(ParamStr(0));
  Memo1.Lines.Add(Format('%s=%s', ['コメント', Info.Comments]));
  Memo1.Lines.Add(Format('%s=%s', ['会社名', Info.CompanyName]));
  Memo1.Lines.Add(Format('%s=%s', ['説明', Info.FileDescription]));
  Memo1.Lines.Add(Format('%s=%s', ['ファイル バージョン', Info.FileVersion]));
  Memo1.Lines.Add(Format('%s=%s', ['モジュールバージョン番号のビルド', Info.FileVersionBuild]));
  Memo1.Lines.Add(Format('%s=%s', ['モジュールバージョン番号のメジャーバージョン', Info.FileVersionMajor]));
  Memo1.Lines.Add(Format('%s=%s', ['モジュールバージョン番号のマイナーバージョン', Info.FileVersionMinor]));
  Memo1.Lines.Add(Format('%s=%s', ['モジュールバージョン番号のリリース', Info.FileVersionRelease]));
  Memo1.Lines.Add(Format('%s=%s', ['内部名', Info.InternalName]));
  Memo1.Lines.Add(Format('%s=%s', ['著作権', Info.LegalCopyright]));
  Memo1.Lines.Add(Format('%s=%s', ['商標', Info.LegalTradeMarks]));
  Memo1.Lines.Add(Format('%s=%s', ['正式ファイル名', Info.OriginalFilename]));
  Memo1.Lines.Add(Format('%s=%s', ['プライベートビルド', Info.PrivateBuild]));
  Memo1.Lines.Add(Format('%s=%s', ['製品名', Info.ProductName]));
  Memo1.Lines.Add(Format('%s=%s', ['製品バージョン', Info.ProductVersion]));
  Memo1.Lines.Add(Format('%s=%s', ['製品バージョンのビルド', Info.ProductVersionBuild]));
  Memo1.Lines.Add(Format('%s=%s', ['製品バージョンのメジャーバージョン', Info.ProductVersionMajor]));
  Memo1.Lines.Add(Format('%s=%s', ['製品バージョンのマイナーバージョン', Info.ProductVersionMinor]));
  Memo1.Lines.Add(Format('%s=%s', ['製品バージョンのリリース', Info.ProductVersionRelease]));
  Memo1.Lines.Add(Format('%s=%s', ['特別ビルド', Info.SpecialBuild]));

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください