Delphi自动获取软件版本信息的类

1. unit untVersion;
2. {-------------------------------------------------------------------------------
3. *Description：自动获取应用程序的版本信息
4. *Create by:   Derry Zhang
5. *Create on:   2008-11-26
6. -------------------------------------------------------------------------------}
8. interface
10. uses
11.   Windows, Forms, SysUtils;
13. type
14.   TVersion = class(TObject)
15.   private
16.     FCompanyName: string;
17.     FFileDescription: string;
18.     FFileVersion: string;
19.     FInternalName: string;
20.     FLegalCopyright: string;
21.     FLegalTradeMarks: string;
22.     FOriginalFileName: string;
23.     FProductName: string;
24.     FProductVersion: string;
25.     procedure GetCodeVersion;
26.   public
27.     constructor Create;
28.     property CompanyName: