2,723
社区成员
发帖
与我相关
我的任务
分享
If Agetfileversion(MyArray,Sys(16,1)) > 0
Messagebox('程序版本:'+MyArray(4))
Else
Messagebox("空")
Endif
编译为exe后运行exe试试Clear
fname = 'C:\Program Files\Meitu\XiuXiu\XiuXiu.exe' &&指定exe路径
n = Agetfileversion(a_ver, fname)
If n > 0
For i = 1 to n
? a_ver[i]
Endfor
Else
?"空"
Endif
再试试If Agetfileversion(MyArray,Sys(16,1))>0
Thisform.Caption='程序版本:'+MyArray(4)
Else
Thisform.Caption=""
Endif
n = Agetfileversion(a_ver, fname)
For i = 1 to n
? a_ver[i]
Endfor
具体参考帮助文件的Agetfileversion函数