Delphiを忘れない

プロジェクトのオプションよりバージョン番号を含めると、アプリケーションファイル内にバージョン情報を埋め込むことが出来ます。
その自身のバージョン番号を取得する方法は下記のとおりです。
文字列として取得するようにしたのでフォームのキャプションなどにそのまま使えます。
※新しいDelphiで64bitアプリとして生成されたプログラムでは動作しないようです。

function GetSelfVersion: String;
var
  VerInfoSize  : DWORD;
  VerInfo      : Pointer;
  VerValueSize : DWORD;
  VerValue     : PVSFixedFileInfo;
  Dummy        : DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize( PChar(ParamStr(0)), Dummy );

  GetMem(VerInfo, VerInfoSize);
  try
    GetFileVersionInfo( PChar(ParamStr(0)), 0, VerInfoSize, VerInfo );
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);

    with VerValue^ do begin
      Result := Format('Ver%d.%d.%.3d [Build:%.4d]' , [(dwFileVersionMS shr 16)
                                          , (dwFileVersionMS and $FFFF)
                                          , (dwFileVersionLS shr 16)
                                          , (dwFileVersionLS and $FFFF)])
    end;
  finally
    FreeMem(VerInfo, VerInfoSize);
  end;
end;

[2回]