Allen 2009-12-22 14:53:42 13384 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;

Tag: Delphi技巧 TTTBLOG
我也要发一个   ·   返回首页   ·   返回[Delphi]   ·   前一个   ·   下一个
评论
Allen#1Allen 2016-10-26 22:30:02(N) 链接地址
| 3264 | 华夏装饰网 | 2016-10-26 22:30:02 | [email protected] | http://www.hx116.com |
-----
路过看看 学习了,http://www.hx116.com 谢谢分享dJgbQ
顶部     1/1 
欢迎评论
未登录,
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[Delphi]   ·   返回顶部