掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
パージョン情報の取込み (ID：29463)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>>maru3さん ライブラリを作成するという意味ではより汎用性を高めると 再利用がしやすくなりますよ。 function GetFileVersion(): string; の中にApplication.Exenameが入っていらっしゃるので function GetFileVersion(FileName: string): string; として、Application.Exenameを指定しているところを FileNameで指定して function GetApplicationVersion(Application.ExeName): string; と書くと、 元々の機能は Label_Ver.Caption := 'Ver '+ GetApplicationVersion; として書けますし、他のexeファイルのversionを調べたい場合は Label_Ver.Caption := 'Ver ' + GetFileVersion('C:\...\notepad.exe'); このように書けて汎用性が高まります。 手前みそですがうちのは Label1.Caption := ApplicationTitlePlusVersion('アプリ名', ' ver ', vfMajorMinor); と書くことで、メジャー/マイナー/リリース、どこまでのバージョン情報を追加するかを指定できます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.