Delphi查看程序版本信息
capelin 发布 | 2022-7-24 | 评论数：0 | 阅读数：8433 | 标签：
//要在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;
分享至:
本文已关闭评论