精易模块 “枚举硬盘”命令有BUG

kingtt

个人喜欢把模块用的命令取出来使用。自从用上“枚举硬盘”命令后，偶尔会出现BUG，只是偶尔。我的电脑有3块硬盘，但偶尔取出的硬盘数为0

下图是提取的命令的代码

下图是电脑的磁盘

vosia

学了一招啊

kingtt

AMEN.@ 发表于 2021-8-17 09:22
可以用系统API。不用他的函数。精易取系统之类的东西都是调用的API。你可以打开看看，有一个系统API，常 ...

谢谢，虽然不是用你的。不愿折腾，想了个笨办法，既然只是偶尔出错，那么就循环枚举硬盘，数量大于0跳出

y2j423633

居然会扣不会调试！

sinewtec

复制粘贴的么!!!

AMEN.@

kingtt 发表于 2021-8-17 09:18
真的不会，尴尬了

可以用系统API。不用他的函数。精易取系统之类的东西都是调用的API。你可以打开看看，有一个系统API，常量：.常量 DRIVE_REMOVABLE, "2", , 可移动磁盘.常量 DRIVE_FIXED, "3", , 固定盘，如硬盘。
.常量 DRIVE_REMOTE, "4", , 网络映射驱动器
.常量 DRIVE_CDROM, "5", , 光盘
.常量 DRIVE_RAMDISK, "6", , 内存盘；
源码：

  

.版本 2

子程序名	返回值类型	公开	备 注
_按钮1_被单击			创建一个窗口、画【1】个按钮 、复制代码调试

如果真 (取磁盘类型 ("c:\”) ＝ #DRIVE_FIXED)
信息框 ("这是硬盘”, 0, )

DLL命令名	返回值类型	公开	备 注
取磁盘类型	整数型
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetDriveTypeA
参数名	类 型	传址	数组	备 注
驱动器名	文本型			lpDrive

常量名称	常量值	公 开	备 注
DRIVE_REMOVABLE	2		可移动磁盘
DRIVE_FIXED	3		固定盘，如硬盘。
DRIVE_REMOTE	4		网络映射驱动器
DRIVE_CDROM	5		光盘
DRIVE_RAMDISK	6		内存盘

        .版本 2<br /> <br /> .子程序 _按钮1_被单击, , , 创建一个窗口、画【1】个按钮 、复制代码调试<br /> <br /> .如果真 (取磁盘类型 ("c:\”) ＝ #DRIVE_FIXED)<br />     信息框 ("这是硬盘”, 0, )<br /> .如果真结束<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 取磁盘类型, 整数型, "kernel32", "GetDriveTypeA"<br />     .参数 驱动器名, 文本型, , lpDrive<br /> <br /> .版本 2<br /> <br /> .常量 DRIVE_REMOVABLE, "2", , 可移动磁盘<br /> .常量 DRIVE_FIXED, "3", , 固定盘，如硬盘。<br /> .常量 DRIVE_REMOTE, "4", , 网络映射驱动器<br /> .常量 DRIVE_CDROM, "5", , 光盘<br /> .常量 DRIVE_RAMDISK, "6", , 内存盘

Dll命令名	返回值类型	公开	备注
取磁盘类型	整数型
库文件名：
kernel32
在库中对应命令名：
GetDriveTypeA
参数名	类型	传址	数组	备注
驱动器名	文本型			lpDrive

kingtt

AMEN.@ 发表于 2021-8-17 09:16
[e=4].版本 2
.支持库 spec

我还测试过1000次没问题呢

kingtt

大司命 发表于 2021-8-17 09:16
居然会扣不会调试！！！

真的不会，尴尬了，求大大写一个

kingtt

AMEN.@ 发表于 2021-8-17 09:16
[e=4].版本 2
.支持库 spec

真的不会，尴尬了

AMEN.@

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
磁盘	类_磁盘信息

调试输出 (磁盘.枚举硬盘 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 磁盘, 类_磁盘信息<br /> <br /> 调试输出 (磁盘.枚举硬盘 ())

实测：联系按钮500此无一次为异常。我机器4个硬盘。
可能是你机器系统问题，而且既然都扣出来了，自己改呗