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に出力します。

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]));