有时我们需要在程序运行是知道当前是什么版本,当然查程序文件的属性也只可以看到,但这样太麻烦了。
Tag: Delphi技巧 TTTBLOG//要在uses中添加引用单元:Version;procedure TForm1.FormSet;varpVer : tVersion;beginpVer := Tversion.Create(ParamStr(0));x_pVerNo := pVer.FileVersion;x_pProgramName := pVer.InternalName;x_pComments := pVer.FileDescription;pVer.Free;end;