易语言获取计算机硬盘信息的代码

常量数据表

.版本 2

.常量 GetDiskList, "<文本长度: 613>"

取磁盘信息代码

.版本 2

.程序集 窗口程序集1

.子程序 _取硬盘信息按钮_被单击

硬盘信息编辑框.内容 = 取硬盘列表 ()

.子程序 取硬盘列表, 文本型, 公开

.局部变量 Script, 对象

.局部变量 ret, 文本型

Script.创建 (“MSScriptControl.ScriptControl”, )

Script.写属性 (“Language”, “VBScript”)

Script.数值方法 (“AddCode”, #GetDiskList)

ret = Script.通用方法 (“Eval”, “GetDiskList()”).取文本 ()

返回 (ret)

运行结果:

总结

以上是 易语言获取计算机硬盘信息的代码 的全部内容, 来源链接: utcz.com/z/312919.html

回到顶部