lpRootPathName = 编辑框1.内容 + “:\”
lpVolumeNameBuffer = 取空白文本 (255)
nVolumeNameSize = 255
lpMaximumComponentLength = 255
lpFileSystemNameBuffer = 取空白文本 (255)
nFileSystemNameSize = 255
API_取磁盘信息 (lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLength, 0, lpFileSystemNameBuffer, nFileSystemNameSize)
编辑框2.内容 = 到文本 (lpVolumeSerialNumber)
编辑框3.内容 = lpFileSystemNameBuffer
调试输出 (lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLength, lpFileSystemNameBuffer, nFileSystemNameSize)
编辑框4.内容 = 到文本 (取簇的大小 (编辑框1.内容 + “:\”)) + “KB”
上一篇 易语言win8特效模块
下一篇 键盘鼠标录制大师源及回放软件