精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:如何在程序中读取自己的版本号(如1.0.0.315)!

主题:Re:如何在程序中读取自己的版本号(如1.0.0.315)!
发信人: showskyws()
整理人: delfan(2001-04-18 23:12:18), 站内信件
【 在 coolqiang 的大作中提到:】
:就是将工程设置中的版本号(包括主版本号、副版本号、Release和Build等)显示出来!
:......
 
使用GetFileVersionInfo 得到版本信息的例子  
Samples Using GetFileVersionInfo?

  procedure GetBuildInfo(var V1, V2, V3, V4: Word);
  var
    VerInfoSize: DWORD;
    VerInfo: Pointer;
    VerValueSize: DWORD;
    VerValue: PVSFixedFileInfo;
    Dummy: DWORD;
  begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
    begin
    V1 := dwFileVersionMS shr 16;
    V2 := dwFileVersionMS and $FFFF;
    V3 := dwFileVersionLS shr 16;
    V4 := dwFileVersionLS and $FFFF;
    end;
  FreeMem(VerInfo, VerInfoSize);
  end;



----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
欢迎光临我的个人主页:示天工作室 


网易北京社区 DELPHI版 版副发贴印 
               

[关闭][返回]