delphi 获取文件版本等

自动获取Delph文件版本，版权等 type TFileVersionInfo=record FixedInfo:TVSFixedFileInfo;{版本信息} CompanyName:string;{公司名称} FileDescription:string;{说明} FileVersion:string;{文件版本} InternalName:string;{内部名称} LegalCopyright:string;{版权} LegalTrademarks:string;{合法商标} OriginalFilename:string;{源文件名} ProductName:string;{产品名称} ProductVersion:string;{产品版本} Comments:string;{备注} LocalPort:string;{Local UDP_Message Port} end;