掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
パージョン情報の取込み (ID：29461)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今作成しているアプリでバージョン（リビジョン）を表示して 使用している方と内容が合うように、 バージョン番号を表示するようにしています。 以下のようにするとＯＫでした。 //バージョン番号の取得（自動付加バージョン番号） function GetFileVersion(): string; var Size, SizeFileInfo, Ret: DWORD; pData, pInfo: Pointer; begin Size := GetFileVersionInfoSize(PCHAR(Application.ExeName), Ret); GetMem(pData, Size); try Assert(GetFileVersionInfo(PCHAR(Application.Exename), 0, Size, pData)); Assert(VerQueryValue(pData, PCHAR('\StringFileInfo\041103A4\FileVersion'), pInfo, SizeFileInfo)); Result := PCHAR(pInfo); finally FreeMem(pData); end; end; どこかで・・・・メインフォームかな？？？ Label_Ver.Caption := 'Ver '+ GetFileVersion;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.