Delphi调用程序版本信息的方法

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

　　可以用以下方法调用：

 

//要在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;

　　－－本文来源于[TTT BLOG]：http://www.taoyoyo.net/ttt/post/323.html

 

(提示：转载时请务必保留版权信息或者注明来源。)