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

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