用VF识别硬盘的物理序列号(转载)

作者:Tiger5392 转载:https://bbs.bccn.net/thread-210804-1-1.html oWMI=CREATEOBJECT("WbemScripting.SWbemLocator") oLocal=oWMI.ConnectServer(".", "root\cimv2") oHardware=oLocal.ExecQuery("SELECT * FROM Win32_PhysicalMedia") FOR EACH object1 IN oHardware lcHDID=object1.Properties_('Serial...
默认分类 | 2021-05-13 16:23 | 阅读 25 次 | 评论 0 条

如何判断电脑上是否安装了 Excel(转载)

来源:https://bbs.csdn.net/topics/340141130 作者:十豆三 * VFP8.0 Or VFP9.0 m.llExit=.T. Try m.Excel=Createobject("Excel.Application") m.Excel=Null Catch m.llExit=.F. Endtry If m.llExit=.F. Messagebox("没有安装 Excel!",48,"信息提示") Return Endif
EXCEL | 2021-05-04 14:50 | 阅读 88 次 | 评论 0 条
文章分类
最新评论