名前
題名
▼ Saraさん > みなさん、こんばんは。 > > ちょっと、情報が足りないんで、追加・・・ > type > TVerResourceKey = ( > vrComments, // コメント > vrCompanyName, // 会社名 > vrFileDescription, // 説明 > vrFileVersion, // ファイルバージョン > vrInternalName, // 内部名 > vrLegalCopyright, // 著作権 > vrLegalTrademarks, // 商標 > vrOriginalFilename, // 正式ファイル名 > vrPrivateBuild, // プライベートビルド情報 > vrProductName, // 製品名 > vrProductVersion, // 製品バージョン > vrSpecialBuild); // スペシャルビルド情報 > > TForm1 = class(TForm) > Button1: TButton; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > const > KeyWordStr: array [TVerResourceKey] of String = ( > 'Comments', > 'CompanyName', > 'FileDescription', > 'FileVersion', > 'InternalName', > 'LegalCopyright', > 'LegalTrademarks', > 'OriginalFilename', > 'PrivateBuild', > 'ProductName', > 'ProductVersion', > 'SpecialBuild'); > > > implementation > > {$R *.dfm} > > > バージョン情報取得時は、こんな感じで・・・ > > procedure TForm1.Button1Click(Sender: TObject); > begin > Button1.Caption := GetVersionInfo(vrFileVersion); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link