本文整理自网络,侵删。
有时我们需要在程序运行是知道当前是什么版本,当然查程序文件的属性也只可以看到,但这样太麻烦了。
可以用以下方法调用: //要在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;
相关阅读 >>
Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)
Delphi 10.3 处理csv tstreamreader 自带split用法
更多相关阅读请进入《Delphi》频道 >>