Delphi 获取一个可执行文件的版本号。

code=delphi]function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean;//得到本程序的版本号  code=delphi]function GetFileVersion(fn: string;