');
Allen 2009-12-22 3990 1 0 0 0

  有时我们需要在程序运行是知道当前是什么版本,当然查程序文件的属性也只可以看到,但这样太麻烦了。

  可以用以下方法调用:
 
//要在uses中添加引用单元:Version;
 
procedure TForm1.FormSet;
var
  pVer : tVersion;
begin
 
    pVer := Tversion.Create(ParamStr(0));
    x_pVerNo := pVer.FileVersion;
    x_pProgramName := pVer.InternalName;
    x_pComments := pVer.FileDescription;
    pVer.Free;
 
end;

【版权声明】
本文为原创,遵循CC 4.0 BY-SA版权协议!转载请附上原文出处链接及本声明。
原文链接:https://tdlib.com/am.php?t=keknuendf5nw
Tag: Delphi技巧 TTTBLOG
我也要发一个   ·   返回首页     ·   返回[Delphi]   ·    前一个  ·   下一个
评论
Allen#1.  Allen at 2016-10-26 22:30:02(Normal)  分享链接
| 3264 | 华夏装饰网 | 2016-10-26 22:30:02 | [email protected] | http://www.hx116.com |
-----
路过看看 学习了,http://www.hx116.com 谢谢分享dJgbQ
顶部     1/1 
未登录,
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[Delphi]   ·   返回顶部