1. 设置应用程序包含版本信息
处理 delphi ----> project -------> options ----------> version info 中设置: marjor/minior/release/builder 信息;
并且: builder 自动增量: 选中 ; module arri 全部选中; 设置其它属性......................
------------------ 对于大版本信息的修改需要手动更新
2. 每次应用修改完成后, builder all 将会生成新的版本信息;
3. 读取版本信息 :
在unit 如下位置加入 getfileversion 函数::::::::::::::::::::::::
implementation
{$R *.dfm}
----------------------------------
function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean;//得到fn本程序的版本号
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO ;
i: LongWord;
begin
i:= GetFileVersionInfoSize(pchar(fn), i);
new(sver);
p:= pchar(sver);
GetMem(buf, i);
ZeroMemory(buf, i);
result:= false;
if